To complete the above answers, you can have a look at
How can I read in an entire file all at once?

hth,
PooLpi

Thanks, this solved it :-)
My Website

local $/ = undef; #slurp entire file
my $string;
open (my $FH, '<', $file1);
$string = <$FH>;
close $FH;
open (my $FH, '<', $file2);
$string .= <$FH>; #notice the concatenation
close $FH;
[download]

It would be better to minimise the change to the global $/ (record separator) variable, as this may cause action at a distance in some other part of the code (or a module). This is done by reducing the scope to the shortest possible block.

You are also repeating yourself. This is not good.

my $string = slurp($file1) . slurp($file2);

sub slurp {
    my $file = shift;
    open $fh, <, $file or do {
        warn "Failed to open $file for input: $!\n";
        return '';
    }

    local $/ = undef;
    return <$fh>;
    # $fh goes out of scope, file closed automatically
}
[download]

• another intruder with the mooring in the heart of the Perl

undef $/; #slurp entire file
[download]

That's a very bad idea. You must *NOT* modify special globals like that. Use localised versions and a minimal scope...

From analyzing your question I'd assume that you try to handle the content of each file as a string for itself (no concatenation).

About one month ago you asked almost the same question w/different wording.

Please do give us some more words of "problem description" next time ;-)

(My interpretation of your question follows:)

my ($filename1, $filename2) = qw( adaykin1.txt adaykin2.txt );
my @string;

for my $fn ($filename1, $filename2) {        # iterate over given file
+names
 open my $fh, '<', $fn or die "$fn - $!";    # open each file
 local $/; push @string, <$fh>               # read it into one string
}
# 
print $string[0]; # first file as one big string
print $string[1]; # second file as one big string
...
[download]

Regards

mwa

Well it wasn't the same question. Read the last one again and you'll see. What I meant in this question was to read every single character in a file and save every single character in the file into one string. And yes the File::Slurp was exactly what I was looking for this time. Code is working perfectly now, thanks!
My Website

use strict;
use warnings;
use File::Slurp;

my $bigfile = read_file ('file1') . read_file ('file2');
print "$bigfile\n";
[download]