Help for this page

Select Code to Download


  1. or download this
    sub parseLines{
        my $content = do {
    ...
        }
        return \%hash;
    }
    
  2. or download this
        for ($content =~ /(.*\n?)/g) {
            my $line = $1;
    ...
            my ($header) = split(/ /, $line);
            $hash{$header} = 1;
        }