open (IN,"$cdatfile2") || &error("国データファイルが開けませんでした",1); @cdat2 = <IN>; close(IN) or die "Can't close : $!";
open (AUT,">>$cdatfile2") || &error("open error:$cdatfile2",1); print AUT $cdat2; close(AUT) or die "Can't close : $!";
open (IN,"$cdatfile") || &error("国データファイルが開けませんでした",1); @cdat = <IN>; close(IN) or die "Can't close : $!"; open (IM,"$cdatfile2") || &error("国データファイルが開けませんでした",1); @cdat2 = <IM>; close(IM) or die "Can't close : $!"; %CP = ''; my @prats = split(/,/,$cdat[0]); foreach $prats (@prats){ my($k,$v) = split(/;/,$prats); $CP{$k} = $v; } %CP = ''; my @prats = split(/,/,$cdat2[0]); foreach $prats (@prats){ my($k,$v) = split(/;/,$prats); $CP{$k} = $v; }
$set=$CP{'set'}; $all_mem=$CP{'all_mem'}; 略
open (IN,"$cdatfile") || &error("国データファイルが開けませんでした",1); @cdat = <IN>; %CP = ''; my @prats = split(/,/,$cdat[0]); foreach $prats (@prats){ my($k,$v) = split(/;/,$prats); $CP{$k} = $v; } $set=$CP{'set'}; $all_mem=$CP{'all_mem'}; close(IN) or die "Can't close : $!"; 以下cdat2のopen