Help for this page

Select Code to Download


  1. or download this
    Line_1:Line_1_1
    Line_2:Line_2_2
    Line_3:Line_3_3
    Line_4:Line_4_4
    
  2. or download this
    Line_5:Line_5_5
    Line_6:Line_6_6
    
  3. or download this
    Line_7:Line_7_7
    Line_8:Line_8_8
    Line_9:Line_9_9
    Line_10:Line_10_10
    
  4. or download this
    my $i = 0;
    while (<>) { # read from @ARGV
    ...
        push @{ $value[$i++] }, /:([^:]+)/; # get timestamp
        $i = 0 if eof;
    }
    
  5. or download this
    my $i = 0;
    my $filecount = 0;
    ...
            ++$filecount;
        }
    }
    
  6. or download this
    if (!exists $value[$line]->[$file]) {
      # no value assigned, there is a hole in the array
    } else {
      # value assigned
    }