in reply to 'perl -e' and '__DATA__' What's wrong?

The -e switch tells perl to treat the next argument on the command line as a script.

The __DATA__ token causes perl to re-open $0, seek to the position of the __DATA__ and leave the filehandle DATA open pointing to the contents after that line. 

$ perl -le 'print $0'
-e

[download]
I'm not surprised a file handle cannot be associated with text passed into perl as a command line argument. -e is no file proper.

Maybe you could use 

$ perl -e 'print <<EOT;
example
data
EOT
'

[download]

instead.

--shmem 

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

Replies are listed 'Best First'.
Re^2: 'perl -e' and '__DATA__' What's wrong?
by Skeeve (Parson) on Dec 07, 2007 at 09:57 UTC

    Unfortunately <<'EOT' has the same limitations as using <<<, meaning: STDIN is already used for the script and so I can't pipe other content in.

    My current solution is, that I use a variable like this: 

    my $DATAvar = <<'EOT';
example
data
here
EOT

    [download]
    s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
    +.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e
[reply]
[d/l]
[select]
      STDIN is already used for the script and so I can't pipe other content in

      I'm probably misunderstanding something but

      $ cat cccc
zzz
999
$ cat cccc | perl -e '
> print <<'EOT';
> abc
> 123
> EOT
> print while <>;'
abc
123
zzz
999
$

      [download]

      I can read from STDIN here. Have I got the wrong end of the stick?

      Cheers,

      JohnGG

[reply]
[d/l]
[select]
        That's exactly what I needed with additional __DATA__. Now replace -e with <<< or with the <<'EOT' proposed and you'll see what I meant.
        s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
        +.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom