Re^2: __END__ without __BEGIN_

Replies are listed 'Best First'.
Re^3: __END__ without __BEGIN__? by Joost (Canon) on Mar 29, 2005 at 21:03 UTC
There is such a construct if you use the -x switch: `>perl -x <<END bla bla bla ignored #!perl stuff_to_execute(); __END__ bla bla END` [download] updated: `s/<END/<<END/` "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l] [select]
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]
Re^3: __END__ without __BEGIN__? by CountZero (Bishop) on Mar 29, 2005 at 21:22 UTC
You could probably do that (more or less) using source filters. `use Filter::ignore-until-BEGIN-token; b@d __BEGIN__ print 'ignore b@d'; die;` [download] Now all that has to be done is writing the `Filter::ignore-until-BEGIN-token`-filter. We will leave that as an exercise for the reader. ;-) 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^3: __END__ without __BEGIN__? by eric256 (Parson) on Mar 29, 2005 at 21:25 UTC
At first glance it seems that this would be something easily accomplished with a source filter. Of course it's entirely possible I'm wrong since you would then be asking it to forget that it loaded the source filter. ___________ Eric Hodges	[reply]
Re^4: __END__ without __BEGIN__? by ihb (Deacon) on Mar 30, 2005 at 09:24 UTC
You can easily remove a source filter. The function in Filter::Util::Call for that is `&filter_del`. Filter::Simple has the "terminator" switch you can set. `ihb` See perltoc if you don't know which perldoc to read!	[reply] [d/l]