다른 사람들은 perlrun을 언급했습니다. 당신이 B :: Deparse를 사용하는 경우, 당신은 할 수 있습니다 볼 수 는 (대부분의 것들에 대한) 의미 :
$ perl -MO=Deparse -p -e 1
LINE: while (defined($_ = <ARGV>)) {
'???';
}
continue {
die "-p destination: $!\n" unless print $_;
}
-e syntax OK
1은 최적화되어 있기 때문에 '???'로 표시됩니다.
$ perl -MO=Deparse -p -i -e 1
BEGIN { $^I = ""; }
LINE: while (defined($_ = <ARGV>)) {
'???';
}
continue {
die "-p destination: $!\n" unless print $_;
}
-e syntax OK
-i는 $ ^ I를 설정합니다.
$ perl -MO=Deparse -p -i.bak -e 1
BEGIN { $^I = ".bak"; }
LINE: while (defined($_ = <ARGV>)) {
'???';
}
continue {
die "-p destination: $!\n" unless print $_;
}
-e syntax OK
그러나 <ARGV>는 2- 인수 open을 사용하므로로 시작 > <
하거나로 시작 / 종료하는 파일 이름은 사용하지 마십시오 |
.