Tom's Guide > Forum > Programmation > [perl] extraire chaine de caractère
[perl] extraire chaine de caractère - Programmation
TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Répondre
Mot :    Pseudo :           
 
floxi@IDN   06-06-2007 à 15:37:50

bonjour,
je cherche une commande qui me transforme ça:

Code :
  1. IF-MIB::ifInOctets.10101 = Counter32: 2683540892
  3. IF-MIB::ifInOctets.10102 = Counter32: 3050330850
  5. IF-MIB::ifInOctets.10103 = Counter32: 3040619711
  7. IF-MIB::ifInOctets.10105 = Counter32: 4141631423
  9. IF-MIB::ifInOctets.10106 = Counter32: 858542634



en ça:

Code :
  1. 2683540892
  2. 3050330850
  3. 3040619711
  4. 4141631423
  5. 858542634



Merci de vos réponses

------------------------------ http://batcher.ath.cx
Répondre
Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.
mongos@IDN   06-06-2007 à 15:43:54
- 0 +

si tu utilise slipt(), ca ne marcherais pas ??

Répondre à mongos@IDN
floxi@IDN   06-06-2007 à 15:48:12
- 0 +

tu veut dire split non ? lol

j'ai essayé mais j'obtient un chiffre, cela ne marche pas

------------------------------ http://batcher.ath.cx
 Répondre à floxi@IDN
mongos@IDN   06-06-2007 à 15:50:51
- 0 +

oui exacte mdr ^^ désolé faute de frappe, nous dirons que c'est la fatigue ^^
Alors peut être que avec chop() que tu utilisererais tant que tu n'ateint pas de blanc sur la ligne.

Répondre à mongos@IDN
floxi@IDN   06-06-2007 à 16:00:51
- 0 +

Apparement la fonction chop () ramènerais uniquement le dernier caratère.

------------------------------ http://batcher.ath.cx
 Répondre à floxi@IDN
mongos@IDN   06-06-2007 à 16:09:44
- 0 +

oui, mais tu met ce caractere dans une variable, puis tu rajoute un autre caractere.
$string = "test";
$chop = chop($string);
$var = $var + $chop;
, enfin quelque chose dans le style avec une boucle (je n'ai plus la syntaxe en tête je vais chercher ça.

Répondre à mongos@IDN
ChPortos   30-12-2008 à 18:04:02
- 0 +

Et avec des RegExp tout simplement ?

un truc du genre ($mes_lignes_de_log contient les lignes IF-MIB...)

Code :
  1. my @lines = split("\n",$mes_lignes_de_log);
  2. foreach my $line (@lines){
  3.     if($line =~ m/^IF-MIB::ifInOctets.*\d{5} = Counter32: \d/){  #On verifie que la ligne commence bien par la bonne chose
  4.         $line =~ /(\d*)$/;
  5.         print $1."\n";
  6.     }
  7. }



P.S.: je viens de remarquer l'âge de la question, tant pis, ça pourra être utile à d'autres !

Répondre à ChPortos
Créer un nouveau sujet Répondre
Tom's Guide > Forum > Programmation > [perl] extraire chaine de caractère
Aller à :

Il y a 2190 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Plan du forum
Forum Bestofmedia ©
2000-2009 Bestofmedia Group
Page générée en 0,233 secondes
Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler
Liens