※ 引述《abliou (Art of Life)》之銘言： : 這幾行程式碼真的寫的很棒..用遞迴減少很多程式碼... : 不過還是有一些東西小弟想了很久還是不能參透.... : 不知道能不能請高手為小弟指點一下....真的感激不盡!! : ※ 引述《LyinZ (琳子)》之銘言： : : a(qw(ab102 ac1256 ef698 ed23)); : : sub a{ : : my $a; : : open $a, shift; : 這是我的第一個疑問...就是這邊open的用法...它會對那一個檔打開?? : 另外這邊為什麼沒有filehandling? open是開shift的return value $a才是file handle : : push(@a, $_), (@_ && a(@_) || print "@a\n"), pop @a for( split /\s/, <$a> ); : 接這就是這一行....我很不了解這一行的程式運作方式... : 而且當中用了很多逗號...我很想了解到底逗號的使用時機跟限制到底是如何? 那一行大約等同 for (split /\s/, <$a>) { push(@a, $_); (@_ && a(@_) || print "@a\n"); pop @a; } 注意@a是global : : close $a; : : } : 有試著去實做和查資料..但是都途勞無功...所以在此請教高手們... : 感謝高手們的指教..因為小弟正在當兵..可能沒有辦法為教導的高手們提出即時的感謝 : 但小弟有放假一定會來道謝.... : 先在這邊謝過各位高手了... 這段code開了(ab102 ac1256 ef698 ed23)這四個檔案 檔案裡面的資料用tab隔開 雖然我看本來的題目似乎是只有一個檔案，內容為 ab102\t11,01,65,99,68,78 ac1256\t01,23,41,65,74,63,26 ef698\t02,13,56,07,09 ed23\t32,05,06,23 不過，也有可能是我搞錯就是了 ^^" --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.112.29.163