请问怎么打印出某一行到文件结束

loosy929

UID: 3889
帖子: 2
积分: 4
在线时间: 10 分钟

1^# loosy929 发表于 2008-09-22 17:59

请问怎么打印出某一行到文件结束

在shell中可以用 sed -n '/regular exp/, $p';
请问在perl中怎么实现啊？
如果那一行内容如此：CCODE/U2/1=3
多谢！

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

2^# churchmice 发表于 2008-09-22 20:24

[Copy to clipboard] [ - ]

CODE:

perl -ne 'print if (/\QCCODE/U2/1=3\E/ .. /dummy/)' your_file_here

其中dummy是一个你文件中不可能出现的字符串

ulmer

UID: 6072
帖子: 148
积分: 340
在线时间: 1 天 6 小时

3^# ulmer 发表于 2008-09-22 21:17

perl -ne 'print if /\QCCODE/U2/1=3\E/ .. eof' <FILE>

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

4^# forlorngenius 发表于 2008-09-22 21:25

这个问题我记得在perl被问了不下10次了。

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

5^# mouse.rice 发表于 2008-09-23 13:56

QUOTE:

类似 sed 程序里的“$”，eof 会显示行数范围。下面是一个打印从 /parrern/ 到每个输入文件结尾之间的行的脚本：

while (<>) {
print if /pattern/ .. eof;
}
这里，触发器操作符（..）为每一行进行模式匹配。在模式匹配上之前，该操作符返回假。当它最终匹配上的时候，该操作符开始返回真，导致行的打印输出。当 eof 操作符最终返回真（在被检查的文件的结尾），该触发器操作符被重置，并且开始为 @ARGV 里的下一个文件返回假。

警告：eof 函数读取一个字节然后用 ungetc(3) 把它退回输入流中，所以在交互的环境中没有什么用。实际上，有经验的 Perl 程序员很少使用 eof，因为各种输入操作符的行为 while 循环里已经很礼貌了。参阅第四章里的 foreach 的讨论。

---------------------《大骆驼》

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

6^# ynchnluiti 发表于 2008-09-23 14:31

QUOTE:

原帖由 forlorngenius 于 2008-9-22 21:25 发表
这个问题我记得在perl被问了不下10次了。

我说怎么觉得前几天刚看过。看来没记错

loosy929

UID: 3889
帖子: 2
积分: 4
在线时间: 10 分钟

7^# loosy929 发表于 2008-09-23 16:08

多谢各位。

提问之前已经试着查过历史记录了，不过没能找到，惭愧了。

大骆驼 p289, 多谢。