Как найти строку совпадение в файле и распечатать все строки, которые находятся после нее?

Question

[V Federoff]

Имеем, например, файл с таким содержимым:

AAA
BBB
CCC
DDD
EEE
GGG

Есть задача найти в нем строку CCC и расечатать только остальное содержимое файла.

Каким образом это реализовать на Perl?
Спасибо.

Answer 1

[vaut]

perl -ne '$print=1 if /pattern/; print if $print'

Мне тут подсказали что есть более изящное решение:
perl -ne 'print if /pattern/ .. eof'