in reply to upto match please, my one-lina!!
So it can run also under use strict:
perl -Mstrict \ -ne'/regex(?{print @@; exit})/;' \ -e'shift(@@) if push(@@,$_)>5' file
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: upto match please, my one-lina!!
by NetWallah (Canon) on Jun 09, 2006 at 04:39 UTC |
In Section
Seekers of Perl Wisdom