How to get program line number? 1

[TonyGroves]

Does anybody know how to get the current Perl source file line number?

Thanks.

 

[tchatzi]

What do you mean by current source file line number? Can you give an example? Is is gonna be used for debugging code?
you can put warning messages on the lines you want to check, if this is the reason.
Something like this maybe?

#!/usr/bin/perl -w
$foo=6;
if ($foo gt 5){
   print "It works\n"; warn " ";
}


OUTPUT
--------
It works
 at - line 3.

But I'm not sure if I this is what you want! Is it?


``The wise man doesn't give the right answers,
he poses the right questions.''
TIMTOWTDI

 

[mbrooks]

If you mean line total of a script. On the command line in UNIX you can use

% cat script.pl | wc -l

M. Brooks

http://mbrooks.info

 

[PaulTEG]

If you've got an error, perl gives that in the output

looking here

http://perldoc.perl.org/perlvar.html#Predefined-Names,

doesn't seem there is one

try using warning statements to trace the right line number would be one idea

use CGI::Carp qw /fatalsToBrowser/;
{...
   Block1
...} warn "completed block 1";
...

HTH
--Paul

Paul
------------------------------------
Spend an hour a week on CPAN, helps cure all known programming ailments ;-)

 

[KevinADC]

you can use __LINE__ but nobody here, including me, knows what you want to do.

 

[mbrooks]

you can use __LINE__ but nobody here, including me, knows what you want to do.

LOL!

M. Brooks

http://mbrooks.info

 

[TonyGroves]

Thanks for all the replies and sorry for not responding sooner, but I was asleep in bed, it's something I do every night. __LINE__ does exactly what I'm looking for. The star goes to KevinADC.