区块链毕设网qklbishe.com为您提供问题的解答

已知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;

执行结果：

所以题目使用$2,而非$1

以上就是关于问题已知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;的答案

欢迎关注区块链毕设网-
专业区块链毕业设计成品源码，定制。

区块链NFT链游项目方科学家脚本开发培训