看板 Perl 關於我們 聯絡資訊
吃光前文 : 這兩個不知哪來的! : 指令: : open file1 ,"<TEST.tab"; : while($line1=<file1>){ : open file2 ,"<TEST2.tab"; : while($line2=<file2>){ : if (($line1) =~ ($line2)){ if (($line1) == ($line2)){ : print $line1; : } : }close file2; : } : close file1; : 謝謝版大指教Orz : PS:如果把$line2變成@line2,會變成不同的輸出,但是還是比對不到想要的Orz 好像在字串處理上出問題 用數值比對就對了 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.114.44.224
adu:感謝阿As 02/28 00:44