regex avec perl Fermé

Question

Bonjour,

sauriez-vous par hasard.comment je peux definir la regle suivante.
Si j'ai une lettre majuscule parmi une serie de lettre avec minuscule,ponctuation, nombre , pour dire si ele est majuscukle, je fais =~/[A-Z]/ est-ce que cela peut marcher.

je donne un exemple maiS.éon, comment puis dire qu'il y a bie n une majuscule.

sauriez-vous comment supprimer le retour à la lignre d'un mot.
j'ai un fichier "toto, titi @zez@", j'ai spliter le fichiers en 3 colonnes. je probléme est que lorsque je veux les affficher, il me fait un 
 lorsque je fais un print de @zez@. je voudrais bien m'en débarrasser.

pour toute idée, je suis prebeur merci

salart · Answer

J'ai trouvé

open(SORTIE2,"< sortie11.txt");
my @tab2;
my $k = 0;
foreach(<SORTIE2>)
{
chomp;
	@tab = split(/	/, $_);
	if($tab[1] eq "NUM")
		{
 		print chop($tab[2])." ";
		}
	elsif ($tab[0] =~/[A-Z]/ && $k != 0)
		{
		print "
".$tab[0]." ";
		}
	else {
		$k =1;
		print $tab[0]." ";
		}

}
close SORTIE2;

Regex avec perl

1 réponse

Discussions similaires