Je craque (perl) - Page 1

1

Le 06/06/2006 à 18:19

Bon voilà, je voulais faire ma petite routine pour parcourir un repertoire... et celle-ci marche de manière assez spéciale.
En effet elle se permet de refuser certains repertoires.

#!/usr/local/bin/perl
use strict;

disp($ARGV[0]);
	
sub disp
{	
	my $file;
	my $dir = shift;
	
  opendir(LDIR, $dir) || die "Cannot open directory $dir: $!";
	my @files =  readdir(LDIR);
	closedir(LDIR);
	
  foreach $file (@files) 
	{
    print "> ${dir}$file\n"   if( -d $file && $file =~ /^[^\.]/);  # debug
		disp("${dir}$file/")      if( -d $file && $file =~ /^[^\.]/);
		print "${dir}DESC.xml\n"  if($file =~ /DESC.xml$/);
  }
}

Essayez, vous verrez...

Qqn à une idée du problème?
merci:w