inline command and perl (newbie)

hitc

Hi,
I'm trying to create a list of href on html pages stored in a directory,but I can't loop trough the html files,it doesn't work..
My syntax is surely not good...when I doesn't put the foreach loop the code works :
my $rep='c:\scripts_test';
opendir(DIR,$rep) or die "Unable to open $rep: $!";
@liste = sort(grep(/ipl$/, readdir(DIR)));
readdir(DIR);
closedir(DIR);

print <<EOF;
<?xml version="1.0" encoding='UTF-8'?>
EOF
foreach my $test(@liste)
{
print <<EOF;
<substitution>
<option label=\"$test\" />
</substitution>
EOF
}


Plz help
Thx

mmb

Your problem lies within the way you are populating the @liste array.

The command @liste = sort(grep(/ipl$/, readdir(DIR)));
is only going to populate your array with .ipl scripts that are in that directory.

You then also do another readdir() on the same directory, I cant see why you do this.

try using this code if it is html files that you are looking for...

my $rep = 'c:\scripts_test';
opendir(DIR,$rep) or die "Unable to open $rep: $!";

@liste = sort(grep(/html$/, readdir(DIR)));
closedir(DIR);

print <<EOF;
<?xml version="1.0" encoding='UTF-8'?>
EOF
foreach my $test(@liste)
{
print <<EOF;
<substitution>
<option label=\"$test\" />
</substitution>
EOF
}


That should do the trick!

- mark