linsea的专栏

#!/usr/bin/perl #3.1recat.pl #把提供的内容反序输出，与cat命令相反的功能。 @line=(<STDIN>); @reline = reverse @line; print @reline; #另一个方法： #print reverse (<STDIN>);  =============== #!/usr/bi...

我们在看电子书时,有时遇到源代码,想直接复制过来就可以运行,但一般书中为了便于讲解,会在源代码文件中每行都加上行符,如果代码很长时,自己复制过来再在文件中手功一行一行地把前导行号删除是很麻烦的. 这里提供一个用Perl写的脚本,可以自动把前导行号去掉. 使用方法:  ./delnum.pl  sourceFile NewFile 其中sourceFile是有行号的源代码文件,NewFile是...

#!/usr/bin/perl #argvtest.pl #run example: #./argvtest.pl a0 a1 a2 #a0 -> ARGV[0] #a1 -> ARGV[1] #a2 -> ARGV[2] # $#ARGV=2 #note the difference: $aaa=@ARGV; print $#ARGV , "...