Re^3: Array problem......PLEASE HELP!


No such thing as a small change
	PerlMonks

Re^3: Array problem......PLEASE HELP!

by zentara (Archbishop)

on Jan 05, 2009 at 22:35 UTC ( [id://734306]=note: print w/replies, xml )

Need Help??

in reply to Re^2: Array problem......PLEASE HELP!
in thread Array problem......PLEASE HELP!

Try this:

#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;

opendir(DIR, '.');
my @files = grep !/^\.{1,2}$/, readdir DIR;
my @files8 = grep /08/, @files;
my @files9 = grep /09/, @files;
closedir DIR;
print "@files\n";


my %commands;  #maybe use a hash

print "08 files\n";
foreach my $file (@files8){ 
    $commands{'08'}{$file} = `ls -l|grep $file`
}

print "09 files\n";

foreach my $file (@files9){ 
    $commands{'09'}{$file} = `ls -l|grep $file`
}


print Dumper([\%commands]);
[download]

I'm not really a human, but I play one on earth Remember How Lucky You Are