Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Reading from another file.

by will (Initiate)
on Mar 19, 2006 at 23:57 UTC ( #537831=perlquestion: print w/replies, xml ) Need Help??

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.

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 }

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://537831]
Approved by spiritway
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (3)
As of 2022-05-21 03:14 GMT
Find Nodes?
    Voting Booth?
    Do you prefer to work remotely?

    Results (76 votes). Check out past polls.