[問題] 修改檔案內容存入新檔

[monkeycrazy (瘋猴)]

小弟是剛入門學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
→ flu:我覺得你補充一下輸出的部分，還有想達成的結果,會比較好
→ gugod:你的程式碼沒有輸出的部份耶，把資料讀到 @rr 後就沒了