- 論壇徽章:
- 0
|
設計的意圖就是把從son文件中讀出的內容和dad文件做比較，如果在dad文件中找到匹配的項目，就print出來。
代碼如下：
use warnings;
use IO;
$dadfile=shift;
$sonfile=shift;
open (DADFILE,$dadfile) or die "cannot open $dadfile, due to: $!";
open (SONFILE,$sonfile) or die "cannot open $sonfile, due to: $!";
while (<SONFILE> {
$sontemp=$_;
while (<DADFILE> {
$dadtemp=$_;
if ($dadtemp =~ /\Q$sontemp/) {
print "\$dadtemp is $dadtemp\n";
print "\$sontemp is $sontemp\n";
}
}
close(DADFILE);
open (DADFILE,$mofile) or die "cannot open $mofile, due to: $!";
}
close (MOFILE);
close (USERSFILE);
現在的問題是這樣的。
如果匹配項目是 純數字 oK 沒有問題，可以得到正確結果。
但是如果匹配項目是字符串，例如這樣的 lhXmH4DgN5k
euamSNPyhjj
qtNM*B1WYaj
那么只會匹配sonfile中的最后一行qtNM*B1WYaj。
那位高手知道為什么？
為什么只匹配最后一行？ |
|
免費注冊
發(fā)表于 2005-03-31 18:01
