Perl

[Perl] patterns avec un object

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] patterns avec un object

burgergold

5$? va chez l'diable!

Je tente de faire un match à partir d'une methode d'un objet

j'aimerais éviter à avoir à me déclarer une variable pour faire le matching, pour plutot utilisé un truc comme le 2e ou 3e morceau de code

fonctionne

Code :

my $test = $httpd_conf->DocumentRoot;
if ($file->name =~ m/^$test\/?/) {
print "true\n";
}

fonctionne pas

Code :

if ($file->name =~ m/^$httpd_conf->DocumentRoot\/?/) {
print "true\n";
}

fonctionne pas

Code :

if ($file->name =~ m/^${httpd_conf->DocumentRoot}\/?/) {
print "true\n";
}

Publicité

pospos

tu peux utiliser (??{code}) :

Code :

if ($file->name =~ m/^(??{$httpd_conf->DocumentRoot})\/?/) {
print "true\n";
}

burgergold

5$? va chez l'diable!

c'est 2 fois ??

dans mon bouquin c'était écrit (?{...}) et ca fonctionnait pas

super, jvais essayer

burgergold

5$? va chez l'diable!

pospos a écrit :

tu peux utiliser (??{code}) :

Code :

if ($file->name =~ m/^(??{$httpd_conf->DocumentRoot})\/?/) {
print "true\n";
}

jviens d'essayer et ca ne fonctionne pas :sweat:

pospos

?{} ca execute sans interpoler, ??{} ca execute et ca interpole, mais ces deux fonctions sont assez contreversées...

Mais normalement ca doit marcher... t'es sur Perl 5.8 ?

burgergold

5$? va chez l'diable!

pospos a écrit :

?{} ca execute sans interpoler, ??{} ca execute et ca interpole, mais ces deux fonctions sont assez contreversées...

Mais normalement ca doit marcher... t'es sur Perl 5.8 ?

5.8.3

dailleurs on vient de tenter 2 trucs

Code :

if ($file->name =~ m/(??{$httpd_conf->DocumentRoot})/) {
print "true\n";
}

perl crash, core dump

Code :

if ($file->name =~ m/^(??{$httpd_conf->DocumentRoot})/) {
print "true\n";
}

pas de crash

burgergold

5$? va chez l'diable!

je viens meme de tester sous windows et ca ne fonctionne pas alors qu'en l'assignant à un variable $test, ca fonctionne

Code :

use strict;
use lib "E://projects/sdcbrm/projects/Common/dev/";
use Apache::httpd::conf;
my $httpd_conf = new Apache::httpd::conf("Z://httpd/httpd.conf" );
my $test = $httpd_conf->DocumentRoot;
if ("/web/htdocs" =~ m/^(??{$httpd_conf->DocumentRoot})\/?/) {
print "true\n";
}

pospos

ouai c'est pas super comme fonction, je les utilise pas perso.

regarde perlre pour plus de details (et pourkoi ca plante parfois)

c'est clair que dans ton cas autant passer par une variable

PS: dans ton exemple tu as oublié de changer ta regexp

burgergold

5$? va chez l'diable!

(??{ code })
WARNING: This extended regular expression feature is considered highly experimental, and may be changed or deleted without notice. A simplified version of the syntax may be introduced for commonly used idioms.

deja là ca me dit rien de bon

FORUM HardWare.fr

Programmation

Perl

[Perl] patterns avec un object

Sujets relatifs
[Perl] Fichier dans un dossier ou sous-dossier	[Perl] Concaténer 2 arrays
[perl] un bon livre en perl ?	[Perl] Timeout sur un STDIN
[Perl] Rappeler une sous chaine dans une expression rationelle	[Perl] Comment décoder du UTF8 si pas de module sur le serveur ?
[Perl] regrouper des lignes différentes en une seule ttes les n lignes	[Perl] Package Cvs 0.06
Probleme d'execution de la commande Unix echo via le perl	[Résolu] Pb de cast à partir d'un Object
Plus de sujets relatifs à : [Perl] patterns avec un object

Page générée en 0.057 secondes