看板
[ Perl ]
討論串[問題] 關於排序
共 18 篇文章
內容預覽:
my @data = (. "A NO1 2006/10/10 18:36",. "B NO2 2007/12/12 16:37",. "C NO3 2007/12/13 17:40",. "D NO1 2005/01/01 00:01",. "G NO2 2007/12/13 17:20". );
(還有64個字)
內容預覽:
其實我的方法很簡單耶...@@.....不知道是不是我會錯意了..... ########程式碼################. open f,"<ttt.txt";. while($line=<f>){. $hash{${[split/\t/,$line]}[1]}=$line;. }. clo
(還有14個字)
內容預覽:
如果拿 NO 來做 hash 的 key. 那 row B 跟 row G 只會剩下一個吧？！. 我也遇過類似的問題，那時候第一個想法就是想要像 java 一樣. 全部弄成 object，然後針對 object 的某個值來做比較 [註]. 只是我不會用 Perl 這樣寫，而且我也不會 Perl 的O
(還有801個字)
內容預覽:
程式碼貼上來好了. #!usr/bin/perl. open f,">c:\\test\\0719.txt";. chdir ("c:\\Perl\\csv");. @mutifile=glob("*.csv");. foreach(@mutifile). {. open(FILE,$_);. @f
(還有359個字)