Re: 'perl -e' and '__DATA__' What's wrong?

[shmem]

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

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
'

instead.

[Skeeve]

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

[johngg]

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
$

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

Cheers,

JohnGG

[Skeeve]

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.