Help for this page

Select Code to Download


  1. or download this
    my %hash
    $hash{$.} = $_ while <>;
    
  2. or download this
    my @lines = <>;
  3. or download this
    my @matched_idxs = grep {$lines[$_] =~ /$re/} 0 .. $#lines;