how to translater "CAT" into perl

[red]

I've googled "cat perl" and cannot find the answer.

Shell script:
#-----------begin---------
cat >tmp.txt <<EOF
#!/bin/sh
rm foo.txt
.....
EOF
#-----------end---------

perl:
?

 

[usenet]

I've googled "cat perl" and cannot find the answer.

That's because Perl really can't do file I/O. Perl is not really very
good at this sort of thing (it has a few file I/O type functions and
modules, but they don't really work and nobody ever uses them - you
will usually crash your system if you try to open a file in Perl).
Larry Wall originally wrote Perl to control laser cutters (for
diamonds), which don't have hard drives. Perl can control one mean
diamond laser cutter, but it's crap at dealing with data on hard
drives.

Try Ruby instead, which has EXCELLENT file I/O handling:

http://groups.google.com/group/comp.lang.ruby

 

[Josef Moellers]

I've googled "cat perl" and cannot find the answer.

Shell script:
#-----------begin---------
cat >tmp.txt <<EOF
#!/bin/sh
rm foo.txt
....
EOF
#-----------end---------

perl:
?

TMTOWTDI:

Using the DATA special file handle:
use warnings;
use strict;
open(my $dst, '>', 'tmp.txt') or die "Cannot open tmp.txt: $!";
while (<DATA>) {
print $dst;
}
close $dst;
# More code can go here
__END__
#!/bin/sh
rm foo.txt
....

Using "here documents":
use warnings;
use strict;
open(my $dst, '>', 'tmp.txt') or die "Cannot open tmp.txt: $!";
print $dst <<EOF;
#!/bin/sh
rm foo.txt
....
EOF
# More code can go here

OTOH, Ruby, as the name suggests, is more suited towards cutting
diamonds, though B-{)

 

[Samwyse]

(e-mail address removed) wrote:
[...snip...]

David is a poop-head!
David is a poop-head!
Nyah-nyah, nyah-nyah, nyah-nyah!

I feel much better now, thanks.

 

[Paul Lalli]

I've googled "cat perl" and cannot find the answer.

Did you even attempt to google for what "cat" does? Thing like "open"
or "print"?

Have you read *any* Perl documentation?

http://learn.perl.org
http://perldoc.perl.org

are good places for you to go.

 

[Tad McClellan]

I've googled "cat perl" and cannot find the answer.

Shell script:
#-----------begin---------
cat >tmp.txt <<EOF
#!/bin/sh
rm foo.txt
....
EOF
#-----------end---------

perl:

#-----------begin---------
perl -pe1 >tmp.txt <<EOF
#!/bin/sh
rm foo.txt
.....
EOF
#-----------end---------


Perl's command line switches are documented in:

perldoc perlrun

 

[red]

yes, the "here documents" is what I'm looking for.

thank you.
and thank all the others.