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é a voir mes Mails
 (texte + HTML multipart/alternative) tout blanc 
(mais avec le source (…)

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

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é a voir mes Mails
 (texte + HTML multipart/alternative) tout blanc 
(mais avec le source (…)

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

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

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;
print "ok\t0:'$vlist->[0][0]'\t1:'$val->[0][1]'\t2:'$val->[0][2]'\t3:'$val->[0][3]'\n";
print Dumper($vlist);
SNMP::finish();


Le resultat affiché a lecran est :

(…)

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 ?

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

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.

Bonjour, je me perd un peu avec la caractère dynamiquement typé de perl, car j'ai du mal à récupérer le contenu HTML des cases des tableaux contenus dans une page HTML.

J'ai le script suivant :

#!/usr/bin/perl
use LWP::Simple;
use LWP::UserAgent;
use HTML::TableExtract;

# recup de STDIN dans une string
my $holdTerminator = $/;
undef $/;
my $buf = ;
$/ = $holdTerminator;
my @lines = split /$holdTerminator/, $buf;
$buf = "init";
$buf = join $holdTerminator, @lines;

my $te;
my (…)

J'ai un petit code qui sur le papier devrait bien marcher mais seulement quand je le lance ben ça marche nettement moins bien


use threads;
use strict;
use DBI;
use warnings;
use diagnostics;

my @pth;
my $ptiming;
my $rep;
my $database = "...";
my $hostname = "localhost";
my $login = "root";
my $mdp = "";
my $dsn = "DBI:mysql:$database:$hostname";
my $sth;
my $dbh;

threads->new(\&main)->join;

sub main
{
while(1)
{
$dbh = DBI->connect($dsn,$login,$mdp) or die "ECHEC connexion";
@pth = ();
for(my (…)

Toujours pour mes statistiques d'utilisation de l'IPv6 https://linuxfr.org/forums/41/25592.html , j'ai fait un daemon en perl qui utilise iptables http://www.linux.com/articles/50649 .

J'ai mis ce code dans un bloc END pour mettre à jour une dernière fois la BDD à l'arrêt du daemon :

END {
if (getppid() == 1) { update_stats(); }
}


Avec getppid() == 1, j'ai déjà empêché la mise a jour à l'arrêt du processus initial, mais Proc::Daemon forke deux fois le programme pour le séparer de son (…)

bonjour,

je suis sur que c'est possible en Perl,
j'aimerais contruire une expression rationnelle pour substituer selon une condition

je voudrais modifier un url et lui rajouter un argument à la fin, donc si l'url source a deja des argument, je rajoute &arg=truc, si elle n'en a pas , je rajoute ?arg=truc

Je n'est aucun probleme a matcher si il y a des argument ou pas, mais apres... comment faire en une seule condition rationnelle ?

je vous remercie d'avance (…)

bonjour,
je veux faire un script capable de modifier un ensemble de fichiers html.

par exemple je veux supprimer tous les javascripts et reconvertir les url ne commençant pas par http://

j'ai pas de soucis pour la suppression des javascript, mais j'arrive pas à convertir les url:
je voudrai par exemple qu'une url de ce type href="foo/bar.html" soit transformé en href="ssfoo/foo/bar.html" le pb c'est que j'ai aussi des url commençant par http

#!/bin/sh
perl -0777pe 's/

bonjour a tous,

Est-ce vraiment possible de faire cela ?
je dois réaliser un script perl sous windows (si si, obligé) pour lancer des commandes sous des linux. Jusque la, pas de probleme, avec un peu de gestion processus (IPC::open2) je peux lancer des commandes et accepter automatiquement le/les nouveau serveurs.

Mais ma grande question est la :
je dois lancer certaines commandes en root, et dans mon cas précis, pas d'autres choix que de faire des sudo alors.
Je (…)

Salut, salut!


Alors voila, tout le monde se plaint que pour uploader des fichiers au wiki de culture libre (mediawiki), c'est chiant si on veut uploader tout un lot de photo par exemple. Après avoir fait un tour de l'existant, je décide de faire une petite interface d'upload à mediawiki en utilisant la lib[1] perl qui va bien.

Et comme dans mes livres perl j'ai appris que la paresse est une vertu, j'ouvre directement glade et commence à jeter des (…)

Bonjour,

ça fait plusieurs heures que je cherche l'expression régulière qui va bien du cas suivant;

a#TOTO=ok
b#JOJO
c#TITI=machin
...


et qui doit donner en résultat:


a=ok
b
c=machin
...


dans le texte: virer la partie #LENOM mais pas ce qu'il y a après le '=' s'il existe...
j'y arrive, mais en deux expressions - j'aimerais le faire en une seule - et qui sont:

s/#.*=/=/;
s/#.*//;


bref, si quelqu'un a une idée... Merci à tous.

Bonjour,

J'ai un script qui fonctionnait bien avant la mise à jour en ubuntu 9.04.

Ce script qui fait des comparaisons de date entre la sortie et l'entrée de jetons, plante avec le message d'erreur suivant :
Can't open perl script "centre": Aucun fichier ou dossier de ce type

Le mot "centre" n'est pas présent dans le script, je ne comprend pas d'où vient cet appel.
Le script dépend des module Date-Pcalc-1.2 que j'ai installé, et aussi des paquetages libdate-manip-perl

(…)

bonsoir,

je suis en train de réaliser une recette pour pouvoir inclure la syntaxe txt2tags à l'intérieur de pmwiki :

http://pmwiki.org/wiki/Cookbook/Txt2tags

Cela ne fonctionne pas trop mal, mais je bloque sur certaines parties, notamment pour faire des remplacements avec des regex sur des zones de texte s'étendant sur plusieurs lignes.


Dans ma recette, j'ai cela :
Markup ('txt2tags_verbatimline' , 'directives', '/``` (.*?)/', "<:pre>$1");

Ce qui permet d'ajouter la balise PRE à tout texte compris entre 2 `, par exemple

(…)

Bonjour,

Nous éditons un logiciel qui inclut du Perl. Nous utilisons notamment des modules du CPAN sous double licence Artistic et GPL.
Ma boite veut pouvoir distribuer ce logiciel sous licence propriétaire (oui je sais, mais la route est encore longue avant l'acceptation. J'ai déjà eut du mal a faire utiliser des logiciels libre...)

=> Est-ce possible d'avoir une licence proprio sur des scripts qui utilisent des modules sous licence libre?

Avec la licence Artistic, ça semble possible, mais j'ai (…)

Bonjour,

J'ai besoin d'ecrire un programme qui lit un fichier texte contenant entre 50 et 500 Mo de nombre entier (sous forme texte) dans un tableau a 3 dimensions (mais je peux survivre avec une seule dimension) et ensuite faire certains calculs dessus.

La taille maximum theorique en C avec des entiers 32 bits serait a peu pres de 3-400 Mo, malheureusement, j'atteins des tailles de 9-10 Go simplement avec des tableaux 2 dimensions (trop de reference anonyme a d'autre (…)

Bonjour,

Je suppose que mon cas est trivial, malheureusement ça fait plusieurs années que je n'ai pas pratiqué les expressions rationnelles et du coup, j'ai un peu perdu la main.

Tout le code se trouve sur http://pastebin.com/m3398f5c6

J'ai l'intention de créer une expression pour enlever la balise html qui contient un attribut dont le mot-clé est "language" et la valeur "fr", ainsi que le contenu délimité par ces balises (dans cet exemple, faire sauter la deuxième ligne, tout simplement).

Évidemment, (…)

Bonjour,

Newbies en perl, j'essaye d'introduire un division dans une modification de script. Celle ci fonctionne mais me donne un chiffre à virgule.

for ( $u = 1 ; $u # Average with the upper number
$userCheckOutaverage[$u] = $userCheckOutElapsed[$u] / $maxFeat ;
WriteToScreenAndFile( \*REPORTFILE, sprintf( '%-30s %5d %15ss ',
$userName[$u], $userCheckOutTotal[$u], $userCheckOutaverage[$u] ) ) ;
}

Comment faire pour que $userCheckOutaverage[$u] soit un entier sans virgule?

Bonjour,

Comment faire passer les méta caractère tel que "(" dans le script suivant :

#!/usr/bin/perl -w
$who = `who | grep -v \(:`;
print "$who";



J'aimerais reprendre ce bout de code pour faire mon watchlog perso... mais il bloque à la parenthèse après le grep.
Dans le shell cette commande fonctionne très bien.

Merci de votre aide

Bonjour,

je me suis mise au perl et j'ai quelques soucis ...

dans un fichier je cherche le premier mot clé d'une ligne (les autres même mots clés des autres lignes m'importe peu..)

comment puis je extraire cette ligne? jai essayer avec 'index' mais....
si j'utilise index comment puis je lui dire que c'est que le premier mot clé et non pas chaque apparition de ce mot?