John W. Krahn wrote:
Or you could do it like this: #!/usr/bin/perl use warnings; use strict; use diagnostics;print '---', join( ':', getpwnam 'root' ), "---\n", join( ':', getpwnam 'ellie' ), "\n";__END__ John
Thank you for through explanation John as always!! -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
