【スクリプト改造依頼スレ】(丸投げ) part6

【スクリプト改造依� ..

528:nobodyさん
07/06/23 14:26:30
>>526続き(2)

#◆ データファイル読み込み
sub open_csv{
my $tmp = 0;
if($SEEK eq ""){
$SEEK = $SEEK{shift(@csvfile)} || $SEEK{'s01'};
}elsif($csvfile[0] ne ""){
$tmp = $.;
close(SEEK);
$SEEK = $SEEK{shift(@csvfile)}
}else{
$SEEK="";
}
if($SEEK ne ""){
open(SEEK) || &error('データファイルを開けません');
$. = $tmp;
}
}

$FORM{'did'} =~ s/[^\w,]//g;
@csvfile = split(/,/,$FORM{'did'});
$.=0;
---------------------------------------------------------

次ページ