Newbie: perl program in a ksh here-document

[Jose Luis]

Hi,

#/usr/bin/ksh


cat kk|perl - <<-"EOF"

use strict;
use warnings;


while(<STDIN>)
{
print "$_";
}


EOF



The shell script program above doesn't print on screen the file "kk".
Any help?


Thanks in advance,
Jose Luis

 

[Alexander Bartolich]

[...]
cat kk|perl - <<-"EOF"
[...]

The shell script program above doesn't print on screen the file "kk".

I guess you are confusing »cat« with »echo«. Or do you actually have
a filed called »kk« containing nothing but the line »kk«?

 

[RedGrittyBrick]

Hi,

#/usr/bin/ksh


cat kk|perl - <<-"EOF"

use strict;
use warnings;


while(<STDIN>)
{
print "$_";
}


EOF



The shell script program above doesn't print on screen the file "kk".
Any help?

$ cat t.ksh
#!/bin/ksh
perl - kk<<EOF
use strict;
use warnings;
while(<>) {
print "\$_";
}
EOF

$ ./t.ksh
This is
what's in
file kk.


....


$ cat t.ksh
#!/bin/ksh
perl - kk<<EOF
use strict;
use warnings;
while(<>) {
print;
}
EOF

$ ./t.ksh
This is
what's in
file kk.

 

[Jose Luis]

Hi,

#/usr/bin/ksh

cat kk|perl - <<-"EOF"

use strict;
use warnings;

while(<STDIN>)
{
print "$_";

}

EOF

The shell script program above doesn't print on screen the file "kk".
Any help?

Thanks in advance,
Jose Luis

This can be solved with the -e perl's option.

Regards,
Jose Luis