y氏からのネタ 以下のperlスクリプトは穴がある。 #!/usr/bin/perl $<=$>; $ENV{PATH}=""; print("$ARGV[0]\n"); $command="/bin/echo"; if ($ARGV[0] =~ /^(.*)$/) { $data = $1; } else { $data = ''; } $line = "$command $data"; print("$line\n"); syst…