Partager vos
astuces Déco
Posez votre question Signaler

Regex avec perl

salart - Dernière réponse le 27 mars 2009 à 15:41
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 \n lorsque je fais un print de @zez@. je voudrais bien m'en débarrasser.
pour toute idée, je suis prebeur merci
Lire la suite 

Regex avec perl »

1 réponses
Réponse
+0
moins plus
salart 27 mars 2009 à 15:41
J'ai trouvé 

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

}
close SORTIE2;

 Ajouter un commentaire
Ajouter un commentaire
Posez votre question
Ce document intitulé « regex avec perl » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
5 extensions si vous voulez revenir à l'ancien Facebook