c'est un script pour le travail, non ?
Alors pas de mp3 !
sinon il y a un truc crade mais qui marche : #!/usr/bin/perl
my $nom='7845124512200904091025.mp3.gz.tar.pdf.paf';
my $no_dot=(split /\./,$nom)[0]; # recup le premier element du split
if($no_dot=~m/(\d{4})(\d{2})(\d{2})\d{4}$/){
print "Fichier : $nom\n";
print "Annee : 1ドル\n";
print "Mois : 2ドル\n";
print "Jour : 3ドル\n";
}
[^] # Re: Parser une variable en Perl
Posté par arthurr (site web personnel) . En réponse au message Parser une variable en Perl. Évalué à 1.
Alors pas de mp3 !
sinon il y a un truc crade mais qui marche :
#!/usr/bin/perl
my $nom='7845124512200904091025.mp3.gz.tar.pdf.paf';
my $no_dot=(split /\./,$nom)[0]; # recup le premier element du split
if($no_dot=~m/(\d{4})(\d{2})(\d{2})\d{4}$/){
print "Fichier : $nom\n";
print "Annee : 1ドル\n";
print "Mois : 2ドル\n";
print "Jour : 3ドル\n";
}