编了个类似Python交互解释环境的东东

编了个类似Python交互解释环境的东东
最近在学习Perl，由于经常要尝试运行各种Perl小代码，建立一个文件又嫌麻烦，而且运行的话又要敲好多命令。Perl程序员都很懒，我也很懒，为了方便起见就自己编了这么一个小程序。也许你有更好的办法，如果知道请告诉我。
直接在">>"之后输入自己的Perl代码，输入"1;"就运行上次输入"1;"之后的代码，输入"0;"则退出。程序不在于大小，实用就行。
[quote]
#!/usr/bin/perl -w

use strict;
print <<EOF;
######################################
## Type your Perl codes after ">>". ##
## Enter "1;" to run your codes. ##
## Enter "0;" to exit this program. ##
######################################
EOF
my @codes = ("#!/usr/bin/perl -w\n");
while(1)
{
print ">> ";
my $line=<>;
#chomp $line;
if($line eq "0;\n"){
print "Bye!\n";
last;
}
elsif($line eq "1;\n"){
open(CODES,">codes__.pl");
print CODES @codes;
close CODES;
system "/usr/bin/perl codes__.pl";
unlink "./codes__.pl";
@codes = ("#!/usr/bin/perl -w\n");
print "\n";
}
push @codes,$line;
}
[/quote]

   

直接输入 perl 然后写代码.
直接输入 perl 然后写代码，Win32 下的结束按 Ctrl+Z 然后按 Enter.

还是没什么实用价值。多行.
还是没什么实用价值。多行的 Perl 程序还是写在文件里易于更改和维护。短小的程序直接 perl -e 后面跟程序就可以了。