Forum Programmation.perl menu interactif

Posté par  .
Étiquettes : aucune
0
5
sept.
2007
bonjour,

Je cherche comment faire un menu interactif sous perl.

menu simple en mode text qui avec les fleches curseurs permet de monter ou descendre une barre en sur brillance sur le choix du texte et une fois le texte choisie en appuyant la touche enter execute une commande.

Ex:

- choix 1
- choix 2
- choix 3
faite un choix

avec une barre blanche en inversion video change le texte qui est de couleur blanche en noir

En (…)

Forum Programmation.perl Checkbutton

Posté par  .
Étiquettes : aucune
0
28
août
2007
Bonjour,

J'ai un petit probleme
Voila, mon programme ci-dessous cree une frame avec 4 boutons.
Le premier (globale option) quand il est active, il active les 3 autres, sinon on active manuellement les 3 autres.
Puis selon les choix, le bouton exec prend en compte les choix et ouvre des fenetres xterm selon les choix.

Mais le probleme tous les choix sont manuels.
Quelqu'un a une solution ?
Je vous remercie d'avance.


#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::FileSelect;
(…)

Forum Programmation.perl adaptation cssh en telnet

Posté par  .
Étiquettes :
0
3
août
2007
Bonjour,

je ne connais assez perl pour modifier le script cssh.
je souhaite faire la même chose que le script cssh mais avec telnet pas avec du ssh.
Je sais telnet n'est pas sécuriser, mais je n'ai pas le choix.

Quelqu'un peut il m'aider a adapter ce script pour faire du telnet au lieu du ssh ?
Ci-dessous le script. Merci d'avance pour toutes réponses.

#!/usr/bin/perl

my $VERSION = '$Revision: 3.19 $ ($Date: 2006/07/24 19:12:54 $)';

# Now tidy it (…)

Forum Linux.général Terminal too wide

Posté par  .
Étiquettes : aucune
0
4
juil.
2007
Bonjour,

Je recherche une solution a un probleme avec un terminal ( xterm)

voila, dans un terminal (xterm) quand je fais un vi fichier, j'ai le message suivant:

Terminal too wide.

et je ne peux rien faire, que sortir de vi.

Quand je reduis ma fenetre, ça fonctionne.

y a t'il une solution ?

Forum Programmation.shell comment sortir d'une boucle apres un nombre ?

Posté par  .
Étiquettes : aucune
0
25
juil.
2006
Bonjour,

Je souhaite faire un petit shell qui toutes les minutes pendant 1 heure vérifie un certain nombre de process.
- Si au bout d'une heure ( la boucle ce termine) il y a encore des process, les kill l'un après l'autre.

- Si moins d'une heure, il n'y a plus de process, sort de la boucle et fin du shell.

J'ai un doute sur mon code ?
Comment faire si au bout d'une heure ils restent encore des process (…)

Forum Programmation.shell Comment faire un compteur

Posté par  .
Étiquettes : aucune
0
25
juil.
2006
Bonjour,

Je cherche comment faire un compteur:

Voila, j'ai une appli quand elle fonctionne génère beaucoup de process.
Quand j'arrête l'appli, cela prend environ 60 minutes.
Après 1 h il reste que très peu de process que je peux killer, mais cela cree des problèmes a la base qui d'une autre commande je la répare.

Ce que je souhaite faire, c'est :
1) arrêt de l'appli
2) faire un compteur qui toute les 60s vérifie le nombre de process puis (…)

Forum Programmation.perl Comment faire ?

Posté par  .
Étiquettes : aucune
0
20
fév.
2006

Bonjour,

Je débute en Perl, alors je demande a ceux qui ne le sont pas d'être indulgent.

Voila, je cherche comment faire une redirection des erreurs de mon script vers un fichier log.

voici un exemple de mon script:

!/usr/bin/perl -w

open (F,'<intf.pl') || die "Probleme d'ouverture : $!" ;

my $i=0;

while (my $ligne = ) {

$i++;

}

print "\n\011Nombre de lignes du fichier $F : $i \n\n";

###################

ce que je souhaite, le message "Probleme d'ouverture" soit écrit (…)

Forum Programmation.perl Comment faire en perl une connexion sql

Posté par  .
Étiquettes : aucune
0
15
fév.
2006
Bonjour a tous

Je cherche comment faire en script perl une connexion a une base oracle et récupérer dans une table a un champ précis son contenu,
l'écrire dans un fichier txt puis écrire OK dans la table a un champ précis

nom base = ma_base
login = moi
pass = Cmoi
table = toto
champ = tata (pour la lecture)
champ = titi (pour l'ecriture)

Je ne connais pas assez le perl, car je l'apprends en ce moment.

voici (…)

Forum général.cherche-logiciel Comment archiver un fichier sur plusieurs disquette

Posté par  .
Étiquettes : aucune
0
12
jan.
2006
Bonjour a tous,

Comment archiver un fichier sur plusieurs disquette ?

Voici mon problème:

j'ai un fichier
ex: toto.txt.zip qui fait 3.40 Mo tout zippé, je souhaite le copier sur disquette format dos, avec winzip je connais la manipe pour le faire sur faire sur plusieurs disquettes, mais sous linux ???
Et bien sur, pouvoir le restorer l'archive sur une machine windows.

Comment faire ?

Merci pour toutes réponses.

Forum Programmation.shell comment reconnaitre un fichier

Posté par  .
Étiquettes : aucune
0
12
jan.
2006
Bonjour a tous,

Voilà mon problème:

j'ai des fichiers logs:
009_psaz_20060102.txt
009_psaz_20060102.txt.zip

comment faire pour savoir si c'est zip ou un txt sachant que les répertoires ou ce trouve ces logs sont nombreux.

Voici ma commande:
cd /
find . -name *20060102* -print | la suite je ne trouve pas ...
car cette commande affiche les 2 fichiers.
voici le résultat que je souhaite:
1 cherche le fichier par date *AAAAMMJJ*
2 si c'est un fichier txt ouvre le avec (…)

Forum Programmation.shell Comment modifier chaque ligne dans un fichier ?

Posté par  .
Étiquettes : aucune
0
19
déc.
2005
bonjour a tous,

Comment modifier chaque ligne dans un fichier ?
je souhaite incrémenté chaque ligne

voici mon fichier ( toto.txt):
1245;tous;ok;78y9;local;14587
numer;tous;ok;7d89;local;12457
g1245;tous;ok;7d89;local;124587
TY1245;tous;ok;7849;local;12487

voici mon script:
fic=`cat toto`
for n in $fic
do
num=`expr 12 + 1`
awk 'BEGIN {flag=0}; /tous/ {flag=1;} flag==1 { print "$num"$0}' $fic
done

Mais ça marche pas !!
le résultat que je souhaite:

13;tous;ok;78y9;local;14587
14;tous;ok;7d89;local;12457
15;tous;ok;7d89;local;124587
16;tous;ok;7849;local;12487

Merci pour toutes réponses.

Forum général.cherche-logiciel comment modifier chaque ligne dans un fichier

Posté par  .
Étiquettes : aucune
0
19
déc.
2005
bonjour a tous,

Comment modifier chaque ligne dans un fichier ?
je souhaite incrémenté chaque ligne

voici mon fichier ( toto.txt):
1245;tous;ok;78y9;local;14587
numer;tous;ok;7d89;local;12457
g1245;tous;ok;7d89;local;124587
TY1245;tous;ok;7849;local;12487

voici mon script:
fic=`cat toto`
for n in $fic
do
num=`expr 12 + 1`
awk 'BEGIN {flag=0}; /tous/ {flag=1;} flag==1 { print "$num"$0}' $fic
done

Mais ça marche pas !!
le résultat que je souhaite:

13;tous;ok;78y9;local;14587
14;tous;ok;7d89;local;12457
15;tous;ok;7d89;local;124587
16;tous;ok;7849;local;12487

Merci pour toutes réponses.

Forum général.cherche-logiciel comment modifier chaque ligne dans un fichier

Posté par  .
Étiquettes : aucune
0
19
déc.
2005

bonjour a tous,

Comment modifier chaque ligne dans un fichier ?

je souhaite incrémenté chaque ligne

voici mon fichier ( toto.txt):

1245;tous;ok;78y9;local;14587

numer;tous;ok;7d89;local;12457

g1245;tous;ok;7d89;local;124587

TY1245;tous;ok;7849;local;12487

voici mon script:

fic=cat toto

for n in $fic

do

num=expr 12 + 1

awk 'BEGIN {flag=0}; /tous/ {flag=1;} flag==1 { print "$num"$0}' $fic

done

Mais ça marche pas !!

le résultat que je souhaite:

13;tous;ok;78y9;local;14587

14;tous;ok;7d89;local;12457

15;tous;ok;7d89;local;124587

16;tous;ok;7849;local;12487

Merci pour toutes réponses.

Forum Programmation.shell Comment afficher ligne apres ligne ?

Posté par  .
Étiquettes : aucune
0
14
nov.
2005
Bonjour a tous,

Comment faire pour afficher ligne après ligne a partir d'une ligne précise et ajouter a la fin de chaque ligne " [ OK ] ?

J'ai pensé a ça :

fic=`cat file_date.txt |grep "1080439200"`
for text in $fic
do
$text; echo " [OK]"
do

Mais ça ne fonctionne pas !!

Mon fichier ressemble a ça:

|Changement hiver/ete 2003 | 1048989600|
|Changement ete/hiver 2003 | 1067137200|
|Changement hiver/ete 2004 | 1080439200|
|Changement ete/hiver 2004 | 1099191600|
|Changement hiver/ete (…)