當 $'  時

open open_file, "/etc/passwd";
while (<open_file>) {
   if ($_ =~ /^root:/) {
      print "$'";
   } elsif ($_ =~ /^bin/) {
      last;
   }
}
close open_file;

顯示

x:0:0:root:/root:/bin/bash

當 $_ 時

open open_file, "/etc/passwd";
while (<open_file>) {
   if ($_ =~ /^root:/) {
      print "$_";
   } elsif ($_ =~ /^bin/) {
      last;
   }
}
close open_file;

顯示

root:x:0:0:root:/root:/bin/bash

也就是使用 $' 會直接去除我過濾的再顯示出來

最後修改日期: 2010 年 01 月 20 日
Related posts 相關文章
2020 年迎來了 PHP 8 與 Perl 7
More...
安裝 perl 5.8.1 版本 – 草記
More...
perl 備註
More...
perl 隨機產生 password 密碼
More...

作者

留言

撰寫回覆或留言

發佈留言必須填寫的電子郵件地址不會公開。

20 − 16 =