On Sat, Jul 10, 2010 at 1:35 AM, Steve Bertrand <st...@ipv6canada.com> wrote:
> lib/ISP/Transac.pm credit_card_payment
> lib/ISP/Transac.pm calculate_invoice_amount
[...]
> ...by appending the following lines to the above pipeline, and throwing
> it at perl with the -p arg:
>
> % egrep -r "sub \w+ {" * \
> | grep -v svn \
> | awk '{FS=":"} {print $1, " ", $2}' \
> | awk '{FS=" "} {print $1, " ", $3}' \
> | egrep "^lib/ISP/User.pm$" \
> | perl -p -e 's/.*\s+//'
>
> But alas, I get nothing, so I tried this as my last line, thinking that
> the input would be put in $_:
Hi,
I noticed that in subsequent implementation of this line, there was no
line-end anchor '$', but this regular expression would have matched
none of your output lines (there would have been more text after the
'.pm'), so was no input for your one-liner to process.
> | egrep "^lib/ISP/User.pm$" \
This was fixed in your later posts.
-d.
--
Damon Allen Davison
http://allolex.net
http://musicindustryrules.com
http://thegannet.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
