Help for this page

Select Code to Download


  1. or download this
                                                                        
my %weight = ( );
foreach my $filename (keys %hoh) {
...
    printf "weight: %4d intensity: %d Filename: %s\n",
        $weight, $intensity, $filename;
}
  2. or download this
    weight: 1000 intensity: 4 Filename: FILENAME3
weight: 2000 intensity: 7 Filename: FILENAME2
...
weight: 4000 intensity: 3 Filename: FILENAME1
weight: 5000 intensity: 3 Filename: FILENAME2
weight: 6000 intensity: 3 Filename: FILENAME3