2010-04-01から1ヶ月間の記事一覧
my $buf = ""; # この変数で受け取る open VAROUT, ">", \$buf or die $!; my $oldhandle = select VAROUT; #---------------------------- # printしたら変数$bufに入る print "ore"; print "ore"; #---------------------------- select $oldhandle; # 出…
my $buf = ""; # この変数で受け取る open VAROUT, ">", \$buf or die $!; my $oldhandle = select VAROUT; #---------------------------- # printしたら変数$bufに入る print "ore"; print "ore"; #---------------------------- select $oldhandle; # 出…