perl :^I;regexp;push/pop/正则集合

this function is for add 3 space for each line between { }

1?#!/opt/exp/bin/perl -w

$^I=".bak";

while (<>)  {
if (/{/) {
print $_;
push @symbol,'}';
}
if (/}/) {
print $_;
pop @symbol;
}
if (!/{/ && !/}/)  {
$number =@symbol;
if ($number>0) {
print "   $_";
} else {
print $_;
}
}
}

2?

$string =~ s/<.*?>//g;
$string =~ s/<.*>//g;  不行
perl -pe 's/<.*>//g' ucfirst.pl are also fine

perl -pe 's/scarlet|ruby|puce/red/g' 8.txt

$temp="";
while (<>) {
        if (!/^$/) {
                print $temp;
        } 
        $temp=$_;
}

区间范围的匹配
# 显示两个正则表达式之间的文本（包含） 
perl -ne 'print if /Iowa/../Montana/'  
正则掠过空白行和#comment行
在指定范围行前加comments
 perl -pe 's/^/#/ if ($. >16 && $.<28)' 3-13.pl
 skip 空行和comments行
 perl -ne 'print $_ unless (/^$/ ||/^#/);' filename
# 显示包含65个以下字符的行 
perl -nle 'print unless /.{65}/' 
# 删除文件中的所有空行（与“grep ‘.’ ”效果相同） 
perl -ne 'print if /./'  
perl -pe 's/n/ / if $.%2' 

$string =~ /-?(/d+)/.?(/d+)/; 
$string =~ s/-?(d+)/.$1/;