Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re (tilly) 2: (Golf) JAPH?

by tilly (Archbishop)
on May 17, 2001 at 05:54 UTC ( #81146=note: print w/ replies, xml ) Need Help??


in reply to Re: (Golf) JAPH?
in thread (Golf) JAPH?

If you are going to go through this trouble, name the file "Just another Perl hacker,\n" and then reduce it to:

die$0


Comment on Re (tilly) 2: (Golf) JAPH?
Download Code
Re: Re (tilly) 2: (Golf) JAPH?
by dws (Chancellor) on May 17, 2001 at 05:58 UTC
    Not quite. You need the "\n" at the end of the die() argument to keep it from spitting out the filename (again) and line number.

      I didn't miss that detail. Here is a Perl program that both writes and runs the script under Unix:
      my $filename = "Just another Perl hacker,\n"; open (OUT, "> $filename\0") or die "Cannot write '$filename': $!"; print OUT 'die$0'; close OUT; system "perl '$filename'";
      Do you see where the return is coming from now?

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (5)
As of 2014-07-29 09:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (212 votes), past polls