Help for this page

Select Code to Download


  1. or download this
    $i=0; $j=0;
    while (<FIRE>) {
    ...
    $fval{$flat[$i]}{$flong[$i]}=$fvalue;
    $i++;
    }
    
  2. or download this
    virsfire_199801,-1,39.750000,-179.500000
    virsfire_199801,-1,39.750000,-179.000000
    virsfire_199801,-1,39.750000,-178.500000
    virsfire_199801,-1,39.750000,-178.000000
    
  3. or download this
    print "testing: $flat[1], $flong[1]\n";
    print "testing: $fval{39.750000}{-179.000000}\n";
    print "testing: $fval{$flat[1]}{$flong[1]}\n";
    
  4. or download this
    # ./join.pl 
    testing: 39.750000, -179.000000
    testing: 
    testing: -1
    [root@localhost newstore]#