Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: Is there a better way to use the line number in a quoted string than __LINE__?

by haukex (Archbishop)
on Mar 07, 2021 at 08:43 UTC ( [id://11129249]=note: print w/replies, xml ) Need Help??


in reply to Is there a better way to use the line number in a quoted string than __LINE__?

Line 4 is still a lot of fanning-about, but it doesn't even compile

"@{[__LINE__}]" is a syntax error because you've swapped the } and ] - "@{[__LINE__]}" works fine.

some convenient token such as $LINE (or $__LINE__ or whatever I can just embed in double-quotes)

Nope, at least not built in, sorry. __LINE__ is like a function call, as of Perl 5.16 you can even write it as __LINE__().

Personally, I'd suggest living with the "fanning-about" or writing a helper function to output debug info (e.g. using caller). (Update: TIMTOWTDI - AnomalousMonk's printf suggestion is nice too. Personally, if it was a case where I didn't feel like it's worth it to write a helper, I'd probably write print "Line ",__LINE__,"\n";)

But since this is Perl, of course there's also a way to hack it:

use warnings; use strict; { package LineNumber; sub TIESCALAR { bless {}, shift } sub FETCH { (caller)[2] } } tie my $LINE, 'LineNumber'; print "Line $LINE\n"; print "Line $LINE\n";

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11129249]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having a coffee break in the Monastery: (7)
As of 2024-03-29 12:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found