Discussion :

[warham]

bonjour, je voudrais savoir comment trouver toutes les pages php d'un serveur et après lister leurs lien par rapport a la page perl?

j'ai fais ce bout de code mais il n'affiche que les pages du meme dossier et ne scan pas les sous dossiers:

my @files = glob ("*.php");
foreach $file (@files) {
print $file."\n";
}


merci de votre aide

[tfe]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub checkdir($)
{
  my $dir=shift;
  opendir(DIR,$dir);
 
  my @fichiers  = grep { ! /^\./ } readdir(DIR);
  foreach(@fichiers)
  {
     if(-f $dir."/$_") { print "$_\n"; }
     else if(-d $dir."/$_") { checkdir($dir."/$_"); }
   } 
}
 
checkdir("Ton dossier");

[warham]

syntax error at test.pl line 10, near "else if"
syntax error at test.pl line 12, near "}"
Execution of test.pl aborted due to compilation errors.

:s vous savez d'ou ça peut venir?

[tfe]

desole c etait une indication de code
voilà le code complet:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
sub checkdir($);
sub checkdir($)
{
  my $dir=shift;
  opendir(DIR,$dir);
 
  my @fichiers  = grep { ! /^\./ } readdir(DIR);
  foreach(@fichiers)
  {
     if(-f $dir."/$_" && $_ =~ /\.php$/) { print "$_\n"; }
     elsif(-d $dir."/$_") { checkdir($dir."/$_"); }
   } 
}
 
checkdir(".");

[warham]

sa marche niquel !! merci ^^