[perl] extraire chaine de caractère

Tags :

Perl
Programmation

Dernière réponse : 30 Décembre 2008 18:04 dans Programmation

floxi@IDN

6 Juin 2007 15:37:50

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

IF-MIB::ifInOctets.10101 = Counter32: 2683540892

 
IF-MIB::ifInOctets.10102 = Counter32: 3050330850

 
IF-MIB::ifInOctets.10103 = Counter32: 3040619711

 
IF-MIB::ifInOctets.10105 = Counter32: 4141631423

 
IF-MIB::ifInOctets.10106 = Counter32: 858542634

en ça:

Merci de vos réponses

Autres pages sur : perl extraire chaine caractere

mongos@IDN

6 Juin 2007 15:43:54

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

floxi@IDN

6 Juin 2007 15:48:12

tu veut dire split non ? lol

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

Contenus similaires

PERL : lecture de chaine de caracteres - Forum
chaine de caractere - Solutions
Chaine de caractère - Solutions
Comment executer du code qui est dans une chaine de caractére - Forum
Langage c:chaîne de caractère avec accent et ponctuation - Forum
Selection ou suppression de caractères dans une chaine de caractère - Forum

Pas de réponse à votre question ? Demandez !

mongos@IDN

6 Juin 2007 15:50:51

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.

floxi@IDN

6 Juin 2007 16:00:51

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

mongos@IDN

6 Juin 2007 16:09:44

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.

ChPortos

30 Décembre 2008 18:04:02

Et avec des RegExp tout simplement ?

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

my @lines = split("\n",$mes_lignes_de_log);

foreach my $line (@lines){

	if($line =~ m/^IF-MIB::ifInOctets.*\d{5} = Counter32: \d/){   #On verifie que la ligne commence bien par la bonne chose

		$line =~ /(\d*)$/;

		print $1."\n";

	}

}

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

Pas de réponse à votre question ? Demandez !

Contenus similaires

lecture du contenu XML dans une chaine de caractère Forum
[RESOLU]fonctions qui peut convertir une chaine de caractère en entier Forum
[Résolu] Extraire une chaine entre deux mots (.bat) Forum
[Bat] Rechercher chaine de caractere dans fichier txt Forum
[ C ] Inverser une chaine de caractere Forum
[C] Chaine de caractere Forum
Voir plus