Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
my @passwds = split /:/;
print "@passwds";
}
  2. or download this
    #!/usr/bin/perl
use strict;
...
my @passwds = split /:/, <PASSWD>;
print "@passwds";
}