[問題] 修改檔案內容存入新檔
小弟是剛入門學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
→
01/09 02:34, , 1F
01/09 02:34, 1F
→
01/16 02:08, , 2F
01/16 02:08, 2F
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
