Perl

[Perl] Transformer code shell en perl

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] Transformer code shell en perl

thurfin

la clarté dans la confusion

Bonjour,
Voilà comme indiquer dans le titre, je dois "traduire" un code shell en perl
Prb je rame sec (oui je connait pas perl, apprentissage sur le tas)

voici le code shell:

[quote]
HOME_STATS=.
TYPECFG=${HOME_STATS}/networkTypes.cfg
ITEMSCFG=${HOME_STATS}/networkItems.cfg
FLIC_LOG=${HOME_STATS}/logs

i=0
while IFS=':' read ip name type community ; do
ips[$i]=$ip
name[$i]=$name
types[$i]=$type
communities[$i]=$community
i=$((i+1))
done < ${ITEMSCFG}
[/quotes]

Explication: ce bout de script va chercher des infos dans un fichier dont le nom est stocké ds la variable ITEMCFG, à chaque ligne du fichiers on trouve diverse infos séparées par un caractère ":"

Dc concernant les lignes de déclaration de variable c'est bon c'est fait (pas dur )
Par contre pour la boucle qui va lire dans les fichiers j'ai essayé quelques truc mais bon vu mon niveau d'expérience en perl c'est pas gagné.

---------------
De Marx j'ai avant tout retenu la notion de capital

Publicité

Elmoricq

Modérateur

Pour t'aider, tu peux trouver la documentation intégrale de PERL ici :
http://www.perl.org

Et tu peux trouver des tutoriels & FAQ ici :
http://www.developpez.net

Sinon, pour ton problème, je vais essayer de te montrer comment faire avec du code sur-commenté.
N'hésite pas à demander si tu ne comprends pas :

Code :

#!/usr/bin/perl -w
# Ces deux "use" configurent l'interpreteur en mode "severe"
# Ca oblige a ecrire du code propre et, par consequent, moins
# expose aux bugs.
use strict;
use warning;
# Declaration des variables pointant vers les fichiers a lire
# En PERL, la convention veut que les noms en majuscules soient
# reserves aux descripteurs de fichier. On va donc les mettre en
# minuscule.
my $home_stats = ".";
my $type_cfg = "${home_stats}/networkTypes.cfg";
my $items_cfg = "${home_stats}/networkItems.cfg";
my $flic_log = "${home_stats}/logs";
# "dictionnaire" : une table de hachage qui va contenir
# toutes les donnees lues.
# Table de hachage = tableau associatif clef => valeurs
my %dict;
# ouverture du fichier $items_cfg
open(ITEMSCFG, $items_cfg) or die "Echec ouverture de $items_cfg : $!";
# Pour chaque ligne du fichier...
foreach my $line ( <ITEMSCFG> )
{
# nettoyage des caracteres de retour charriot
chomp $line;
# decoupage de la ligne suivant le separateur ':'
# on stocke le resultat dans les champs ad hoc
my ($ip, $name, $type, $community) = split ':', $line;
# On stocke le resultat dans notre "dictionnaire"
# Je choisis la clef = $ip, a toi de voir si une autre
# donnee est plus appropriee
# En fait ici notre hachage est un peu plus complique qu'un
# hachage normal, car ici on cree un "hachage de hachage"
$dict{$ip} = { NOM => $name,
TYPE => $type,
COMMUNITY => $community };
}
# fermeture du fichier
close(ITEMSCFG);
# accedons maintenant a nos donnees
# Pour l'exemple, je vais acceder a ces donnees de
# maniere exhaustive, avec une boucle qui va parcourir
# tout le dictionnaire
# traduction : pour chaque clef de notre tableau associatif...
# rappel : nous avons utilise ici l'IP comme clef
foreach my $ip ( keys %dict )
{
# '\n' signifie : retour a la ligne
print "=[ $ip ]=\n";
print "Nom : " . $dict{$ip}->{NOM} . "\n";
print "Type : " . $dict{$ip}->{TYPE} . "\n";
print "Community : " . $dict{$ip}->{COMMUNITY} . "\n";
}

Message édité par Elmoricq le 22-06-2005 à 16:05:04

thurfin

la clarté dans la confusion

Merci beaucoup, je vais essayer de traduire la suite de mon code à partir de ca.

---------------
De Marx j'ai avant tout retenu la notion de capital

thurfin

la clarté dans la confusion

par contre plutot que le dictionnaire il est pas possible d'utiliser un classique tableau??

---------------
De Marx j'ai avant tout retenu la notion de capital

Gouki19

thurfin a écrit :

Je fais du Perl mais j'ai déjà fais du shell mais ça remonte un peu...

Si j'ai bien compris la boucle while, elle s'occupe de parcourir les lignes d'un fichier et de spliter chaque ligne avec le caractère ":" pour pouvoir récupérer les valeurs : ip, name, type, community. Ensuite on les stocke dans des tableaux (si jme trompe pas sur l'interprétation du shell).

Voilà ce que je suggere:

Code :

my @ips;
my @name;
my @types;
my @communities;
open(FIC,"chemin_de_ton_fichier" ) || die "Probleme a l\'ouverture : $!\n";
$i=0;
while (defined($l=<FIC> ))
{
(ips[$i],name[$i],types[$i],communities[$i])=split(/:/, $l);
$i++;
}
close FIC;

Jsais pas si ça va t'aider mais bon...

Gouki19

Arf si j'avais vu ton post Elmoricq j'aurais pas poster

thurfin

la clarté dans la confusion

concernant le script de elmoricq j'essaye de le faire avec des tableau plutot, ca m'est plus familier comme structure et ca sera plus simple pour la suite. J'aurai besoin de savoir si je peu incrémenter un compteur à la fin de la section "foreach my $line ..." ?

Message édité par thurfin le 22-06-2005 à 16:18:13

---------------
De Marx j'ai avant tout retenu la notion de capital

Elmoricq

Modérateur

thurfin a écrit :

par contre plutot que le dictionnaire il est pas possible d'utiliser un classique tableau??

Si.
Sauf que tu vas devoir utiliser 4 tableaux (un pour les IP, les noms, les types et les communities).
Avec comme seul point commun leurs indices.

Je trouve qu'un hachage est plus adapté au besoin que tu as exposé ici, mais l'un des aspects réputés du PERL est qu'on peut faire une chose de plusieurs manières différentes.

Avec des tableaux :

Code :

#!/usr/bin/perl -w
# Ces deux "use" configurent l'interpreteur en mode "severe"
# Ca oblige a ecrire du code propre et, par consequent, moins
# expose aux bugs.
use strict;
use warning;
# Declaration des variables pointant vers les fichiers a lire
# En PERL, la convention veut que les noms en majuscules soient
# reserves aux descripteurs de fichier. On va donc les mettre en
# minuscule.
my $home_stats = ".";
my $type_cfg = "${home_stats}/networkTypes.cfg";
my $items_cfg = "${home_stats}/networkItems.cfg";
my $flic_log = "${home_stats}/logs";
# tableaux contenant les donnees lues
my (@ip_list, @name_list, @type_list, @community_list) = ();
# ouverture du fichier $items_cfg
open(ITEMSCFG, $items_cfg) or die "Echec ouverture de $items_cfg : $!";
# un petit compteur
my $count = 0;
# Pour chaque ligne du fichier...
foreach my $line ( <ITEMSCFG> )
{
# nettoyage des caracteres de retour charriot
chomp $line;
# decoupage de la ligne suivant le separateur ':'
# on stocke le resultat dans les champs ad hoc
( $ip_list[$count],
$name_list[$count],
$type_list[$count],
$community_list[$count] ) = split ':', $line;
# incrementation du compteur
$count++;
}
# fermeture du fichier
close(ITEMSCFG);
# accedons maintenant a nos donnees
# Pour l'exemple, je vais acceder a ces donnees de
# maniere exhaustive, avec une boucle qui va parcourir
# tout le dictionnaire
# pour tout "i" allant de 0 a "nombre d'elements de ip_list"
foreach my $i ( 0..scalar(@ip_list) )
{
# '\n' signifie : retour a la ligne
print "IP : $ip_list[$i]\n";
print "Nom : $name_list[$i]\n";
print "Type : $type_list[$i]\n";
print "Community : $community_list[$i]\n";
}

Message édité par Elmoricq le 22-06-2005 à 16:27:22

thurfin

la clarté dans la confusion

ok merci

---------------
De Marx j'ai avant tout retenu la notion de capital

thurfin

la clarté dans la confusion

Code :

split(/:/, $l);

je dois bien lire $i et non $1 ?

Message édité par thurfin le 22-06-2005 à 16:32:45

---------------
De Marx j'ai avant tout retenu la notion de capital

Publicité

thurfin

la clarté dans la confusion

non en fait c bien $1 mais bon message d'erreur il veut que je face un paquage.

---------------
De Marx j'ai avant tout retenu la notion de capital

thurfin

la clarté dans la confusion

Bon ben ca marche (enfin j'ai pas d'erreur de syntaxe); merci pour tout.

---------------
De Marx j'ai avant tout retenu la notion de capital

thurfin

la clarté dans la confusion

j'ai avancé, j'ai fait l'essentiel il me manque plus que la partie relative au module snmp mais j'ai encore des erreurs que j'arrive pas à corriger.

Code :

#!/usr/bin/perl
use strict;
my $home_stats=".";
my $typecfg="${home_stats}/networkTypes.cfg";
my $itemscfg="${home_stats}/networkTypes.cfg";
my $flic_log="${home_stats}/logs";
my $j;
my (@ips, @name, @types, @communities) = ();
open(ITEMSCFG, $itemscfg) or die "Echec ouverture de $itemscfg : $!";
my $i=0;
foreach my $line ( <ITEMSCFG> )
{
chomp $line;
( $ips[$i],
$name[$i],
$types[$i],
$communities[$i]) = split ':', $line;
$i++;
}
close(ITEMSCFG);
my @typeName;
my @typeParams;
open(TYPECFG, $typecfg) or die "Echec ouverture de $typecfg : $!";
$i=0;
foreach my $line ( <TYPECFG> )
{
chomp $line;
( $typeName[$i],
$typeParams[$i]) = split ':', $line;
$i++;
}
close(TYPECFG);
open ( FLIC_LOG, ">> $flic_log" ) or die "Echec ouverture de $flic_log : $!";
foreach $i (0..scalar (@ips))
{
print "${ips[$i]}";
printf "flic_reseau_${ips[$i]}:";
my $params ="";
foreach my $t (0..scalar (@typeName))
{ if (${typeName[$t]}=${types[$i]})
{ $params = ${typeParams[$t]};
}
$t++;
}
my $id;
my $snmpName;
my $desc;
if ($params != "" )
{
my $ifs = "\";
foreach $j (0..scalar (@typeParams))
{ if ($j>0)
{ printf ";";
}
chomp ${params};
( $id,
$snmpName,
$desc) = split ',' , ${params};
print "$id : $desc => getsnmp($snmpName)";
#--------------------------------------------------------------------------------------
#module Perl Snmp : Mib compiler
#--------------------------------------------------------------------------------------
$j++;
}
}
$i++;
}

message d'erreur :

Citation :

Scalar found where operator expected at ./getStats2.pl line 93, near "print "$id"
(Might be a runaway multi-line "" string starting on line 85)
(Do you need to predeclare print?)
syntax error at ./getStats2.pl line 93, near "print "$id "
String found where operator expected at ./getStats2.pl line 93, at end of line
(Missing semicolon on previous line?)
Can't find string terminator '"' anywhere before EOF at ./getStats2.pl line 93.

Message édité par thurfin le 27-06-2005 à 13:33:27

---------------
De Marx j'ai avant tout retenu la notion de capital

Elmoricq

Modérateur

Indentation de psychopathe, normal que tu aies du mal à t'y retrouver.
Essaie, même pour des tests, d'écrire du code proprement indenté, ça te fait gagner énormément de temps au final.

Sur ton script, "perl -c" me retourne :

Scalar found where operator expected at test.pl line 93, at end of line
(Might be a runaway multi-line "" string starting on line 85)
(Missing operator before ?)

En fait, le problème vient avant la ligne 85, elle vient de la ligne 79 :

Code :

my $ifs = "\";

Il faut s'avoir que '\', en PERL (comme dans beaucoup de choses d'ailleurs), est un caractère d'échappement : le caractère suivant '\' est interprété comme un caractère de contrôle.
Ca te permet par exemple d'insérer des guillemets (car. " ) entre des guillemets :

Code :

print "Voici des guillemets : \" \" ";

Or donc, si on en revient à notre ligne 79, en PERL ça se traduit ainsi : "définition de la variable $ifs, chaîne de caractères contenant "; (+ tout ce qui suit après, jusqu'à trouver le guillemet fermant !).

Pour pouvoir écrire un '\', il faut "l'échapper" avec... le caractère d'échappement : \

Ce qui donne :

Code :

my $ifs = "\\";

Sinon, une telle erreur se trouve immédiatement avec un éditeur de texte qui surligne la syntaxe du PERL. Ainsi, tout ce qui suivait cette ligne était considéré comme une chaîne de caractères, ça se voit bien quand les lettres sont coloriées comme si elles étaient reconnues comme des chaînes

thurfin

la clarté dans la confusion

ok merci.
Pour l'éditeur j'ai pas le choix, je suis sur un serveur AIX via une console putty, bref VI obligatoire.

Sinon le IFS viens du script korn shell :
IFS=\;

Est-ce que dans ce cas là aussi ca correspond à un caractère d'échappement? (ce qui me semblerait logique au final)

---------------
De Marx j'ai avant tout retenu la notion de capital

Elmoricq

Modérateur

thurfin a écrit :

Sinon le IFS viens du script korn shell :
IFS=\;

Est-ce que dans ce cas là aussi ca correspond à un caractère d'échappement?

Si c'est du ksh, oui en effet, \ est un caractère d'échappement.

En effet, ";" est interprété en ksh par "fin de la commande", un peu comme tu pourrais taper :

ls ; cp machin bidule ; echo "3 commandes sur une seule ligne"

Donc pour pouvoir mettre ';' dans $IFS, il faut l'échapper, d'où le '\'.

Du coup, dans ton script PERL, tu devrais écrire ta ligne 79 comme ceci :

my $ifs = ";";

thurfin

la clarté dans la confusion

ok merci ca m'avance pas mal.

---------------
De Marx j'ai avant tout retenu la notion de capital

thurfin

la clarté dans la confusion

je voudrai mettre dans un tableau (@param) les donneée comprise dans une chaine ($params), les différents champs sont séparés par ";". Comment faire? En fait je vois pas comment arrêter la boucle.

---------------
De Marx j'ai avant tout retenu la notion de capital

Elmoricq

Modérateur

Citation :

je voudrai mettre dans un tableau (@param) les donneée comprise dans une chaine ($params), les différents champs sont séparés par ";".

Avec split ?

my @param = split ';', $params;

thurfin

la clarté dans la confusion

c'est aussi simple que ca ?

---------------
De Marx j'ai avant tout retenu la notion de capital

Elmoricq

Modérateur

Bienvenue dans PERL. Nous vous attendions.

thurfin

la clarté dans la confusion

[:aztechxx]

---------------
De Marx j'ai avant tout retenu la notion de capital

thurfin

la clarté dans la confusion

on peut utiliser le caractère '.' comme séparateur avec split ?
Parceque chez moi là ca semble pas marcher

Code :

@oids = split '.',$snmpName;
#$snmpName = sysName.0

---------------
De Marx j'ai avant tout retenu la notion de capital

Elmoricq

Modérateur

thurfin a écrit :

on peut utiliser le caractère '.' comme séparateur avec split ?
Parceque chez moi là ca semble pas marcher

Code :

@oids = split '.',$snmpName;
#$snmpName = sysName.0

split ( http://perldoc.perl.org/functions/split.html ) :

split MOTIF, EXPR

MOTIF signifie qu'il s'agit d'une expression régulière.
Or dans ces expressions, '.' signifie "n'importe quel caractère".
Pour lui dire de chercher des caractères '.', et non "n'importe quel caractère", il faut échapper avec un '\' :

Code :

@oids = split '\.',$snmpName;
#$snmpName = sysName.0

thurfin

la clarté dans la confusion

merci, je me doutais d'un truc dans le genre, j'étais en train de tester avec / (en fait fallait le mettre dans l'autre sens) [:dawa]

---------------
De Marx j'ai avant tout retenu la notion de capital

thurfin

la clarté dans la confusion

Code :

@oids = split '\.',$snmpName;
foreach my $z ( 0..scalar (@oids) )
{
$oid .= '.';
$oid .= $mib->resolve_oid($oids[$z]);
};

j'ai une boucle de trop qui s'execute dans ce bout de code, il en fait 3 au lieu de 2, ca peut venir d'où ?

Message édité par thurfin le 29-06-2005 à 15:06:03

---------------
De Marx j'ai avant tout retenu la notion de capital

thurfin

la clarté dans la confusion

bizard ca me le fait aussi avec le début du code.
Si j'execute ca:

Code :

#!/usr/bin/perl
use strict;
use Net::SNMP;
my $home_stats=".";
my $typecfg="${home_stats}/networkTypes.cfg";
my $itemscfg="${home_stats}/networkItems.cfg";
my $flic_log="${home_stats}/logs";
my $j;
my (@ips, @name, @types, @communities) = ();
open(ITEMSCFG, $itemscfg) or die "Echec ouverture de $itemscfg : $!";
my $i=0;
foreach my $line ( <ITEMSCFG> )
{
chomp $line;
( $ips[$i],
$name[$i],
$types[$i],
$communities[$i]) = split ':', $line;
$i++;
}
close(ITEMSCFG);
my @typeName;
my @typeParams;
open(TYPECFG, $typecfg) or die "Echec ouverture de $typecfg : $!";
$i=0;
foreach my $line ( <TYPECFG> )
{
chomp $line;
( $typeName[$i],
$typeParams[$i]) = split ':', $line;
$i++;
}
close(TYPECFG);
foreach my $i ( 0..scalar (@ips))
{print("ip : $ips[$i]\n" );
};
foreach $i ( 0..scalar (@typeName))
{print ("blablab : $typeName[$i]\n" );
};

j'obtiens ca :

Citation :

ip : 172.24.0.201
ip : 172.24.1.1
ip :
type : RP
type : DNS
type :

[edit] la ligne vide disparait si on ajoute "-1" aux foreach, mais ca me parait bizard, ca viens de perl ou de mon code ?

Message édité par thurfin le 29-06-2005 à 15:33:56

---------------
De Marx j'ai avant tout retenu la notion de capital

burgergold

5$? va chez l'diable!

en gros tes fichiers doivent terminer par des lignes vide

apres tes chomp, ajoute soit

next if (! $line);

ou une condition

if (! $line)

qui englobe le reste de ton code

thurfin

la clarté dans la confusion

euh non mes fichiers ne se terminent pas par une ligne vide.

---------------
De Marx j'ai avant tout retenu la notion de capital

burgergold

5$? va chez l'diable!

thurfin a écrit :

euh non mes fichiers ne se terminent pas par une ligne vide.

essaye avec le "next if (! $line)" et dit moi si ca fonctionne

pospos

scalar(@oids) retourne la taille du tableau, et toi ce que tu veux c'est l'index du dernier element

donc tu peux faire:

for my $z (0..(@oids-1)) {...

ou

for my $z (0..$#oids) {...

mais au fond si ton but est de recuperer la valeur du tableau, pourkoi ne fais tu pas directement ca:

for my $z (@oids) { ...

en Perl, kand on a à la fois besoin de l'index et de la valeur, on aura plus tendance à faire ca:

Code :

my $i=-1;
for my $val (@tab) {
++$i;
print "$i $val\n";
}

que ca:

Code :

for my $i (0..$#tab) {
print "$i $tab[$i]\n";
}

thurfin

la clarté dans la confusion

merci, donc en fait c'est normal je suis rassuré.
Je vais laisser tel quel avec (@oid)-1 ca marche bien m^mem si c'est moins propre.

---------------
De Marx j'ai avant tout retenu la notion de capital

Publicité

FORUM HardWare.fr

Programmation

Perl

[Perl] Transformer code shell en perl

Sujets relatifs
Code pour recharger une banniere toue les 30 sec	Problème pour transformer des iframes en style CSS ?
Transformer une machine Windows en imprimante réseau ?	[PERL] Split
Transformer mon code PHP en PHP Objet	Code mixte c/c++
[C/C++] utilisation de code C dans du C++	requete SQL -> Array : perfectionnement du code !!
Eclipse : code Java non reconnu
Plus de sujets relatifs à : [Perl] Transformer code shell en perl

Page générée en 0.212 secondes