$ perl -pe 's/a/b/g' file
これを書き下すと下のようになるそうだ。
while(<>){
s/a/b/g; # '...' の中身
print;
}
まぁ多少わかりにくいかも知れんので、正確さは失われるがもっと書き下してみた。
open IN, "file"; # 引数
while(<IN>){
$_ =~ s/a/b/g; # '...' の中身
print $_;
}
close IN;
exit;