Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Re: Line Numbers

by davido (Cardinal)
on Oct 17, 2003 at 21:42 UTC ( [id://300179]=note: print w/replies, xml ) Need Help??


in reply to Re: Line Numbers
in thread Line Numbers

Note that __LINE__ is usually relative to the top of the script's file:

print __LINE__, "\n"; print __LINE__, "\n"; eval {print __LINE__, "\n";}; __OUTPUT__ 6 7 8

The preceeding code prints three sequential numbers. I bring this up because it could be guessed (or hoped) that __LINE__ might be relative to the top of the code being processed in the eval block. In fact, it is not, if it uses eval's {block} syntax.

However, __LINE__ will return a different result if you wrap the eval'ed code in quotes. See the following code:

print __LINE__, "\n"; print __LINE__, "\n"; eval "print __LINE__,qq/\n/; print __LINE__,qq/\n/; die()"; print $@, "\n"; print __LINE__, "\n"; __OUTPUT__ 6 7 1 3 Died at (eval 1) line 5. 12

As you can see, that code prints the 6 and 7 as absolute file linenumbers. But the 1 and 3 are loosely relative to the quoted eval material. The "line 5" generated by trapping the die shows the odd behavior that in the case of lines of code eval'ed within quotes line numbers seem to skip a number for each line. Finally, the printing of '12' indicates that once back outside the eval function, the original numbering scheme resumes, unaffected by eval's apparent reset of __LINE__. So line must be localized within quoted eval strings.

I'd be interested in seeing any documentation for this behavior.


Dave


"If I had my life to do over again, I'd be a plumber." -- Albert Einstein

Replies are listed 'Best First'.
Re: Re: Re: Line Numbers
by BrowserUk (Patriarch) on Oct 17, 2003 at 22:37 UTC

    The problem here is that your "\n" line ending within your eval string are being interpolated before the string is eval'd. Effectively, you are double spacing your lines of code. escaping the "\n"s, make the problem go away.

    P:\test>perl print __LINE__, "\n"; print __LINE__, "\n"; eval "print __LINE__,qq/\\n/; print __LINE__,qq/\\n/; die()"; print $@, "\n"; print __LINE__, "\n"; ^Z 1 2 1 2 Died at (eval 1) line 3. 7

    I've fairly recently started coding my (rare) uses of eval like this.

    #! perl -slw use strict; print __LINE__; print __LINE__; eval <<"EOS"; # line 1 "@{[__PACKAGE__]} eval @ line @{[__LINE__]}" warn; warn; die(); EOS print $@; print __LINE__; __END__ P:\test>junk 4 5 Warning: something's wrong at main eval @ line 6 line 1. Warning: something's wrong at main eval @ line 6 line 2. Died at main eval @ line 6 line 3. 14

    This allows you to get very useful error messages from within the evals, telling you not only which line number within the eval failed and why, but also the package name and line number at which the eval is located. Not so important when the eval is in main as here, though knowing which line number is useful if there are more than one in the file, but it really comes into it's own when the eval is located in a module.


    Examine what is said, not who speaks.
    "Efficiency is intelligent laziness." -David Dunham
    "Think for yourself!" - Abigail
    Hooray!

      I've fairly recently started coding my (rare) uses of eval like this.

      Hmmm... that might be a nice pragmatic module: one that steals the standard eval() and prefixes any string eval with package and line number of caller:

      use strict; use warnings; BEGIN { *CORE::GLOBAL::eval = sub {print "standard eval replaced!\n"}; } eval "print qq{Hello world!\n}"; __END__ Hello world

      Alas, it seems that the standard eval() cannot be replaced. ;-(

      Liz

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others sharing their wisdom with the Monastery: (6)
As of 2024-03-28 22:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found