文本内容提取的脚本出错,请指点,谢谢

microsea

我想将文本中某段文字截取后输出,用指令方式执行可以成功:
perl -ne 'print if /^abc123/ .. /^abc222/' abc.txt

文件abc.txt内容:
abc123
111111111111
111111111111
222222222222
abc222
dddddddddddd
dddddddddddd

输出:
abc123
111111111111
111111111111
222222222222
abc222

如何将'print if /^abc123/ .. /^abc222/'写入脚本?我的脚本test.pl内容:
#!/usr/bin/perl -w
print if /^abc123/ .. /^abc222/ ;
会输出:
Use of uninitialized value in pattern match (m//) at ./test.pl line 2.

andyhua12

# more test.pl
#!/usr/bin/perl
use warnings;

while(<>) {

        print if /^abc123/ .. /^abc222/;

}

运行：perl test.pl abc.txt

microsea

万分感谢!