Définitions des fonctions

getExtension

sub getExtension{

my $fichier=shift;

$fichier=~m/\.(.*?)$/;

return $1 if defined $1;

return "";

}

appartient

sub appartient {

my ($item,@liste)=@_;

foreach(@liste){

if($_ eq $item){

return 1;

}

}

return 0;

}

bonneExtension

sub bonneExtension {

my ($fichier,@extensions)=@_;

return appartient(getExtension($fichier),@extensions);

}

# sub depath{

# # sépare le chemin, du nom de fichier

# my $path=shift;

# s/[\/]$//;

# m/^(.*)\/(.*)$/;

# return $2,$1;

# }

#

#

changeExtension

sub changeExtension{

my($fichier,$extension)=@_;

$fichier=~s/^(.*\.)(.*?)$/$1$extension/;

return $fichier;

}

1;