[perl] 1 regexp des espaces ... et rien
fxtaa
Messages postés
1170
Statut
Membre
-
fxtaa Messages postés 1170 Statut Membre -
fxtaa Messages postés 1170 Statut Membre -
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
- Espace des marques vrai ou contrefaçon ✓ - Forum Consommation & Internet
- Vous avez accès à des espaces partagés sur l'espace pix cloud - Forum Bases de données
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.....
