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