n2.pl

来自「simple perl programs to understand suse 」· PL 代码 · 共 10 行

#! /usr/bin/perl

print "Content-type:text/html\n\n";
print "Unix Commands<br>";
$string=$ENV{'QUERY_STRING'};
($field,$cmd)=split(/=/,$string);
print `/bin/$cmd`;
exit(0);