看到你的百度知道,有个问题希望能帮我一把,写一段perl.

稍微改下之前给你的代码,
#!usr/bin/perl
use warnings;
use strict;
use Getopt::Long;
my $testFile;
GetOptions("testFile:s" => \$testFile,
);
print "not exist testFile\n" if ( ! -e $testFile);
open (IN,"