Question

我有一串像

这样的行

comments:[I#1278327] is related to office communicator.i fixed the bug to declare it null at first time.

我在这里搜索I#的索引，然后我希望整个单词意味着[I#1278327]。我是这样做的：

open(READ1,"<letter.txt");
while(<READ1>)
{
 if(index($_,"I#")!=-1)
 {
  $indexof=index($_,"I#");
  print $indexof,"\n";
  $string=substr($_,$indexof);##i m cutting that string first from index of I# to end then...
  $string=substr($string,0,index($string," "));
  $lengthof=length($string);
  print $lengthof,"\n";
  print $string,"\n";
  print $_,"\n";
 }
}

perl中是否有任何API在查找该行中的I#索引后直接找到字长。

Answer 1

您可以执行以下操作：

$indexof=index($_,"I#");
$index2 = index($_,' ',$indexof);
$lengthof = $index2 - $indexof;

然而，更大的问题是你使用Perl就好像它是BASIC一样。打印选定行的任务更加美观：

use strict;
use warnings;

open my $read, '<', 'letter.txt'; # safer version of open

LINE:
while (<$read>) {
        print "$1 - $_" if (/(I#.*?) /);
}

Answer 2

我会使用正则表达式，正则表达式允许您匹配模式("I#")并从字符串中捕获其他数据：

$_ =~ m/I#(\d+)/;

上面的行会匹配并将$1设置为数字。

请参阅perldoc perlre

如何在perl中根据该字符串的索引号获取整个单词

2 个答案: