Perlではスクリプト中の__DATA__というキーワードの後ろにある文字列をDATAというファイルハンドルから読み出すことができます。 作業用PCにActivePerlを入れて、Copal（http://www.vector.co.jp/soft/win95/util/se106827.html）といったフリーソフトを併用…

my $buf = ""; # この変数で受け取る open VAROUT, ">", \$buf or die $!; my $oldhandle = select VAROUT; #---------------------------- # printしたら変数$bufに入る print "ore"; print "ore"; #---------------------------- select $oldhandle; # 出…