Help for this page

Select Code to Download


  1. or download this
    userA, machine, last_logged_on
userB, machine, last_logged_on
  2. or download this
    UserA, password, location
UserB, password, location
  3. or download this
    open (A, "FileA") || die "$!\n";
open (B, "FileB") || die "$!\n";
while (my @FILEA=<A>) {
  foreach my $line(@FILEA){
     my ($nameA, $machine, $laston)=split(/,/,$line);
  4. or download this
       foreach my $lineb(@FILEB){
     my ($NameB, $password, $location)=split(/,/,$lineb);
     if ( $nameA = $nameB ) {
        print "$nameA, $machine, $password\n";
     }