Re^3: __END__ without __BEGIN_

Replies are listed 'Best First'.
Re^4: __END__ without __BEGIN__? by CountZero (Bishop) on Mar 29, 2005 at 21:30 UTC
`b@d #! perl; print 'ignore b@d'; die;` [download] Will do what you want if started as `perl -x your_script.pl` CountZero "If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law	[reply] [d/l] [select]
Re^4: __END__ without __BEGIN__? by ktross (Deacon) on Mar 29, 2005 at 21:21 UTC
~~Hmmm, still requires the addition of code "<<END" before the data.~~ Update: Yeah, I know I was wrong. Joost's solution works.	[reply]
Re^5: __END__ without __BEGIN__? by Joost (Canon) on Mar 29, 2005 at 21:27 UTC
No it doesnt, that's just a shell heredoc. `in somefile... bla bla bal #!perl execute() __END__ bla bla bla` [download] end then... `> perl -x somefile` [download] see perlrun. "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l] [select]
Re^5: __END__ without __BEGIN__? by bmann (Priest) on Mar 29, 2005 at 21:38 UTC
The heredoc joost used is quoting for his shell, not perl. Put the following in a file (443263.pl, in my case) then run it using the -x command line switch. `bla bla bla ignored #!perl #stuff_to_execute(); print "Hello, world!\n"; __END__ bla bla` [download] `Output without -x: C:\S>perl 443263.pl syntax error at 443263.pl line 6, near "ignored" Execution of 443263.pl aborted due to compilation errors. With -x: C:\S>perl -x 443263.pl Hello, world!` [download] see perlrun for details	[reply] [d/l] [select]