Re: [問題] Perl讀檔 in Windows

看板Perl作者liyih時間14年前 (2011/03/21 14:08)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串5/5 (看更多)

試一下下面的 code，就可以看出 $/ ($INPUT_RECORD_SEPARATOR) 對於換行的影響，也就是逐行讀入的差別所在。如果要讀的檔案不確定是用何種換行符號，或是都存在各種換行符號，那麼可以考慮用 slurp mode 都讀進來後再處理。這個問題也很常見於寫一些網路應用程式，建議可以參考 Net::Cmd 模組 getline() 函式。 my @buf = split(/\015?\012/, $buf, -1); ## break into lines ================================================================= #!/usr/bin/perl use strict; use warnings; my $data = "111\n222\n\r333\r\n444\r555"; my %IRS = ( ord("\n") => '\n', ord("\r") => '\r', ); sub get_chr_list { my ($irs) = @_; return join( "", map( $IRS{ ord($_) }, split( //, $irs ) ) ); } sub load_file { my ( $filename, $irs ) = @_; $irs = defined($irs) ? $irs : ""; printf( "Current INPUT_RECORD_SEPARATOR = %s\n", get_chr_list($irs) ); do { local $/ = $irs; open( FH, "$filename" ); while (<FH>) { chomp; $_ =~ s/\n/\\n/g; $_ =~ s/\r/\\r/g; print "[$_]\n"; } close(FH); } } sub main { open( FH, ">/tmp/test.txt" ); print FH $data; close(FH); printf( "Default INPUT_RECORD_SEPARATOR = %s\n", get_chr_list($/) ); load_file( "/tmp/test.txt", "\n" ); load_file( "/tmp/test.txt", "\n\r" ); load_file( "/tmp/test.txt", "\r\n" ); load_file( "/tmp/test.txt", undef ); # slurp } main; ※ 引述《abliou (把青春freeze)》之銘言： : ※ 引述《StarTouching (撫星)》之銘言： : : 找到原因了.... : : 首先要先知道 : : Windows的 command-line(亦即DOS) 按Enter時會送出\r\n : : 但是在txt中, 只有\n (也許整個非Dos環境都是如此) : : chomp預設只會篩掉\n, : : 所以如果從STDIN讀入(DOS輸入), : : 就會仍遺留下\r : : 改$/ = "\r\n" : : 可讓chomp篩掉\r\n : : 但$/也影響到Perl讀取字串的斷點 : : 所以txt檔裡面只有\n 沒有\r, : : 那Perl就找不到斷點, : : 應該要把$/改回"\n" : : 結論: 在Windows 需要DOS輸入時, 才需要改 $/ : : 不過這狀況其實不常用在實際應用, : : 多半在練習或debug才會用, : : 但正是因為如此, 初學者才更容易遇到這個問題而不知解決方法 : 看到這邊就想到大約兩年前的討論串不過往上爬文已經找不到了 : 有一種方法叫做slurp 作法就是把$/設為undef : 這樣在讀檔就會略過換行符號把整個檔的內容放到字串中 : 這種方法用在網頁的tag處理很有用 : 因為在擷取網頁資料時都是在擷取兩個tag中間的資訊 : 所以無形中換行符號就變成一種問題 : (當然在常規表示式中會有解決方案) : Perl中很多預設變數在更改都會有用處跟用意不過也要注意後面的影響 : ps.我承認我蠻菜的不過目前我用過的perl 都還沒碰過原po碰到的問題 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.114.64.130