Retourner au contenu associé (entrée de forum : Parser une variable en Perl)
Posté par arthurr (site web personnel) le 14 avril 2009 à 19:23. En réponse au message Parser une variable en Perl. Évalué à 2.
#!/usr/bin/perl my $nom='7845124512200904091025.pdf'; if($nom=~m/(\d{4})(\d{2})(\d{2})\d{4}[\.a-zA-Z]*$/){ print "Fichier : $nom 1ドル 2ドル\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é à 2.
#!/usr/bin/perl
my $nom='7845124512200904091025.pdf';
if($nom=~m/(\d{4})(\d{2})(\d{2})\d{4}[\.a-zA-Z]*$/){
print "Fichier : $nom 1ドル 2ドル\n";
}
c'est juste un print ... le 1ドル est la premiere expression "matchee" avec les parenthese (\d{4}), 2ドル la seconde, ...