Reading from another file.

will has asked for the wisdom of the Perl Monks concerning the following question:

Sorry for the simple question, the guy who normally does this stuff for us is on vacation so I have been failing miserably trying to get something very simple to work. We have a script that has some hardcoded HTML in it which has been needing updates fairly often. Editing it in the middle of the file has gotten annoying, all I want to do is be able to set the variable to read the HTML from another file. I was able to read from another file, but it wouldn't get all the HTML. I think because of some characters it didn't like. Want to make sure the way I do it won't mess up like that or if it runs quickly. Really I just want in the script to be able to set $something = <everything in a separate file(will be all HTML) Any help would be greatly appreciated. Thanks for your time.

Comment on Reading from another file.

Replies are listed 'Best First'.
Re: Reading from another file. by ayrnieu (Beadle) on Mar 20, 2006 at 00:05 UTC
`#! /usr/bin/env perl use strict; use warnings; use File::Slurp qw/slurp/; # I am a unix filter! die "usage: <pattern> <file>\n" unless @ARGV == 2; my $p = $ARGV[0]; my $fc = slurp $ARGV[1]; while (defined($_ = <STDIN>)) { s/\Q$p/$fc/; print }` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re: Reading from another file.
by ayrnieu (Beadle) on Mar 20, 2006 at 00:05 UTC

#! /usr/bin/env perl
use strict;
use warnings;
use File::Slurp qw/slurp/;
# I am a unix filter!
die "usage: <pattern> <file>\n" unless @ARGV == 2;
my $p = $ARGV[0];
my $fc = slurp $ARGV[1];
while (defined($_ = <STDIN>)) {
  s/\Q$p/$fc/;
  print
}
[download]

[reply]
[d/l]