bonjour,
je cherche un tuto concernant le langage perl, qui soit interessant pour un debutant,
en fait, j'en ai besoins dans mon projet, une etape de recueil des informations à partir des fichiers logs du logiciel nagios.

donc si vous en connaissez un, n'hesitez pas à le faire.

merci.

> Lire le message (5 commentaires, moyenne: 1,2).  

Bonjour,

Voilà je rencontre un soucis avec Perl sous AIX, je cherche à comprendre pourquoi un paramètre sytème n'est pas pris en compte dans l'environnement de Perl.

J'ai configuré sous AIX les limit avec les valeurs suivantes :


time(seconds) unlimited
file(blocks) unlimited
data(kbytes) unlimited
stack(kbytes) unlimited
memory(kbytes) unlimited
coredump(blocks) 2097151
nofiles(descriptors) 2000


Ces paramètres sont bien pris en compte par n'importe (à suivre ...)

> Lire le message (5 commentaires, moyenne: 1).  

Bonjour à tous,

J'essaye d'installer un module CPAN "tree-suffix" malheureusement il contient du C et franchement je ne sais pas comment procéder pour utiliser cette bibliothèque très importante dans mes travaux,

Si vous pouvez m'aidez svp

Merci

> Lire le message (2 commentaires, moyenne: 3).  

Bonjour

Je ne fais pas de script perl mais je l'utilise pas peu à la manière de SED pour faire des substitutions ou autres

Je suis en UTF-8 et j'ai quelques difficultés, comme dans cet exemple:

echo école | perl -pe 's/^./e/'

cela me renvoie : e�cole (edit: c'est mal rendu sur le forum, il y a juste une fois le signe avec le point d'interrogation en réalité)

Je n'ai pas ce problème avec SED. Savez-vous comment y remédier ?

> Lire le message (7 commentaires, moyenne: 1).  

bonjour,

Je voudrais effectuer mes requetes snmp en mode asynchrone.

Seulement je ne parviens pas à extraire les données vouluues à partir de la foncttion callback.

Voici le code:

use SNMP;
use Data::Dumper;

$session = new SNMP::Session(DestHost => "$ip", Community => "$com", UseSprintValue => 1, Version => 1);

my $res = $session->get("sysDescr.0",[\&call]);
die $session->{ErrorStr} if ($session->{ErrorStr});
SNMP::MainLoop();

Et la fonction callback:

sub call {
my $vlist = shift (à suivre ...)

> Lire le message (1 commentaire, moyenne: 2).  

Bonjour à tous,

J'ai fait un script avec 'WWW::Mechanize' qui me récupère des données sur le net.
Ce script tourne pendant de longues périodes en arrière plan.

Je cherche un moyen de limiter la bande passante utilisée par le script afin de pouvoir continuer à utliser le net pour le reste de mes utilisations.

J'ai essayé Trickle (qui fonctionne très bien avec Firefox) mais celui ci ne veux pas fonctionner avec mon script Perl.

Connaissez vous un moyen des faire ça dans le code ?
Ou (à suivre ...)

> Lire le message (1 commentaire, moyenne: 2).  

Bonjour,

Je possède 2 fichiers, 1 avec des valeurs (fic1) et un autres dit de référence (fic2) .
Je souhaite réaliser un programme Perl qui pour chaque valeur du fic1 je vienne modifier un champ défini du fic2 et écrire le résultat dans un fichier final (fic3).
Ce que je n'arrive pas à faire c'est d'écrire dans fic3.
Vous trouverez ci dessous le dèbut de mon script:

#!/usr/bin/perl
# Nom du fichier analysé
$file="c:\\swtable2.txt";
# Ouvre le fichier, qui s'il n'existe pas
open(INFILE (à suivre ...)

> Lire le message (1 commentaire, moyenne: 1).  

F.A.I. Free acces smtp.free.fr port 25 bonjour, j'utilise depuis des années la bibli perl Mail::Sendmail.pm

dans laquelle l'entete est envoyée par :

    foreach $server ( @{$mailcfg{'smtp'}} ) {
        unless ( socket S, AF_INET, SOCK_STREAM, scalar(getprotobyname 'tcp') ) {
            return fail("socket failed ($!)")
        }

autrement dit un enchainement d'echanges par "socket" 
en désordre Subject: User-Agent: MIME: and so on ...
fin 2007 les Apple Mac ont commencé (à suivre ...)

> Lire le message (0 commentaire).  

F.A.I. Free acces smtp.free.fr port 25 bonjour, j'utilise depuis des années la bibli perl Mail::Sendmail.pm

dans laquelle l'entete est envoyée par :

    foreach $server ( @{$mailcfg{'smtp'}} ) {
        unless ( socket S, AF_INET, SOCK_STREAM, scalar(getprotobyname 'tcp') ) {
            return fail("socket failed ($!)")
        }

autrement dit un enchainement d'echanges par "socket" 
en désordre Subject: User-Agent: MIME: and so on ...
fin 2007 les Apple Mac ont commencé (à suivre ...)

> Lire le message (1 commentaire, moyenne: 2).  

Bonjour,
j'aimerais savoir ou je peus me procurer un compilateur pascal pour linux
et avoir aussi un exemple de code pascal
et savoir les commandes pour compiler
Merci

> Lire le message (2 commentaires, moyenne: 3).  

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.

> Lire le message (4 commentaires, moyenne: 1,8).  

Bonjour,
J'ai un petit problème avec gtk-perl, plus précisément avec le widget NoteBook, ce widget sert à créer des « pages d'onglets ». Pour créer une nouvelle page l'objet NoteBook à une méthode append_page($child, $label_tab), l'argument $child est le widget à afficher dans la page, et $label_tab le widget à afficher sur l'onglet (le titre de l'onglet quoi).

Je dois mettre une image et un label dans le titre de l'onglet, donc j'ai créé une HBox et l'ai remplis d'un bouton et d'un label (à suivre ...)

> Lire le message (0 commentaire).  

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 ?

> Lire le message (4 commentaires, moyenne: 3).  

Comment trouver les lignes contenant le même mot dans un fichier texte en langage PERL.

Merci

> Lire le message (7 commentaires, moyenne: 2,1).  

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.

> Lire le message (9 commentaires, moyenne: 1,9).  

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

> Lire le message (3 commentaires, moyenne: 1,7).  

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:


#!/usr/bin/perl

use strict;
use Data::Dumper (à suivre ...)

> Lire le message (0 commentaire).  

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 !

++

> Lire le message (2 commentaires, moyenne: 1).  

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 (à suivre ...)

> Lire le message (2 commentaires, moyenne: 1,5).  

Bonjour,

Pouvez-vous me dire s'il est possible d'afficher le résultat d'un programme Perl avec des couleurs et tailles de caracteres différentes des caractères standards?

Merci

> Lire le message (3 commentaires, moyenne: 1,7).