Forum Programmation.perl Un pitit snmpwalk...?

Posté par  .
Étiquettes : aucune
0
24
fév.
2006
J'ai une toute pitite question, si quelqu'un pouvait m'aider,
ça m'aiderais bien...!

je fais un script pour recuperer des infos sur des equips reseau
et les coller dans un fichier en XML.

La partie collecte d'info ressemble à ça:


#!/usr/pkg/bin/perl -w

use SNMP ;

#$ENV{'MIBS'}="ALL"; #Load all available MIBs
$SNMP_TARGET = "$ARGV[0]";
$SNMP_COMMUNITY = "decK550";

$SESSION = new SNMP::Session (DestHost => $SNMP_TARGET,
Community => $SNMP_COMMUNITY,
Version => 1);

$LISTMIB = new SNMP::VarList(
['sysLocation'], #0
['sysName'], #1
['sysDescr'], #2
['sysUpTime'], #3
(…)

Forum Programmation.perl fin de chaine

Posté par  .
Étiquettes : aucune
0
3
fév.
2006
Bonjour,

J'essaie de trouver les correspondance à $var, qui se trouve
à la fin de chaque ligne d'un tableau:


if ( $etchosts[$i] =~ $var$ ) {
print $&
}


et il me retourne une erreur.


Scalar found where operator expected at /root/equip line 31, near "$var$ )"
(Missing operator before $ )?)
syntax error at /root/equip line 31, near "$var$ ) "
syntax error at /root/equip line 38, near "}"


ça me bloque pour bien debuter en perl...!

Forum Linux.général Une Distribution

Posté par  .
Étiquettes : aucune
0
19
jan.
2006
Bonjour,

je cherche une distribution simple, qui me laisse juste le prompt
une fois installée , qui soit légére de base 200 à 300 mo, je ne souhaite
pas utiliser X.

si possible avec un gestionnaire de depence et des packages binaires,
pas les sources, c'est pour un pc leger...

Je ne connais pas du tout linux, j'utlise exclusivement NetBSD,
et je souhaiterais utiliser une distrib avec plus ou moins la même
philosophie...

Merci d'avance...

Forum Programmation.perl incrementer des lettres...

Posté par  .
Étiquettes : aucune
0
2
jan.
2006
Bonjour, je voudrais mettre en place un script qui incrementerais
sur des lettres.

Du genre:

aaaa, puis aaab puis aaac, ... , aaaz, aaba, aabb, aabc.

Je ne trouve pas trop comment faire ça, et de plus je suis
tout nouveau dans le monde du perl (d'aujourd'hui en fait)

Merci d'avance...!!

Forum Programmation.shell scp lit .bashrc...?

Posté par  .
Étiquettes : aucune
0
28
déc.
2005
j'ai ecri un petit script, pour exporter la variable DISPLAY
à chaque ssh:


#Declare automatique DISPLAY
CONS=$(tty | sed "s~/dev/~~g")
ATIP=$(who | grep $CONS | awk '{print $6}' | sed "s~(~~g" | sed "s~)~~g" | sed "s~::ffff:~~g" )
echo "DISPLAY=$ATIP:0"
export DISPLAY=$ATIP:0
unset CONS
unset ATIP

Je l'ai mise sur la machine distante, un solaris.

Quand, depuis ma machine locale je fais:

scp kowalsky@192.168.0.124:/etc/hosts /etc/hosts

j'ai un retour du type:

grep: can't open protocol error: bad mode
You have mail (…)

Forum Programmation.shell arrete des scripts lancé par un script

Posté par  .
Étiquettes : aucune
0
22
nov.
2005
Bonjour,

J'ai fais un petit script qui appel un gros script plusieur fois.

ça donne a peu pres ça:

for deck in `ls /apache/base/plein-de-deck`
do
grosscript >> resultatgros-script &
done

Tout ça dans le but de realisé plein de tache
en parrallele pour reduire le temps de traitement.

Le probleme, c'est comme j'arrete le bousin si un jour
pose probleme?

Le petit script, il se ferme tout de suite, et je ne
peut pas tuer les gros script lancer, parce (…)

Forum Programmation.shell Formattage de requettes snmp, probleme de sed

Posté par  .
Étiquettes : aucune
0
22
nov.
2005
Bonjour, j'ai un probleme avec sed.

J'ai un script qui fais un requette snmp:

snmpwalk -c `community` -v 1 monequip ipNetToMediaPhysAddress

et qui me retourne:

IP-MIB::ipNetToMediaPhysAddress.1.10.10.1.1 = STRING: 0:50:53:e7:9b:ff
IP-MIB::ipNetToMediaPhysAddress.1.10.10.1.5 = STRING: 0:0:c:7:ac:1
IP-MIB::ipNetToMediaPhysAddress.1.10.10.1.15 = STRING: 0:50:80:48:7a:80
IP-MIB::ipNetToMediaPhysAddress.1.193.34.12.45 = STRING: 0:0:c:7:ac:1

que je transforme en

10.10.1.1 :0:50:53:e7:9b:ff:
10.10.1.5 :0:0:c:7:ac:1:
10.10.1.15 :0:50:80:48:7a:80:
193.34.12.45 :0:0:c:7:ac:1:

avec la commande:

snmpwalk -c `community` -v 1 monequip ipNetToMediaPhysAddress | awk -F "." '{print $3"."$4"."$5"."$6":"}' | sed "s/ = STRING: / :/g"

j'ai fait un script (…)

Forum Programmation.shell Sed et une variable contenant un esapce...

Posté par  .
Étiquettes : aucune
0
14
nov.
2005
bonjour,

je voudrais remplacer un mots par le contenu d'une variable.

$deck="mot avec espace"
$echo "monmot" | sed 's/monmot/'$deck'/g'
sed: 1: "s/monmot/mot": unterminated substitute in regular expression

Comment faire pour que des qu'un mots contienne une variable,
sed le remplace quand même...?


merci d'avance.

Forum Programmation.shell couper un fichier en plusieur

Posté par  .
Étiquettes : aucune
0
18
nov.
2005
Bonjour tout le monde.

J'ai un listing immense.

Je souhaiterais le couper en plusieurs partie égale.

Du genre, si il fait 10 000 lignes, pouvoir le transformer
en 10X 1000

Existe t'il une commande pour faire ça, ou il va falloir bricolé un truc...?

En bash exclusivement...!!


Merci d'avance.

Forum Programmation.shell mac vers port de switch

Posté par  .
Étiquettes : aucune
0
18
oct.
2005
Bonour tout le monde...

je suis en train d'essayer de faire un script qui me donnerais le port de
switch en fonction de la mac adresse entrée...

ça donnerais a peu pres ça:



echo $1
deck=$(snmpwalk -v 1 -c commRW@12 myequip .1.3.6.1.2.1.17.4.3.1.1 | grep "$1" | awk -F "." '{print $8"."$9"."$10"."$11}')
deck2=$(snmpwalk -v 1 -c commRW@12 myequip .1.3.6.1.2.1.17.4.3.1.2 | grep "$deck" | awk '{print $4}')
echo $deck2
deck3=$(snmpwalk -v 1 -c commRW@12 myequip .1.3.6.1.2.1.17.1.4.1.2.$deck2 | awk '{print $4}')
echo $deck3
(…)

Forum général.cherche-logiciel Adresse Mac vers port de switch...

Posté par  .
Étiquettes : aucune
0
18
oct.
2005
Bonour tout le monde...

je suis en train d'essayer de faire un script qui me donnerais le port de
switch en fonction de la mac adresse entrée...

ça donnerais a peu pres ça:



echo $1
deck=$(snmpwalk -v 1 -c commRW@12 myequip .1.3.6.1.2.1.17.4.3.1.1 | grep "$1" | awk -F "." '{print $8"."$9"."$10"."$11}')
deck2=$(snmpwalk -v 1 -c commRW@12 myequip .1.3.6.1.2.1.17.4.3.1.2 | grep "$deck" | awk '{print $4}')
echo $deck2
deck3=$(snmpwalk -v 1 -c commRW@12 myequip .1.3.6.1.2.1.17.1.4.1.2.$deck2 | awk '{print $4}')
echo $deck3
(…)

Forum Programmation.shell Modifier une seul ligne d'un tableau...

Posté par  .
Étiquettes : aucune
0
4
oct.
2005
Bonjour à tous


J'ai un tableau de type:



info1 info2 info3 info4
info1 info2 info3 info4
info1 info2 info3 info4
info1 info2 info3 info4
info1 info2 info3 info4
info1 info2 info3 info4

Les infos sont separées par des tabulations.

comment faire si je ne veut modifier que la troisieme ligne par exemple...?

En bash, awk ou sed bien sur...!!

J'ai bien trouvé des solution "bencale" avec head ou autre...
Mais c'est un peu le bordel...