如何制作perl脚本

先装编译器Activeperl5.6，然后装个文本编辑器notepad++或ET之类的，在编辑器内编写完成后，如楼上那位仁兄说的，然后 用dos cd跳转，如果输入perl -v显示版本，说明你已经安装成功

我用的方法比较土， 你试试看吧。期待后面更精彩的

#!/usr/bin/perl

use warnings

open (INPUTF, $ARGV[0]) or die "can not open $ARGV[0] file"

open (OUTPUTF, ">$ARGV[1]") or die "can not open $ARGV[1] file"

$i=0

while ( <INPUTF>) {

last if ( $ARGV[2] == $i )

$i++

}

if ( $ARGV[2] == $i ) {

@cons=split(/(?=[\w\W])/)

if ( @cons >$ARGV[3] ) {

printf(OUTPUTF "%s", $cons[$ARGV[3]-1])

} else {

print "the $ARGV[2] lines do NOT have $ARGV[3] characters!\n"

}

} else {

print "$ARGV[0] do NOT have $ARGV[2] lines\n"

}

close INPUTF

close OUTPUTF

---