[Supersedes pour rajouter un groupe dans xpost]

Bonjour,

J'ai une machine sur laquelle je dois déployer une appli Perl. J'ai
donc installé ActivePerl dessus. L'appli doit se connecter à une base
Ingres, et donc je dois utiliser le driver DBD::Ingres.
Malheureusement, ce module n'est pas disponible par PPM, je dois donc
le compiler à la main.

J'ai donc installé sur cette machine « Visual C++ 2005 Express
Edition », ainsi que le SDK pour le dev. La compilation se passe plus
ou moins bien (j'ai par exemple été obligé de patcher le Makefile
généré pour remplacer libc.lib par libcmt.lib, la première n'existant
plus). Bref, sur ma machine de dev, ce module marche correctement, les
tests passent avec succès, et mes scripts de tests maison ne détectent
pas d'anomalie.

Maintenant, je dois déployer Perl, et cette appli sur une autre
machine. Particularité : cette machine n'a pas d'accès Internet, entre
autres contraintes un peu chiantes. Afin de pouvoir automatiser ça le
plus possible, j'ai transféré simplement le répertoire C:\Perl de ma
machine de dev vers la machine de test.

Bonjour,

J'ai une machine sur laquelle je dois déployer une appli Perl. J'ai
donc installé ActivePerl dessus. L'appli doit se connecter à une base
Ingres, et donc je dois utiliser le driver DBD::Ingres.
Malheureusement, ce module n'est pas disponible par PPM, je dois donc
le compiler à la main.

J'ai donc installé sur cette machine « Visual C++ 2005 Express
Edition », ainsi que le SDK pour le dev. La compilation se passe plus
ou moins bien (j'ai par exemple été obligé de patcher le Makefile
généré pour remplacer libc.lib par libcmt.lib, la première n'existant
plus). Bref, sur ma machine de dev, ce module marche correctement, les
tests passent avec succès, et mes scripts de tests maison ne détectent
pas d'anomalie.

Maintenant, je dois déployer Perl, et cette appli sur une autre
machine. Particularité : cette machine n'a pas d'accès Internet, entre
autres contraintes un peu chiantes. Afin de pouvoir automatiser ça le
plus possible, j'ai transféré simplement le répertoire C:\Perl de ma
machine de dev vers la machine de test.

Bonjour à tous,

Est-ce qu'il existe un équivalent Perl de la fonction GetImageSize qui
existe en PHP ?

J'utilise la librairie GD http://search.cpan.org/~lds/GD-2.35/GD.pm

Mon but n'estb pas spécialement d'avoir la taille de l'image que je peux
trouver par

($width,$height) = $image->getBounds();

Ce que je veux surtout c'est le type de l'image (GIF, JPEG, ...) comme me le
propose la fonction php GetImageSize

Merci d'avance pour vos lumières

Thibault

Bonjour,

Je suis en train de suivre un tutoriel dont voici le lien
http://perl.enstimac.fr/DocFr/perlretut.html#les%%20regroupements%%20sans%%20m%%E9morisation.

J'ai un petit soucis avec un exemple sur les expressions
conditionnelles :

Selon le tuto, les expressions s'utilisent comme suit :

(?(condition)motif-oui) et (?(condition)motif-oui|motif-non)

Avec un exemple :

La première forme de la condition nous permet de choisir, avec plus de
flexibilité, ce que l'on veut reconnaître en fonction de ce qui a déjà
été reconnu. L'exemple suivant cherche les mots de la forme "$x$x" ou
"$x$y$y$x" :

%% simple_grep '^(\w+)(\w+)?(?(2)\2\1|\1)$' /usr/dict/words
beriberi
deed

Ce que je ne comprends pas :

- si motif-oui et motif-non sont des motifs de substitution selon la
condition

bonjour,

soit le code :

--- begin -------------------------------------------------------------
my $texte="Pour briser le code de Vigénère, il faut d'abord trouver la
longueur de la clé, et pour cela, il faut trouver des répétitions...

Archive-Name: fr/chartes/comp.lang.perl

Auteur: Sylvain Nierveze

-----------------------------------------------------------------------
L'auteur de ces conseils d'utilisation ne désire plus les maintenir et
les rend donc à la communauté. Vous pouvez reprendre le flambeau en
contactant l'équipe de modération de fr.usenet.reponses à l'adresse
fur (chez) fr-chartes (point) org.
-----------------------------------------------------------------------

========================================================
= Conseils d'utilisation du groupe fr.comp.lang.perl =
========================================================

---------------------------------------------------------
Nom : fr.comp.lang.perl
Statut : non modéré
Description : Langage de programmation Perl
Date de création : 16/12/96
---------------------------------------------------------

1 - Charte du groupe :
----------------------

Bonjour,

Je suis en train d'écrire un petit script afin de parser un fichier.
Je voudrais savoir s'il est possible de définir un 'offset' afin de
récupérer X lignes avant ou après le 'match' d'un regex (à la façon
d'un grep -B ou -A).

En vous remerciant,

C. Tobini

Bonjour,
Je tente un transfert avec
$a=system("curl -T fichier url -u user:password");
et $a contient toujours 512
alors que les codes retour de curl plafonnent à 76
Comment récupérer un code retour cohérent (genre vrai/faux)
pour gérer le traitement ?
Merci
Thibaud

bonjour

j'essaie d'utiliser map sur un tableau pour éviter une boucle foreach
dans cet exemple j'essaie de supprimer l'extension de fichier

le foreach marche, pas le map :
./essai.pl
1 2 3
1 1 1
je soupçonne un problème de contexte ?

#!/usr/bin/perl
use strict;
use warnings;

my @list = ('1.rrd', '2.rrd', '3.rrd');
my @list2 = @list;

foreach (@list) {
s/\.rrd//;
}

print "@list\n";

my @list3 = map { s/\.rrd// } @list2;

print "@list3\n";

On Jul 5, 7:45 pm, kurtz le pirate wrote:

http://perl.enstimac.fr/DocFr/perlretut.html#extraire%%20ce%%20qui%%20est%%20reconnu