作者monkeycrazy (疯猴)
看板Perl
标题[问题] 修改档案内容存入新档
时间Tue Jan 8 18:06:49 2013
小弟是刚入门学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);
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 60.250.199.152
1F：→ flu:我觉得你补充一下输出的部分，还有想达成的结果,会比较好 01/09 02:34
2F：→ gugod:你的程式码没有输出的部份耶，把资料读到 @rr 後就没了 01/16 02:08