Re^2: Standard way for displaying a script's output.

[Xiong]

Except that it's legitimate to store data after any __DATA__; even after __END__ in main.

use strict;
use warnings;
use SelfLoader;
sub daily { sleep int rand };   # work work work
print plimsoll() if shift; 
daily;
__END__
sub plimsoll { "http://en.wikipedia.org/wiki/Samuel_Plimsoll\n" };

[JavaFan]

Except that it's legitimate to store data after any __DATA__; even after __END__ in main.

So what? Don't forget the audience isn't brainless computers, but humans. I believe that most readers of Perlmonks are smarter than the average houseplant, and don't have trouble spotting the difference between a program that tries to be Miss Smartypants by reading data after an __END__ token, and a program that has its output after an __END__.

[choroba]

Yes, but the point might have been you cannot mix both input and output in this way.

[Anonymous Monk]

Sure you can, that is why each code tags section gets its own download link

my $data = <<'<<DATA';
Dont you put me after  __DATA__ you human
<<DATA

open my($fh), '<', \$data;
while(<$fh>){
  print length, "\n";
}
__END__

42

besides, when human copy/paste, human edit :)