iswebでCGI:ファイルを作る

ファイルを作るCGIです。
ローカルなファイルの読み書きができるわけですが、ここでは、 /filetest の下にファイルを作成しています。

動作例

ここを押すと、実行結果がわかります。↓
/cgi-bin/fwrite.cgi

ソースコード

#!/usr/local/bin/perl
use CGI;
use strict;

my $FILENAME = "../filetest/test-$$.txt";

my $cgi = new CGI;
print $cgi->header, $cgi->start_html('File Write Test');
print $cgi->h1("File Write Test : $FILENAME");

if(&file_write_test($FILENAME)) {
	print "<pre>\n";
	&file_read_test($FILENAME);
	print "</pre>\n";
}

print $cgi->end_html;

###

sub file_write_test {
	my ($fname) = @_;
	my $i;

	if(!open(FILE, ">$fname")) {
		return 0;
	}
	for($i=0; $i<10; $i++) {
		print FILE "This is a test. ($i)\n";
	}
	close FILE;
}

sub file_read_test {
	my ($fname) = @_;

	if(!open(FILE, $fname)) {
		return 0;
	}
	while(<FILE>) {
		print;
	}
	close FILE;
}

▼ トップ

▼ プロフィール

▼ 個人的宣伝

LINUXサーバーインストール(FedoraCore4) Oracle10gのバックアップを本気で理解し実践: FC4 や Oracle のインストールの仕方～管理方法まで、詳しく載っています。 SearchManには情報がもりだくさんです。
いますぐ実践!Linuxシステム管理: システム管理初心者の方を対象に、システム管理のノウハウをお知らせします。
: 毎日栗の絵を描いています。
退屈なとき、癒されたいときなどに、ご覧ください。:-)