Building 2 key hash with output from unix command

[mac8500]

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?

 

[Brian McCauley]

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.

 

[Brad Baxter]

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;