-4

我有一个文本文件，我想使用substring函数根据它们的偏移值查找字符串。

我的输入文件是这样的：

[1] Line one
[2] Line two
[3] Line three

我的代码是：

use strict;
use warnings;

my $f2 = 'Test.txt';
my ($text, $str);
  open (FH1, $f2) || die;
  $text = join '', <FH1>;
  $str  = substr($text, 16, 5);
  print $str,"\n";

需要在匹配的文本中找到作为第一个单词出现的数字。

输出应该看起来像

[2]--Line

匹配的字符串是“Line”，该行的第一个单词是[2]。

4

1 回答 1

0

有关 substr 函数的信息，请参阅它的文档：

http://perldoc.perl.org/functions/substr.html

这个函数的一般形式是：

    substr EXPR,OFFSET,LENGTH

还要注意您使用的是 substr($text,16,5)，但菱形逐行读取文件（因为您在标量上下文中使用它，所以 16 是从哪里来的？？您必须从开始。有关 Perl 运算符的信息，请参阅 perlop：

http://perldoc.perl.org/perlop.html

于 2013-07-17T05:33:09.740 回答