Help for this page

Select Code to Download


  1. or download this
    my $students="students.txt";
  2. or download this
    #!/usr/bin/perl 

...
     my ($firstname, $lastname, $password) = split (/\*/, $_);
     $hash{"$firstname $lastname"} = $password;
}#while
  3. or download this
    #!/usr/bin/perl 

...
     my ($firstname, $lastname, $password) = split (/\|/, $_);
     $hash{"$firstname $lastname"} = $password;
}#while