回答編集履歴
1
コード一部修正
test
CHANGED
|
@@ -6,7 +6,7 @@
|
|
|
6
6
|
|
|
7
7
|
while (my $line = <IN>) {
|
|
8
8
|
|
|
9
|
-
if($line =~ /<aaa>
|
|
9
|
+
if($line =~ /<aaa>/ .. $line=~/</xxx>/){
|
|
10
10
|
|
|
11
11
|
$line =~ s/<aaa>/<bbb>/g;
|
|
12
12
|
|