「Perl内でRをバッチモードで動かす」の編集履歴（バックアップ）一覧はこちら

「Perl内でRをバッチモードで動かす」(2008/02/04 (月) 11:59:00) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

#!/usr/bin/perl
print "Content-type:text/plain\n\n";
$PostData=$ENV{'QUERY_STRING'};
#//POSTで送ったデータを変換
@input=split(/&/,$PostData);
foreach $lines(@input){
   ($name,$value)=split(/=/,$lines);
   $value =~ tr/+/ /;
   $value =~ s/%([0-9A-Fa-f]{2})/pack("C",hex($1))/eg;
   $FORM{$name} = $value;
}

$script = "/tmp/rwrap$$.R";
open(SCRIPT, ">$script");
print SCRIPT <<EOF;
##############################################################

Rのプログラム

##############################################################
EOF
close(SCRIPT);

system("R --vanilla --slave < $script");
($Rstat = $?/256) && die "Aborted in R with status $Rstat.?n";

unlink $script;
exit(0);

#!/usr/bin/perl
print "Content-type:text/plain\n\n";
$PostData=$ENV{'QUERY_STRING'};
#//POSTで送ったデータを変換
@input=split(/&/,$PostData);
foreach $lines(@input){
   ($name,$value)=split(/=/,$lines);
   $value =~ tr/+/ /;
   $value =~ s/%([0-9A-Fa-f]{2})/pack("C",hex($1))/eg;
   $FORM{$name} = $value;
}

$script = "/tmp/rwrap$$.R";
open(SCRIPT, ">$script");
#<<とEOFはくっつける
print SCRIPT <<EOF;
##############################################################

Rのプログラム

##############################################################
EOF
close(SCRIPT);

system("R --vanilla --slave < $script");
($Rstat = $?/256) && die "Aborted in R with status $Rstat.?n";

unlink $script;
exit(0);