Tom Smith schreef:
> Mumia W.:
>> use strict;
>> use warnings;
>> $_ = `id $ARGV[0]`;
>> s/.*?groups=// && print "@{[ /\((\w+)\)/g ]}\n";
>
> I'm not trying to be argumentative or say that this is "wrong"... But
> does anyone else agree with this? If so, why is this way better than
> the pure Perl way?
TIMTOWTDI. On the shell machines of my provider (FreeBSD) the "id"
approach will work, and the "/etc/group" one won't.
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
