Explication sur tout petit script
Bonjour,
Je suis en train de paramétrer squid.
J'ai un redirector en perl que je ne comprend pas du tout (récupérer sur le net).
Pourriez-vous me l'expliquez ?
Code:
1 2 3 4 5 6 7 8
| #!/usr/bin/perl
use strict;
$|=1;
while(<>) {
s@http://([a-z]+\.)+([a-z])+@http://www.monsite.com@;
print;
} |
L'idée est de rediriger tous les users qui tape une adresse internet vers http://www.monsite.com.
Ca fonctionne très bien mais je voudrais autoriser également l'accès à www2.monsite.com malheureusement si je le tape vous avez devinez je suis rediriger vers www.monsite.com.
Auriez-vous une idée pour optimiser ce script vers cet objectif ?
Ou m'expliquez le traitement des chaines de caractères ?
Merci.
Fluxy__