希望大家帮我看下这段perl代码
# This program is to convert CSV format to SVMlight format data set
#!perl -w inputCSV outputSVML

use strict;
die "Usage: command in_set outputfile\n" if scalar(@ARGV) < 2;
my ($inputfile, $out_file ) = @ARGV;

my $line_num = 0;
my $counterp = 0;
my $countern = 0;
my $counter = 0;

open(IN, $inputfile) || die(" Can not open file(\"$inputfile\").\n");
open(OUT, "> $out_file") || die(" Can not open file(\"$out_file\").\n");

$line_num = 0;
while (<IN>)
{
chomp;
my $per_line = $_;
my @items = split(',', $per_line);

my $flag = $items[$#items];
if ($flag != 1) {
print OUT "-1";
$countern = $countern + 1;
}
else {
print OUT "1";
$counterp = $counterp + 1;
}

for($counter = 0 ; $counter < $#items ; $counter++)
{
my $temp = $counter + 1;
print OUT " $temp:$items[$counter]";
}
print OUT "\n";
$line_num = $line_num +1;
}

print "\n $line_num lines; pos: $counterp + rand: $countern \n\n";
close(IN);
close(OUT);


在matlab中执行：
cv_cmd = sprintf('!perl ../trainTest/convert_file_forSvm.pl %s %s > %s', testCSVfile, temp_test_file, garbage_file);
eval(cv_cmd);
出错，希望大家看看帮我解决一下！
谢谢！

[解决办法]
你在什么系统平台下?
如果是linux,应该是问题的,因为它缺省安装有perl,且已设好路径
如果是windows,首先你要确认你系统安装了perl,如果安装了perl,要将perl的执行路径加入你的PATH
或在程序中加入它的全路径:
cv_cmd = sprintf('!c:\\perl\\bin\\perl ...
[解决办法]
可以输出 cv_cmd 的内容来看看对不对