Re^2: Modify a line following a target line?

OK I think I understand this all for the most part, I've been working on files on a line by line basis for so long I didn't think I could break it up any other way. But of course something I imagine is pretty simple has got me stuck.

How do I get the entire content of a file into $file? I know how to read a file into @file, but I'm at a loss how to read the whole thing into $file to then split it up.

Comment on Re^2: Modify a line following a target line?

Replies are listed 'Best First'.
Re^3: Modify a line following a target line? by gwadej (Chaplain) on Jan 06, 2009 at 18:18 UTC
The canonical solution is: `my $file = do { local $/; <>; };` [download] But, we're in Perl, so there's more than one way to do it. `$file = join( '', <> );` [download] also works. Of course, you could look at File::Slurp for a CPAN-based solution that's a little more readable. PS. if you have an open filehandle in `$fh`, you would replace `<>` with `<$fh>` in the above, of course. G. Wade	[reply] [d/l] [select]