#------------------------------ # 岸和田だんじりメール # Copyright(C) 2009 Pecoyon.a & Noah Corp. 岸和田聖書教会 監修 #------------------------------ $msg =""; $r_js =0; if($frmt_0 eq "1"){ ++$r_js;}#csv形式で\"が使用されているパターン if($frmt_1 eq "1"){ ++$r_js;}#csv形式でないパターン if($frmt_2 eq "1"){ ++$r_js;}#,が2個以上あるパターン if($frmt_3 eq "1"){ if($obj_email eq ""){ ++$r_js; }#メールアドレスが空白 else{ if(($frmt_1 ne "1") && ($frmt_2 ne "1")){ $obj_email =~ s/\\/\\\\/g; $r_js =0;}# =>JavaScript } } print "\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print " | \n"; print "\n"; print " | \n";
print " \n";
shift @log_line;
#一括 または分割ファイルを配列に格納 @log_line=>チェックするデータ
open(IN, ">$file") or &Error("ファイル: $fileが開けません。");
print IN @log_line;
close(IN);
if($wys eq "2"){
#読者ファイルを更新 @m_line=> 既に保存されているデータ
open(IN, ">$file_2") or &Error("ファイル: $file_2が開けません。");
print IN @m_line;
close(IN);
}
#正しくない行 読者データに追加しなかったメールアドレス行データファイル
$file_3 ="./temp/r_check.dat";
open(IN, ">$file_3") or &Error("ファイル: $file_3が開けません。");
print IN @check;
close(IN);
$ln_2 =~ s/&/&/g;
$ln_2 =~ s/</g;
$ln_2 =~ s/>/>/g;
$ln_2 =~ s/"/"/g;
print " \n";
print "$ln_2 ";
print "$add_nmbr行目のデータが正しくありません。 ";
print "";#JavaScript
print "";
print "";
print "";
print " | \n";
print "
\n"; print " |
$_[0]
\n"; print "\n"; exit; }