Discussion :

[Premium]

Bonjour,

je suis en train d'essayer de comprendre du code que je devrai modifier mais comme je ne connais pas très bien le perl, j'ai un peu de mal à comprendre ce bout de code...
Enfin c'est plutot l'écriture particulière de ces expressions régulières que je n'avais jamais vu.
Si vous pouviez m'indiquer ce que ça signifie, je suis preneur.

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
open $FH,"<$PATH_ETC/template.cgml";
    while (<$FH>)
    {
	    $_ =~ s/##ID##/$batch_name/g;
	    $_ =~ s/##NB##/$bat_i_id/g;
	    $_ =~ s@##PHOTO##@$waiting_cards[0]->{photo_path}@g;
	    $_ =~ s@##PHOTO_W##@$waiting_cards[0]->{photo_w}@g;
	    $_ =~ s@##PHOTO_H##@$waiting_cards[0]->{photo_h}@g;
	    $_ =~ s@##ADDR##@$addr@g;
	    $_ =~ s@##MSG##@$msg@g;
	    $_ =~ s@##OPERATOR##@$waiting_cards[0]->{operator}@g;
	    $_ =~ s@##BARCODE##@$barcode@g;
	    $_ =~ s@##SIZE_TYPE##@$waiting_cards[0]->{size_type}@g;
	    print(FILEH_CGML $_);
    }
    close $FH;

[djibril]

Ce code lit un fichier et fais juste des substitutions.
Un coup sa regex est du type s/// ou bien s@@@

Il change juste de séparateur. Il substitut:

##ID## en $batch_name
##NB## en $bat_i_id
##PHOTO## en $waiting_cards[0]->{photo_path}
...
...

A noter que les substitution se font par le contenu des variables $batch_name, $bat_i_id, etc.