Bonjour,

Je suis en train de créer un petit script perl qui récupère différents paramètres sur mes cartes réseaux. Je rencontre un peu de difficultées à trouver la bonne structure de donnée pour stocker ces différentes informations.
Les contraintes sont :
- je ne connais pas le nombre ni le nom des interfaces réseau, je dois donc le stocker
- je ne connais pas le nombre et le nom des options, ni leurs valeurs.
Je recherche donc un moyen de (…)

Bonjour, je suis en train d'écrire un petit script m'aidant à générer de la doc
J'ai ça : - from_external p:NATIVE_ARRAY[CHARACTER] <-
ça me rend : //* Syntaxe,Header : := from_external_copy <p>

J'ai écris pour cela le bête code :

#!/bin/perl


use strict;
my $res;
while (my $line = ) {
   if ($line =~ /\s*-([\w\s_:,\[\]]+)<-/) {
   # C'est une ligne de def de slot
   $res = $1;
   $res =~ s/([\w_]+)(\s*:[A-Z_\]\[]+)/<$1>/g;

   print " //* Syntaxe,Header : (…)

Bonjour,

je commence le perl et je dois manipuler des fichiers de points, je désire juste remplacer l'écriture "manuelle" du fichier (D:\test_perl\5_point.neu') par un choix du style parcourir...

voici le code:

open F_NEU,''D:\test_perl\5_point.neu''
or die "E/S : $!\n";
my @contenu1 = <F_NEU>;

j'ai fait un autre script avec une fenêtre et un boutton que voici pour parcourir:
sub call_open_project
{
use File::Basename;
my $neufile;
my $types = [
['Configuration Files', ['.neu','.neu']],
['All Files', '*', ],
];
$filenameNEU = $fenetre->getOpenFile(-filetypes=>$types); }

(…)

Bonjour,

Si je veux vérifier qu'une chaîne matche plusieurs regex, j'aurais tendance à faire naïvement :

if ($s =~ /toto/ && $s =~ /titi/ && ... )


Bon, trouvant ça assez laid, je ferais plutôt

foreach my $qw qw\toto tata titi\{
warn "la chaine ne matche pas $qw" and last unless ($s =~ /$qw/ );
}


L'interet principal étant que j'ai une vrai liste de conditions.

Le problème est que ça marche bien si je veux savoir si ma chaîne (…)

bonjour,

J'essaie de construire une expression qui, dans une chaine de caractere, supprime tous les motif du style \suite_de_caractere sauf les \line et \par.

Y a-t-il une regexp qui permet de supprimer des motifs sauf cas particuliers ??


merci de votre aide.

Bonjour,

Comment insérer @ dans une variable scalaire pour que ce ne soit pas pris comme un tableau ?

Exemple de code de test.pl :
#!/usr/bin/perl -w

my $chaine ="user@hostname.com";
print $chaine

message d'erreur :
$ perl test.pl
Possible unintended interpolation of @hostname in string at test.pl line 3.
Name "main::hostname" used only once: possible typo at test.pl line 3.

Merci de votre aide

Bonjour,

Je recherche un script Perl qui fasse une copie récursive (donc avec tous les sous-répertoires, et fichiers des sous-répertoires) d'un répertoire.

Idéalement, le répertoire copié pourrait-être compressé.

Je me doute que ça ne serait pas compliqué à coder, mais je n'ai pas beaucoup de temps et je n'ai donc pas envie de réinventer la roue.

Merci d'avance.

Bonjour à tous !
Il y a un certain temps, j'avais utilisé ce script perl pour gérer automatiquement la vitesse des ventilateurs du CPU :
#!/usr/bin/perl -w

# Fichier de gestion de la vitesse de ventillo

$vitesse_ventil= "/sys/bus/i2c/devices/9191-0290/pwm1";

while (1) {

# Lecture de la température stockée dans $temp
$temp = `cat /sys/bus/i2c/devices/9191-0290/temp3_input`;


if($temp < 45000)
{
exec (`echo 213 > $vitesse_ventil`);
}

if($temp > 45000 and $temp < 50000)
{
exec (`echo 232 > $vitesse_ventil`);
}
if($temp > 50000 (…)

Ma question est sans doute un peu naïve, mais je débute en PERL.

Etant parvenu à anôner péniblement trois pauvres scripts en PERL employant divers modules (dont grepmail et ses dépendances), je me demandais s'il existait un moyen de compiler statiquement mes scripts, de sorte à pouvoir les copier sur des systèmes sur lesquels PERL n'est pas installé.

Bonjour bonjour,

je patauge allègrement avec la gestion des accents (et des jeux de caractères en général) sous Perl.
Plus précisement, je cherche sans succès jusqu'à présent à écrire dans un fichier des chaînes saisies dans l'entrée standard, suceptibles de comporter des accents (et des cédilles, et tous autres caractères ésotériques quelquefois utilisés en français (tiens, une cédille) ).
Pour corser le tout, le script (et le fichier résultat est destiné à être utilisé sous Windows ...

Bref, si une (…)

Bonjour,

Je suis newbies en PERL. J'essaie de contruire un eptit script qui sortirait le pourcentage de l'utilisation des disques. Mon soucis c'est que mon script donne la ligne en entière et non pas la liste du champ désiré.
Voici mon script :

#!/usr/bin/perl -w
@disque=` df -h`;

foreach (@disque)
{print @disque[2]);
}



Merci de votre aide

Bonjour,

Toujours newbie sur PERL, j'aimerais mesurer la taille d'un fichier et que le programme s'arrête si le fichier dépasse 100ko.


#!/usr/bin/perl -w
open(FICHIER, "/var/adm/attach.txt") || die "$!";
$taille=;
close (FICHIER);
if (-s100 $taille) {
die;
}
print "Le fichier est plus grand que 100ko\n" ;


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

Bonjour à tous,

Je suis en train d'adapter des scripts shell UNIX en scripts PERL sous windows.

Mon problème est le suivant :

On me fournit un fichier de configuration (déclaration de variables) qui était sourcé dans les scripts shells.
Les variables déclarées dedans peuvent être de la forme VAR2=$HOME/toto/titi
La présence d'une variable au sein même de la déclaration de VAR2 ne pose donc aucun souci.

Mes ennuis arrivent lorsque je veux utiliser ce même fichier de configuration dans (…)

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

Bonjour,

Je souhaite pouvoir envoyer un courriel via un script Perl, mais je n'arrive pas à insérer une variable dans le champ message.
merci de votre aide
Mon script:

use Net::SMTP;
$a = "1213";
my $smtp = Net::SMTP->new('smtp.xxxx.fr');
$smtp->mail('titi@free.fr');
$smtp->to('tata@free.fr');
$smtp->data();
$smtp->datasend( << 'EOM');
From: <titi@free.fr>
To: <tata@free.fr>
Subject: "Test envoi Couriel"
Vous avez $a mn de retard
Merci.
EOM

$smtp->dataend();
$smtp->quit();

Bonjour,

Pouvez-vous m'expliquer l'erreur suivante que j'ai avec perl 5.005
Can't use subscript on split at..... ligne8, near "$mois]"
Can't use subscript on split at..... ligne8, near "$mois]"

et qui fonctionne parfaitement avec Perl v5.6.1, comment contourner ce problème?

mon script:
($seconde,$minute,$heure,$jour,$mois,$annee,$wday,$yday,$isdst) = localtime(time);
$ann = $annee + 1900
$an = substr ($ann, 2, 2);
$mmm = qw(01 02 03 04 05 06 07 08 09 10 11 12) [$mois];
$mm = qw(Janvier Février Mars Avril Mai Juin Juillet Aout (…)

Mon script:

my $smtp = Net::SMTP->new('MAILHUB',
Debug => 1,
Timeout => 30);
$smtp->mail('pascal@free.fr');
$smtp->to('titi@tri.fr');
$smtp->cc('toto@gmail.fr');
$smtp->data();
$smtp->datasend( << "EOM" );
From: <pascal@free.fr>
To: <titi@tri.fr>
Cc: <toto@free.fr>
Subject: Test
edfkjdsfdsf
sdfdsfdsff
EOM
$smtp->dataend();
$smtp->quit();

Ma question:
Pourquoi à la rèception je vois dans "De:pascal.fr" dans "A: titi.fr@free.fr" et dans "Cc: toto.fr@free.fr"

Cela est gênant si les personnes recevant ce Courriel veulent y répondre.

Merci par avance.

Bonjour à tous,

Voici le code qui me pose problème:

use strict;


my $chaine = "toto#titi#tata#tutu";

my $hash = {};

$hash->{TABLEAU} = split(/#/, $chaine);

print $hash->{TABLEAU}[1];

Et l'erreur renvoyée :

Can't use string ("4") as an ARRAY ref while "strict refs" in use at - line 6.

D'après le manuel, la fonction split utilisée dans un contexte scalaire renvoie le nombre d'éléments, ce qui expliquerait que mon $hash->{TABLEAU} vale 4.

Comment puis-je forcer l'utilisation d'un tableau ??

Merci d'avance pour (…)

Salut à tous,

J'ai installé le module DBD::mysql (et le module DBI) mais quand je l'utilise, j'obtiens l'erreur suivante :

/usr/bin/perl: symbol lookup error: /usr/local/lib/perl/5.8.8/auto/DBD/mysql/mysql.so: undefined symbol: mysql_server_init

Je ne vois absoluement pas d'où ça peux venir ;)

Merci d'avance pour vos idées !

++

Hello,

J'ai un probleme lors de l'utilisation de CGI::Session, lorsque j'essaye de stocker un objet. Apres recherche, j'ai reussi a isoler le probleme.

J'ai une classe, de type Md, qui contient une methode param().
Lorsque je dump (data::Dumper) un objet de ce type, et que je restaure avec Safe (qui en gros fait un 'eval' dans un bac a sable), j'obtiens un objet du bon type, mais qui ne contient pas la methode param.

Voir le code suivant pour explication:


(…)

Bonjour à tous,
voila j'ai une problème d'explosion mémoire quand j'utilise les threads.
Est ce que quelqun a dèja réeussi a résoudre ce probleme?
et si il ya un développeur expérimenté j'envoie mon code source pour qu'il le revoie s'il veut

merci pour votre aide
@bientôt

Bonjour,

comment récupérer dans un fichier les lignes d'un autre fichier
qui contiennent une partie identique?

Fichier1:
tyty aaaaa bien
gig aaaaa mal
1112vf2s2v3
sqdfqs
df

Je voudrais avoir le Fichier2 comme cela:

tyty aaaaa bien
gig aaaaa mal

Merci pour vos réponses.

Je suis en train de voir pour faire un script qui déclenche des actions sur des événements de fichiers mais je ne trouve pas de solutions élégantes. Je suis sur une solution de parcours de l'arborescence et faire le delta avec le parcours d’avant pour savoir qu’elles sont les actions à mener. Avez vous de la documentation/solution qui pourrait m'aider ?

Bonjour,

Je me sépare de plusieurs livres sur Perl.
Ci-dessous la liste,

Programmation en Perl
Perl en action
Perl DBI
Programmation avancée en Perl
Perl & XML

Je suis à Lille, vous pouvez me joindre par email via
bookin @ freesurf.fr (virer les espaces avant et après le @ )

Merci.