Help for this page

Select Code to Download


  1. or download this
    my ( $key, %data );
while ( <FH> ) {
...
        $data{ $key } .= $_;
        }
    }
  2. or download this
    my ( $key, %data );
while ( <FH> ) {
...
        push @{ $data{ $key } }, $_;
        }
    }
  3. or download this
    my ( $key, @data );
while ( <FH> ) {
...
        push @{ $data[ -1 ] }, $_;
        }
    }
  4. or download this
    my ( $key, @data );
while ( <FH> ) {
...
        $data[ -1 ] .= $_;
        }
    }