comment on

Hi anonymous monk, yes I'm still finding this confusing.

Well hold onto your pants :)

You mentioned it is confusing $dataset for a hashref.

Look at the @beef equivalent example, it is this line that dies with Can't use an undefined value as an ARRAY reference

 my @beef = @{ $dataset->{ $col[0] } };
[download]

This line is really

my $key  = $col[0] ;
my $meat = $dataset->{ $key };
my @beef = @{ $meat };
[download]

I misspoke when I said it is confusing $dataset for a hashref , in actuality, $dataset is a hashref.

The problem is, $key is not in $dataset, so $meat is undef

Since meat is undef, trying to treat $meat as an array by de-referencing it, triggers a warning if you have warnings on, and triggers an error, if you have strict on.

## no warnings or errors
$ perl -e "print @{ undef() }; print 6"
6

## a warning is issued, but 6 still gets printed
$ perl -we "print @{ undef() }
Use of uninitialized value in array dereference at -e line 1.
6

## with strict the warning is fatal, 6 not printed cause program died
$ perl -Mstrict -we "print @{ undef() }
Can't use an undefined value as an ARRAY reference at -e line 1.
[download]

See References quick reference

To avoid this error, you might add

next unless $meat;
[download]

You don't want to disable strict :)

Lets take apart a simpler example, one that builds @data

push @{$data[$nr - 1]->{shift(@cols)}},\@cols;
[download]

aka

push @{ $data[ $nr - 1 ]->{ shift(@cols) } }, \@cols;
[download]

aka

push @{
    $data[ $fileCount ]->{
        shift @col
    }
},  \@col;
[download]

is really

my $Hashref = $data[ $fileCount ];
if( not $Hashref){
    $Hashref = $data[ $fileCount ] = {};
}
my $key = shift @col;
my $Arrayref = $Hashref->{ $key };
if( not $Arrayref ){
    $Arrayref = $Hashref->{ $key } = [];
}
push @{ $Arrayref },  \@col;
[download]

or even

my $Hashref = $data[ $fileCount ];
if( not $Hashref){
    my %newHashThatIsOnlyNamedHere;
    $Hashref = $data[ $fileCount ] = \%newHashThatIsOnlyNamedHere;
}
my $key = shift @col;
my $Arrayref = $Hashref->{ $key };
if( not $Arrayref ){
    my @newArrayThatIsOnlyNamedHere;
    $Arrayref = $Hashref->{ $key } = \@newArrayThatIsOnlyNamedHere;
}
push @{ $Arrayref },  \@col;
[download]

In reply to Re^5: Combining 3 files by Anonymous Monk
in thread Combining 3 files by garyboyd

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


more useful options
	PerlMonks