请问 这种perl的选择句怎么写

cxfcxf

1. 
   
2. #!/usr/bin/perl -wl
   
3. 
   
4. $|=1;   # don't buffer the output
   
5. 
   
6. while (<>) {
   
7. 
   
8.         ($uri,$client,$ident,$method) = ( );
   
9. 
   
10.         ($uri,$client,$ident,$method) = split;
    
11. 
    
12.         next unless ($uri =~ m,^http://.*\.squid-cache\.org(\S*),);
    
13. 
    
14.         $uri = "http://www1.au.squid-cache.org$1";
    
15. 
    
16. } continue {
    
17. 
    
18.         print "$uri";
    
19. 
    
20. }
    

复制代码

我做squid反向多backend server时候碰到个问题..我不会用perl去写redirector
虽然可以看懂..但是选择不会写...上面是一个redirector的范例....
怎么把他改成选择句

上面的意思是 httpd包头符合squid-cache.org的 把目标改写成http://www1.au.squid-cache.org 这个地址去请求cache....那位前辈:help :help :help :help :help