Help for this page

Select Code to Download


  1. or download this
    while (<IN>) {
  chomp;
  my ($name) = /([^:]+)/;
  @{ $users{$name} }{ @fields } = split /:/;
}
  2. or download this
    chomp(@{$users{(/([^:]+)/)[0]}}{@fields} = split /:/) while <IN>;