Retourner au contenu associé (entrée de forum : Parser une variable en Perl)
Posté par arthurr (site web personnel) le 14 avril 2009 à 17:47. En réponse au message Parser une variable en Perl. Évalué à 3.
#!/usr/bin/perl my $nom='7845124512200904091025.pdf'; if($nom=~m/(\d{8})\d{4}[\.a-zA-Z]*$/){ print "1ドル\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é à 3.
#!/usr/bin/perl
my $nom='7845124512200904091025.pdf';
if($nom=~m/(\d{8})\d{4}[\.a-zA-Z]*$/){
print "1ドル\n";
}
et c'est gratuit ;)