« Programmation Perl/Expressions régulières » : différence entre les versions

Contenu supprimé Contenu ajouté
Ligne 366 :
print "“$texte“";
if ( $texte =~ m/[[:upper:]]/ ){ print " vrai, "; }
else{ print " faux, "; }
}
print "\n";