Re^2: Read bzip2 directly into array

Sorry, I forgot to define the array when I type the code here.

 
    #!/usr/bin/perl
    use Data::Dumper;
    use strict ;
    use warnings ;
    use IO::Uncompress::Bunzip2 qw(bunzip2 $Bunzip2Error) ;
    use IO::File ;
    my $input = new IO::File "<tmp.bz2" or die "Cannot open 'tmp.bz2':
+ $!\n" ;
    my @apple;
    my $buffer = \@apple;
    bunzip2 $input => $buffer or die "bunzip2 failed: $Bunzip2Error\n
+";
    foreach (@{$buffer})
    {
        if (/good(.*)/)
        {
            print $1;
        }
    }
[download]

This is the code I wrote to read a txt contain in tmp.bz2 which contain: goodmorning goodbye goodafternoon and supposed to output: morning bye afternoon but it doesn't work.

Comment on Re^2: Read bzip2 directly into array Download Code

Replies are listed 'Best First'.
Re^3: Read bzip2 directly into array by Happy-the-monk (Canon) on Apr 03, 2012 at 11:45 UTC
`... if (/good(.)/)`* This is much better. Although `$buffer` now contains: `$VAR1 = \[ \'goodmorning goodbye goodafternoon ' ];` [download] So although there's your array, it only contains scalar value referenced inside. I think that's not the behaviour you expected from the IO::Uncompress::Bunzip2 documentation talking about arrays. There it says: If $output is an array reference, the uncompressed data will be pushed onto the array. That is, all of the bunzipped data is pushed onto the array, so you can fill your array with data from several bunzipped files. Change the matching to `if ($$_ =~ /good(.*)/)` to make your code output the value. If you also want to break the result into a list, use split to do that. Cheers, Sören	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Read bzip2 directly into array
by Happy-the-monk (Canon) on Apr 03, 2012 at 11:45 UTC

... if (/good(.*)/)

This is much better.
Although $buffer now contains:

$VAR1 = \[
            \'goodmorning goodbye goodafternoon
'
          ];
[download]

So although there's your array, it only contains scalar value referenced inside. I think that's not the behaviour you expected from the IO::Uncompress::Bunzip2 documentation talking about arrays.
There it says:

If $output is an array reference, the uncompressed data will be pushed onto the array.

That is, all of the bunzipped data is pushed onto the array, so you can fill your array with data from several bunzipped files.

Change the matching to if ($$_ =~ /good(.*)/) to make your code output the value.

If you also want to break the result into a list, use split to do that.

Cheers, Sören

[reply]
[d/l]