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.

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.

bonjour,

Avec la bibliotheque XML::Simple, quand je parse mon fichier,
j'obtient un tableau de hash...

@int = $fichier->{int};

print Data::Dumper->Dump([\@int],['*int']);

@int = (
[
{
'type' => 'vl1',
'mib' => '1',
'descr' => {}
},
{
'type' => 'fa0/1',
'mib' => '2',
'descr' => 'deck'
},
{
'type' => 'fa0/2',
'mib' => '3',
'descr' => 'deck2'
},
{
'type' => 'fa0/3',
'mib' => '4',
'descr' => ' user440 '
},
{
'type' => 'fa0/4',
'mib' => '5',
'descr' => 'same-as-you'
(…)

Bonjour,

J'essaye desperement de poster un bout de code,
et je n'y arrive pas, comment faire pour poster du code,
y compris avec des "plus grnad que" et "plus petit que"...



un exemple de ce que ça me donne...


Bonjour à tous.

J'ai fais un script qui sauvegarde la configuration des equipements
reseaux du site sur lequel je boss.

Il donne des fichiers comme ça:



salle server 18
suresnes/e/e4
cisco internetwork operating system software ios (tm) c2900xl software (c2900xl-c3h2s-m), version (…)

bonjour tout le monde. Je suis le "absolute beginner", et j'aimerais savoir si il y a un moyen en Perl d'afficher tout le contenue d'une table de hachage. J'obtient ma table en faisant: $response = $session-#get_table( -baseoid =#; $oid ) ; ps: desolé pour cette question, mais je trouve pas...! pps: je n'arrive pas à afficher les "plus grand que", c'est remplacé par #

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
(…)

Bonjour,

Comment puis faire des requettes snmp en perl...?

J'ai vu sur le net qu'il etait possible de le faire grace au paquet
net-snmp...?

Quelqu'un la t'il deja fait...?

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...!

Bonjour tout le monde.

Je cherche le schéma des câble Giga, croisé.

Et je ne trouve rien de "sur".

Je ne trouve pas chez IEEE.

Quelqu'un aurait il, de source sur, les schémas
de cablages pour les diverses categories.

merci d'avance.

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...

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...!!

Bonjour,

J'aimerais savoir comment faire pour trouver un mot
dans un fichier, que l''on ne connait pas...:!

Par exemple, connaitre tout les fichier de mon disque
dur contenant le mot "foo"...


Merci d'avance

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 (…)

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 (…)

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 (…)