小弟是刚入门学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);