bonjour tout le monde.

Je cherche comment paremetrer mon interface, de façon
a ce que la fenetre active soit opaque, mais les inactives
soient translucide.

J'ai bien compilé xfwm avec --enable-composite.

J'utilise le theme aqualemon, la barre de programme en bas est un peu translucide,
les fenetres ont bien une ombre auteur d'elles, mais je ne sais pas comment
faire pour parametré la transparence.

Merci d'avance.

Bonjour,

Je viens d'installer xfce4.2, tout marche, j'ai un super wallpaper, celui par default.

J'arrive à le changer ( je suis fort hein...! ).

Je bidouille a droite à gauche, je rajoute des icones dans ma barre d'application.

Et je surf sur linuxfr.

Et pis je m"apperçoit au bout d'un moment que je n'ai plus de wallpaper et que je ne
peux plus faire de clickdroit sur le desktop...

Je suis perdu...

Merci d'avance pour votre aide.

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