Téléchargement
illégal
Posez votre question Signaler

[perl] 1 regexp des espaces ... et rien

fxtaa 720Messages postés 20 octobre 2009Date d'inscription 16 mai 2012Dernière intervention - Dernière réponse le 8 févr. 2010 à 16:12
Bonjour,
je vous met d'abord le code ^^ : 
@cobol = "-----------------------------------------------------------------------------
2000/02/08 14:02:51
   Installed   Sys   In Use
   ---------   ---   ------
/bob/v4/raoul
      250        0       0             Server 32-bit

**AS Developer Usage
       15        0       4             Server 32-bit

**AS Developer Usage
       15        0       1             Server 32-bit
";

push(@cobol,$_);
for(@cobol){
	$result = $_;
	$result =~ /(\d*\/\d*\/\d*)/;
	print "$1\n";
	
	
	
	$result =~ /^\s*(\d*)\s*(\d*)\s*(\d*)/;
	print "1 : $1\n";
	print "2 : $2\n";
	print "3 : $3\n";
	
}

Donc :
@Cobol contient le texte à traiter.
Je souhaiterai extraire "250" "0" "0" et "15" "0" "4" et "15" "0" "1".
J'ai beau faire ^\s*, j'ai l'impression que perl ne comprend pas (je pense surtout que je m'y prend mal).
J'ai aussi copié le caractère "espace" et collé dans un convertisseur ASCII pour vérifier que le code ascii était bien espace... Enfin bref, je suis vraiment coincé, un œil extérieur serait d'une grande aide.
Cordialement.
Fxta
Lire la suite 

[perl] 1 regexp des espaces ... et rien »

1 réponses
Réponse
+0
moins plus
fxtaa 720Messages postés 20 octobre 2009Date d'inscription 16 mai 2012Dernière intervention 8 févr. 2010 à 16:12
Bon j'avance petit a petit : 

push(@cobol,$_);
for(@cobol){
	$result = $_;

	if ($result =~ /\n\s+(\d+)\s+(\d+)\s+(\d+)/){
		print "im in!\n";
		# print $result;
		print "1 : $1\n";
		print "2 : $2\n";
		print "3 : $3\n";
	}
}


J'arrive à extraire 250 0 0 mais bizarrement perl ne fait pas la regexp pour 15 0 4 et 15 0 1(sauf si je supprime la ligne 250 0 0.....

 Ajouter un commentaire
Ajouter un commentaire
Posez votre question
Ce document intitulé « [perl] 1 regexp des espaces ... et rien » 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
Passage au tout numérique : quel coût pour les particuliers ?