Re: Here there be camels!

A bit cryptic, I need to guess what you mean.

You want to throw warnings, but with different line number and file reported?

update

I think there should be more straight forward methods, but neither warn nor Carp mention "line".

So, here a hack, till someone comes with something cleaner.

sub warn_from {
    my ($line,$file,$text) =@_;

    eval <<"__CODE__";
#line $line $file;
warn \$text;
__CODE__
}


warn_from(42,'captain.pl', "I say what!");
[download]

-->

/usr/bin/perl -w /home/lanx/warn_new.pl 
I say what! at captain.pl; line 42.
[download]

Cheers Rolf
_{(addicted to the Perl Programming Language and ☆☆☆☆ :)}

PS: Je suis Charlie!

Comment on Re: Here there be camels! Select or Download Code

Replies are listed 'Best First'.
Re^2: Here there be cammels! by hildred (Initiate) on Feb 28, 2015 at 22:21 UTC
if you do this: `foreach(<>){ warn $_; }` [download] you get `<text> at dummy.pl line 5, <> line 6` I want to do that.	[reply] [d/l] [select]
Re^3: Here there be camels! by LanX (Saint) on Feb 28, 2015 at 22:27 UTC
> I want to do that. And your problem is ...? Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :)} PS: Je suis Charlie! PS: see How do I post a question effectively?	[reply]
Re^4: Here there be camels! by hildred (Initiate) on Feb 28, 2015 at 22:31 UTC
In the second pass the file is closed.	[reply]
Re^5: Here there be camels! by LanX (Saint) on Feb 28, 2015 at 22:40 UTC