On 12/20/2006 04:14 PM, Tom Smith wrote:
[...] So is there a better way to do this, or perhaps a cleaner way?Thanks again for your help! ~ Tom
use strict;
use warnings;
$_ = `id $ARGV[0]`;
s/.*?groups=// && print "@{[ /\((\w+)\)/g ]}\n";
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
