Perlのお勉強-#2。

 今の状態。こんなん。

 見ての通り,先にkoi1.jpgとkoiv01.midを別にアップロードしておいて,$img1,$img2,$img3,$aud1を設定したのち,このスクリプトを実行すると,koi.htmlができるというレベル。

#!/usr/bin/perl

use strict;
use warnings;

use File::Copy;

my ($dir1,$dir2,$dir3,$img1,$img2,$img3,$aud1,$from1,$to1,@rec);

#格納ディレクトリ
$dir1 = "/html"; #HTMLファイル用 パーミッション705
$dir2 = "$dir1/img"; #画像ファイル用 パーミッション705
$dir3 = "$dir1/aud"; #音ファイル用 パーミッション705

#画像・音ファイル名
$img1 = "koi1.jpg";
$img2 = "500"; #画像のwidth
$img3 = "375"; #画像のheight
$aud1 = "koiv01.mid";

#移動元・移動先ファイル名 File::Copyのmoveで使う。
$from1 = "test.html";
$to1 = "$ENV{'DOCUMENT_ROOT'}$dir1/koi.html"; #サーバ上の絶対パスでないといけないようだ。

#ファイル書き込み
open(FILE, ">$from1") or die;
print FILE <<"PREVIEW";
<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN'>
<html lang='ja'>
<head>
<meta http-equiv='Content-Type' content='text/html; charset=UTF-8'>
<title>「BGMテスト」</title>
</head>
<body bgcolor='#FF9900'>

<p align='center'>皐月の空を泳ぐこいのぼり(BGM付き)</p>
<div align='center'><img border='2' src='$dir2/$img1' width='$img2' height='$img3'></div>
<div align='center'><embed src='$dir3/$aud1' autostart='true' loop='false' hidden='true'></div>
</body>
</html>
PREVIEW
close(FILE);

#ファイル読み込み
open(FILE, "$from1") or die;
@rec = <FILE>;
close(FILE);

#HTML ヘッド出力
print "Content-type: text/html; charset=UTF-8n";
print "Status: 200 OKn";
print "n";

#レコード表示
print @rec;

move($from1,$to1);

#終了
exit(0);

Comments are closed.