[Perl]Expression régulière .
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:
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; |
