小弟是剛入門學Perl的新手.
有試寫需要修改檔案內容
假設檔案內容為
"0011";
"1100";
"0101";
但是印出來變成
"";
"";
"";
下面是我的程式碼,請幫小弟看看哪邊有問題.
use strict;
die "ERROR: missing parameters\n" if (@ARGV<1);
my $change=shift;
my %changeto;
open(CHANGE,"<$change") || die "ERROR: Cannot Open $change : $!\n"
while (<CHANGE>){
my @rr=split (/\s+/,$_);
$changeto{$rr[0]}=$rr[1];
}
close (CHANGE);