已知test.txt文件内容如下:
TESTName test
TESTFile/Directory test.txt/test
TESTIN stasta
TESTOUT ataata
以下Perl程序的输出结果是什么?
open TXT,"<test.txt",or die $!;
while(<TXT>){
if($_=~/TESTFile(.+\s+)(.+)$/){
my $content =$1;
if (length $content>8){
my @splitCon = split /\/|\s+/,$content;
print "TESTFile:$splitCon[2];TESTDirectory:$splitCon[3]";
} else {
print "TESTFile:$content";
}
}
}
close TXT;