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?

Expand|Select|Wrap|Line Numbers

 
open(FH, "$file");

    my @output = <FH>;

    close FH;

foreach $logmsg (@output)

    {

        $sdpString = "$sdpString" ."$logmsg";
 
    }

KevinADC

Expand|Select|Wrap|Line Numbers

 
open(FH, $file) or die "$!";

my $sdpString = do{local $/; <FH>;};

close FH;

print $sdpString;

chaosprime

I typically do like so:

Expand|Select|Wrap|Line Numbers

 
      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

Quote:

Originally Posted by chaosprime

I typically do like so:

Expand|Select|Wrap|Line Numbers

 
      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.

reading file into string

re: reading file into string

re: reading file into string

re: reading file into string

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about