reading file into string

[jain236]

Hi ,
i have file of 32kb , i want to read the whole file into string ,
i tried this by doing the below code, but i dint got the whole content of the file in the string , i guess the variable is not able to hold the all data, is there any way where i can achive the same?

open(FH, "$file");
    my @output = <FH>;
    close FH;
foreach $logmsg (@output)
    {
        $sdpString = "$sdpString" ."$logmsg";
 
    }
 

[KevinADC]

open(FH, $file) or die "$!";
my $sdpString = do{local $/; <FH>;};
close FH;
print $sdpString;
 

[chaosprime]

I typically do like so:

      open(FH, $file) or die "$!";
      my $sdpString = join('', <FH>);
      close FH;
      print $sdpString;
 

I do want to say, though, that if it's in any way feasible for you to do whatever operation you're doing on one line of the file at a time, you ought to try doing it that way. The structure of Perl encourages you to do things one-line-at-a-time because it's a good idea.

[KevinADC]

I typically do like so:

      open(FH, $file) or die "$!";
      my $sdpString = join('', <FH>);
      close FH;
      print $sdpString;
 

I do want to say, though, that if it's in any way feasible for you to do whatever operation you're doing on one line of the file at a time, you ought to try doing it that way. The structure of Perl encourages you to do things one-line-at-a-time because it's a good idea.

Do it the way I show above, much more effcient than using join(), but if its a small file it won't matter much.