Retourner au contenu associé (entrée de forum : Parser une variable en Perl)
Posté par arthurr (site web personnel) le 14 avril 2009 à 19:15. En réponse au message Parser une variable en Perl. Évalué à 1.
#!/usr/bin/perl my $nom='7845124512200904091025.pdf'; if($nom=~m/(\d{4})(\d{2})(\d{2})\d{4}[\.a-zA-Z]*$/){ print "Fichier : $nom\n"; print "Annee : 1ドル\n"; print "Mois : 2ドル\n"; print "Jour : 3ドル\n"; }
AltStyle によって変換されたページ (->オリジナル) / アドレス: モード: デフォルト 音声ブラウザ ルビ付き 配色反転 文字拡大 モバイル
[^] # Re: Parser une variable en Perl
Posté par arthurr (site web personnel) . En réponse au message Parser une variable en Perl. Évalué à 1.
#!/usr/bin/perl
my $nom='7845124512200904091025.pdf';
if($nom=~m/(\d{4})(\d{2})(\d{2})\d{4}[\.a-zA-Z]*$/){
print "Fichier : $nom\n";
print "Annee : 1ドル\n";
print "Mois : 2ドル\n";
print "Jour : 3ドル\n";
}