如何在perl中提取子字符串

Question

我是 perl 新手，需要你的帮助。

我正在读取目录中文件的内容。 我需要从包含*.dat的文件中提取子字符串@

示例字符串：

1) # **   Template Name: IFDOS_ARCHIVE.dat

2) # **  profile for IFNEW_UNIX_CMD.dat template  **

3) # ** Template IFWIN_MV.dat **

需要提取：

1) IFDOS_ARCHIVE.dat

2) IFNEW_UNIX_CMD.dat

3) IFWIN_MV.dat

我的代码：

if(open(my $jobprofile, "./profiles/$vitem[0].profile")) {
   my @jobprofiletemp = <$jobprofile>;
   close($jobprofile);
   @proftemplates = grep /.dat/,@jobprofiletemp;

   my $strproftemp = $proftemplates[0];
   my ($tempksh) = $strproftemp =~ / ([^_]*)./;
   print "tempksh: $tempksh","\n";
} else { warn  "problem opening ./$_\n\n"; }

我的正则表达式不工作。 你有什么建议？

Answer 1

我认为你会更好：

while (<$jobprofile>) {
  if ( /(\S+)\.dat/ ) {
    print "$1\n";
  }
}

（while 是为了确保您解析每一行）

正则表达式查找一系列非空白字符 (\S)，后跟 .dat。

\S+ 周围的括号将该部分的匹配捕获到特殊变量 $1。

Answer 2

试试这个

open my $fh,"<","file.txt";

while (<$fh>)
{   
    next if /^\s+/; #skip the loop for empty line 
    ($match) = /\s(\w+\.dat)/g; # group the matching word and store the input into the $match
    print "$match\n";
}

或者干脆试试 perl one liner

perl -ne'    print $1,"\n" if (m/(\w+\.dat)/)    ' file.txt

或者你正在使用 linux 尝试使用 linux 命令来进行操作

grep -ohP '\w+\.dat' one.txt

o 只显示匹配的元素

h 用于显示不带文件名的输出

P 用于 perl 正则表达式