Re: Mail: From Question

On Fri, 2005-09-16 at 14:41 -0400, Jamie Lawrence wrote:

> open PASSWD, "</etc/passwd" or die "$!";
> While ($line = <PASSWD>) {
> next if ( $line !=~ /^$user/ );
> $user =~ s/^.*?:.*?:.*:.*?:(.*?):.*$/$1/;
> }

    split(/:/, $line);
    next unless $_[0] eq $user;
    $user = $_[4];

Dale

---------------------------------------------------------------------
To unsubscribe, e-mail: users-unsubscribe@subversion.tigris.org
For additional commands, e-mail: users-help@subversion.tigris.org
Received on Tue Sep 20 16:31:39 2005