问一下， 一下语言到底什么意思（我不懂perl )

[bccai]

push (@INC, "$ENV{FT_DIR}/bin");
require "ft.pl";

$pattern2 = ("TLink=1");
$ARGV[0] = ("C:\\status\\status.ini");
$filename1 = $ARGV[0];
$linenum1 = $matchcount1 = 0;
$linenum2 = $matchcount2 = 0;
while ($line = <>) {
$linenum1 += 1;
if ($line =~ /$pattern1/) {
@words1 = split(/$pattern1/, $line);
$matchcount1 += @words1 - 1;

}
}
$ARGV[0] = ("C:\\status\\status.ini");
$filename1 = $ARGV[0];
while ($line = <>) {
$linenum2 += 1;
if ($line =~ /$pattern2/) {
@words1 = split(/$pattern2/, $line);
$matchcount2 += @words1 - 1;
}
}
if ($matchcount1 != 0) {

if ($matchcount2 != 0) {
exit(0); # SUCCESS
}
else { $errCode = &ft::StartUtilProc("kill_Proc","$ft::CurrentNode",$FT::USE_DEFAULT_PARAMS,$FT::NULL_PARAM);
exit(1); # FAILURE
}
}
else { $errCode = &ft::StartUtilProc("kill_Proc","$ft::CurrentNode",$FT::USE_DEFAULT_PARAMS,$FT::NULL_PARAM);
exit(1); # FAILURE
}
exit (0);

[Faith_X]

ft.pl里面是什么啊

[俊才星驰]

perl 在用正则表达式统计pattern1和2的个数，然后根据个数给ft参数