Help reqd in Formatting

[Zoom1234]

Hi,

I am getting record as follows

foreach $file ( ) {
..//some regex
..//$dir = $1 ; #this can be repeated in foreach loop
..//$file for $dir
..//$owner for $file
..//associated files for $file
}

I want output like this

Dir Name

FileName1 Owner1
Associated file1
Associated file2

FileName2 Owner2
Associated file3
Associated file4

How do i acheive the format..whether i have to form hash of hash ..?
Any inputs..
TIA

 

[PaulTEG]

if ($olddir eq $dir) {
  print "$dir\n";
  $olddir=$dir;
}
print "$file\t$owner\n";
print "\t\t$assoc1\n";
print "\t\t$assoc2\n";

HTH

Paul
------------------------------------
Spend an hour a week on CPAN, helps cure all known programming ailments ;-)

 

[PaulTEG]

should be "ne" instead of "eq" in if ($olddir eq $dir) {

Paul
------------------------------------
Spend an hour a week on CPAN, helps cure all known programming ailments ;-)