Path: utzoo!utgpu!news-server.csri.toronto.edu!clyde.concordia.ca!mcgill-vision!snorkelwacker!apple!usc!samsung!uunet!mcsun!hp4nl!mhres!squirrel!jv
From: jv@mh.nl (Johan Vromans)
Newsgroups: comp.lang.perl
Subject: Request concerning __END__
Message-ID: <1990Sep12.152018.2904@squirrel.mh.nl>
Date: 12 Sep 90 15:20:18 GMT
Sender: jv@squirrel.mh.nl (Johan Vromans)
Reply-To: Johan Vromans <jv@mh.nl>
Organization: Multihouse Automation, the Netherlands
Lines: 22

Is it a weird idea to always treat lines following __END__ as input
for the program, even if the program itself is not read from standard
input?

E.g. assume "t.pl" is executable and contains

    #!/usr/bin/perl
    while ( <> ) {
	print "-> $_";
    }
    __END__
    data1
    data2

Then "perl < t.pl" works, but "perl t.pl" and "t.pl" do not.

	Johan
-- 
Johan Vromans				       jv@mh.nl via internet backbones
Multihouse Automatisering bv		       uucp: ..!{uunet,hp4nl}!mh.nl!jv
Doesburgweg 7, 2803 PL Gouda, The Netherlands  phone/fax: +31 1820 62911/62500
------------------------ "Arms are made for hugging" -------------------------