teste hvilke mapper der ligger i /home/eks/

jeg har ikke testest det men det må være noget i stil med

@ary=glob($sti);
foreach ($fil) @ary {
  if (-d $fil) {
    <gør noget>
  }
}

to rettelser:

foreach ($fil) @ary -> foreach $fil (@ary)

/var/home/test/* skal det være

#!/usr/bin/perl
my $sti="/usr/local/vpopmail/domains/test.dk/*";

@ary=glob($sti);

foreach ($fil) @ary -> foreach $fil (@ary) {

if (-d $fil) {
print $fil;

  }
}



Hvis jeg gør som ovensteående får jeg disse fejl

Array found where operator expected at test2.pl line 6, at end of line
        (Missing operator before ?)
Scalar found where operator expected at test2.pl line 6, near "-> foreach $fil"
        (Missing operator before $fil?)
syntax error at test2.pl line 6, near ") @ary "
Execution of test2.pl aborted due to compilation errors.

???

aargh - sorry det var mig som udtrykte mig forkert "->"  skulle læses som at det ene skal ændres til det andet:


@ary=glob($sti);
foreach $fil (@ary) {
  if (-d $fil) {
    print $fil ."\n";
  }
}

jada.. husk jeg er helt grøn til Perl :o)

jeps - det var en fejl :-)

jamen takker da i alle tilfælde.. :)