[perl] 1 regexp des espaces ... et rien
fxtaa
Messages postés
1050
Date d'inscription
Statut
Membre
Dernière intervention
-
fxtaa Messages postés 1050 Date d'inscription Statut Membre Dernière intervention -
fxtaa Messages postés 1050 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je vous met d'abord le code ^^ :
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
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
A voir également:
- [perl] 1 regexp des espaces ... et rien
- Espaces insécables - Guide
- Tapez cette phrase, en respectant bien les espaces et la ponctuation. - Guide
- Appliquez à tous les paragraphes du document à télécharger, à l’exception des titres et des sous-titres, la mise en forme suivante : chaque paragraphe doit être espacé de 0,42 cm ou 12 pt du paragraphe qui suit les textes ne doivent pas être en retrait à droite et à gauche après ces modifications, sur quelle page se trouve le titre « la cheminée » dans le chapitre « informations diverses » ? - Guide
- Vous avez accès à des espaces partagés sur l'espace pix cloud - Forum Bases de données
- Espace des marques vrai ou contrefaçon ✓ - Forum Consommation & Internet
1 réponse
Bon j'avance petit a petit :
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.....
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.....