No,
But you can do.....
print "Content-type: text/plain\n\n";
my %users = (
1 => ['USERNAME', 'PASSWORD'],
2 => ['USERNAME', 'PASSWORD'],
3 => ['USERNAME', 'PASSWORD']
);
foreach (keys %users) {
print "$users{$_}[0]:" . crypt($users{$_}[1], "salt") . "\n";
}
I just wrote that quickly but it should work.
But you can do.....
Code:
#!/usr/bin/perl print "Content-type: text/plain\n\n";
my %users = (
1 => ['USERNAME', 'PASSWORD'],
2 => ['USERNAME', 'PASSWORD'],
3 => ['USERNAME', 'PASSWORD']
);
foreach (keys %users) {
print "$users{$_}[0]:" . crypt($users{$_}[1], "salt") . "\n";
}
I just wrote that quickly but it should work.