$ver = "1.2"; $rev = "20040701"; #---------------------------------------------------# # 指定のファイル名でまとめてファイルを作成する # # mailto:minorut@mac.com # #---------------------------------------------------# $DAT = 'list.txt'; #都市リスト $saffix = '.html'; #拡張子 use Time::Local; #モジュールの読み込み print "\n\n【ファイル作成スクリプト】\n\n"; print '############'; print "\n"; print '# 処理開始 #'; print "\n"; print '############'; print "\n\n"; sleep 1; $time_in = time; open (DAT,"$DAT"); @lines = ; close (DAT); $tmp = ""; print "\n\n書き出し開始\n\n"; foreach (@lines){ chomp $_; @tmp = split (/\t/,$_); #ファイル名 open (OUT, ">$tmp[0]$saffix") || die "Open error"; #中身 print OUT <<"EOM"; $tmp[1] EOM close (OUT); } $gettime = (time) - $time_in; print "所要時間：$gettime 秒\n\n"; print '############'; print "\n"; print '# おしまい #'; print "\n"; print '############'; print "\n\n"; sleep 2; print "\nウィンドウを閉じます\n"; sleep 1; exit;