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 : Sélectionner tout - Visualiser dans une fenêtre à part
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__