Help for this page

Select Code to Download


  1. or download this
    while (@rows) {
    my %row_data;      # a hash for my data list
    $row_data{FILES} = shift @rows;
    push( @loop_data, \%row_data );
}
  2. or download this
    for my $row (@rows) {
  push( @loop_data, {FILES => $row} );
}
  3. or download this
    for (@rows) {
  push( @loop_data, {FILES => $_} );
}
  4. or download this
    @loop_data = map { {FILES => $_) } @rows;