Sticking output onto the end of your script.

tphyahoo has asked for the wisdom of the Perl Monks concerning the following question:

I want to be sticking output of simple scripts, onto the end of my script. Mainly, just because it would be convenient for answering/posing Perlmonks questions.

Currently I'm doing this

#filename: stickOutputOnEnd.pl
use warnings;
use strict;

open F, ">>stickOutputOnEnd.pl";
print F "\nThis should be appended to my perl program.";
close F;
__END__
This should be appended to my perl program.
[download]

Works ok, but is there a more elegant way?

Comment on Sticking output onto the end of your script. Download Code

Replies are listed 'Best First'.
Re: Sticking output onto the end of your script. by grinder (Bishop) on Mar 15, 2005 at 13:42 UTC
What about: `#! /usr/local/bin/perl -w open OUT, ">> $0" or die "erk: $!\n"; print OUT "$_\n" for @ARGV __END__` [download] - another intruder with the mooring in the heart of the Perl	[reply] [d/l]
Re: Sticking output onto the end of your script. by perlfan (Parson) on Mar 15, 2005 at 14:43 UTC
How about: `#!/usr/bin/perl -w use strict; print "Hello, world\n"; __END__ Hello, world Hello, world Hello, world ...` [download] Then redirect the STDOUT at the commandline: `#helloworld.pl >> helloworld.pl` [download]	[reply] [d/l] [select]
Re^2: Sticking output onto the end of your script. by tphyahoo (Vicar) on Mar 15, 2005 at 15:00 UTC
Duh! Okay, I'm doing that.	[reply]
Re: Sticking output onto the end of your script. by merlyn (Sage) on Mar 15, 2005 at 15:13 UTC
Use Inline::Files: `use Inline::Files; open STDOUT, ">"; print "Hello, world\n";` [download] When you run it, all the output will be below your program: `use Inline::Files; open STDOUT, ">"; print "hello, world\n"; __STDOUT__ hello, world` [download] -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply] [d/l] [select]
Re: Sticking output onto the end of your script. by BrowserUk (Patriarch) on Mar 15, 2005 at 13:57 UTC
Run, Select, Copy Alt-TAB, Paste :) Examine what is said, not who speaks. Silence betokens consent. Love the truth but pardon error. Lingua non convalesco, consenesco et abolesco.	[reply] [d/l]
Re: Sticking output onto the end of your script. by legato (Monk) on Mar 15, 2005 at 18:06 UTC
The simple solution is to use this module I just whipped up (SelfRecord.pm): `package SelfRecord; use strict; open SELF, '>>', $0 or warn("huh?: $!"); select SELF; $\|=1; print "\n__END__\n"; 1;` [download] This is used simply, so that: `#!/usr/bin/perl -w use strict; require SelfRecord; print "Hello!"` [download] Becomes: `#!/usr/bin/perl -w use strict; require SelfRecord; print "Hello!" __END__ Hello!` [download] When run. Anima Legato `.oO all things connect through the motion of the mind`	[reply] [d/l] [select]