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/
Forum Programmation.perl monitoring disque dur
Forum Programmation.perl modification de fichier html en masse avec perl
Forum Programmation.perl BASE64 LDAP
Forum Programmation.perl expression rationelle conditionnelle
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 (…)
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 (…)
Forum Programmation.perl Proc::Daemon et bloc END { }
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 :
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 (…)
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 (…)
Forum Programmation.perl Récupérer les tableaux d'une page HTML
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 :
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 (…)
Forum Programmation.perl thread et mysql
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 (…)
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 (…)
Forum Programmation.perl cherche tuto interessant sur perl
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.
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.
Forum Programmation.perl Perl, AIX et les limits
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 :
Ces paramètres sont bien pris en compte par n'importe quelle session shell SAUF dans l'environnement Perl :
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 quelle session shell SAUF dans l'environnement Perl :
# perl
system("ulimit -a");
time(seconds) unlimited
file(blocks) unlimited
data(kbytes) 2097152
stack(kbytes) (…)
Forum Programmation.perl installer un module CPAN (urgent SVP)
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
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
Forum Programmation.perl substition avec perl et utf-8
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 ?
Forum Programmation.perl snmp mode asynchrone et fonction callback
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:
Et la fonction callback:
Le resultat affiché a lecran est :
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 :
(…)
Forum Programmation.perl Limiter la bande passante utlisée par le script
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 (…)
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 (…)
Forum Programmation.perl Script perl manipulation données et écriture dans fichier
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 (…)
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 (…)
Forum Programmation.perl FAI free & Mail::Sendmail.pm
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 (…)
Forum Programmation.perl compilateur linux
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
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
Forum Programmation.perl Bouquins Perl à céder
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.
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.
Forum Programmation.perl Action sur des évenements sur des fichiers
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 ?
Forum Programmation.perl Lignes avec mots identiques
Comment trouver les lignes contenant le même mot dans un fichier texte en langage PERL.
Merci
Merci
Forum Programmation.perl probleme thread sous perl
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
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
Forum Programmation.perl récupération lignes ayant des mots identiques.
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.
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.
Forum Programmation.perl Pb avec un module cpan
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 !
++
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 !
++
Forum Programmation.perl Problème de type
Bonjour à tous,
Voici le code qui me pose problème:
Et l'erreur renvoyée :
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 (…)
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 (…)
Forum Programmation.perl Coloriser les caractères d'un résultat
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
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