※ 引述《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