bbs.cgi再開発プロジェクト7

**root▲ ★** · NG

bbs.cgiの開発作業をすすめていくためのスレッドです。

FOXさんの努力によりSpeedyCGIへの対応が行われ、
パフォーマンスの向上が図られたbbs.cgi。

・雪だるま作戦への対応
・さらなるカスタマイズ
・パフォーマンスの向上
・微妙な虫取り
・長いメインルーチンをより短くコンパクトに

あたりがターゲットか。

前スレ:
bbs.cgi再開発プロジェクト6
http://qb5.2ch.net/test/read.cgi/operate/1113117347/

**root▲ ★** · 2005/11/21(月) 15:56:42

Perlって、いわゆるファイルディスクリプタって、サブルーチンに渡せるんでしたっけ。

具体的には、メインルーチンで

open(FILE,">$workfile");

としたFILEに、サブルーチンから書きたい場合、
どういうふうに記述すればいいかなんですが。

**root▲ ★** · 2005/11/21(月) 16:01:18

あ、ファイルハンドルっていうんでしたっけ。
なにぶんPerlは、その程度の知識で。

**動け動けウゴウゴ２ちゃんねる** · 2005/11/21(月) 16:12:01

open(FILE ,">foo.txt");
&hoge(*FILE);

sub hoge{
local (*FILE) = shift;
print FILE "bar\n";
}

みたいかな？

あとはFileHandleつかうとか。
http://search.cpan.org/~abergman/ponie-2/perl/lib/FileHandle.pm

**動け動けウゴウゴ２ちゃんねる** · 2005/11/21(月) 16:13:54

http://www.uopmu.ees.osakafu-u.ac.jp/~yabu/soft/perl.html#8

ファイルハンドルの引数渡し

&sub3(FP);

sub sub3{
my($FP) = @_;
$_ = <FP>;
print "file : $_\n";
}