je tente d'utiliser expect avec Perl mais je bute sur un sérieux problème. Je sais qu'il existe un module expect.pm mais je veux utiliser le expect normal.
J'ai plusieurs lignes à envoyer à expect et ça bloque dès que j'ai un "send".
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,
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
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 ?
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 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;
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 (...)
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.
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 :
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,
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();
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,
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
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 (...)
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 ?