«

Tought that would work .. but doesn't look like it.

my $_ = `$path/find /usr/local/ -print -ls | $path/awk '{print
$5,$6,$11}' | $path/grep "[a-zA-Z]"`;

foreach $_ (sort keys %find) {
( $uid, $gid, $file, ) = split();
$find{ $uid }{ $gid } = $file;
}

What i'm i doing wrong here?

mac8500 wrote:
> Tought that would work .. but doesn't look like it.

What would work?

> my $_ = `$path/find /usr/local/ -print -ls | $path/awk '{print
> $5,$6,$11}' | $path/grep "[a-zA-Z]"`;

You cannot make $_ lexical.

Why are you using find and awk when you've got Perl?

> foreach $_ (sort keys %find) {

Where did %find come from.

> What i'm i doing wrong here?

I suspect you are posting under the influence of mind altering
(destroying) sustances.

mac8500 wrote:
> Tought that would work .. but doesn't look like it.
>
> my $_ = `$path/find /usr/local/ -print -ls | $path/awk '{print
> $5,$6,$11}' | $path/grep "[a-zA-Z]"`;

Backticks perform double-quote interpolation, so you need
to escape those dollar signs (\$).

>
> foreach $_ (sort keys %find) {

%find has no keys yet.

> ( $uid, $gid, $file, ) = split();

use strict;

> $find{ $uid }{ $gid } = $file;
> }

You're overwriting the value of previous file there.

>
> What i'm i doing wrong here?

Perhaps:

use warnings;
use strict;
use Data:umper;

my %find;
my $path = '/usr/bin';
foreach( `$path/find /usr/local/ -print -ls
| $path/awk '{print \$5,\$6,\$11}'
| $path/grep "[a-zA-Z]"` ) {
my ( $uid, $gid, $file, ) = split();
push @{$find{ $uid }{ $gid }}, $file;
}

print Dumper \%find;

--
Brad