awk 一特殊用法 - Linux

#!/usr/bin/env perl
# It reads from STDIN

while ($string=<STDIN>) {
# push $string to @lines until reach numbers
push @lines, $string and next unless $string =~ /^\d+/;
# print @lines if last element is 'ccc'
print @lines if $lines[$#lines] =~ /ccc/;
# reset @lines with first element as numbers
@lines = ($string);
}

# handle end of file
print @lines if $lines[$#lines] =~ /ccc/;



Perl 處理文字真的超強，不考慮學一下嗎？XD

--