$ cat test2.pl #!/usr/bin/perl my $god; sub test { my ($param) = @_; print $param; return } __END__ $ cat test.pl | perl -ne 'print "$. $_" if /^sub/ .. /[}]/' 5 sub test { 6 my ($param) = @_; 7 print $param; 8 return 9 }
In reply to Re: $. - smarter than you might think
by codeacrobat
in thread $. - smarter than you might think
by GrandFather
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |