Re: hellp improve efficiency Perhaps I'm misunderstanding what you're ultimately trying to accomplish. However, if you're doing what I think you're doing and you're using Apache, look into mod_rewrite: http://httpd.apache.org/docs/2.0/mod/mod_rewrite.html - sf Jen mlists wrote: > Hello members, >  > I wrote a perl script for url redirect,shown as below, >  > $|=1; > my $uri = ''; >  > while (<>) { >  >    $uri = (split)[0]; >  >    if ($uri =~ /\\.html?\\?/ or $uri =~ /\\.js\\?/ or $uri =~ /\\.css\\?/ or >        $uri =~ /\\.jpg\\?/ or $uri =~ /\\.gif\\?/ or $uri =~ /\\.swf\\?/) { >        $uri =~ s/\\?.*$//; >    } >  >    if ($uri =~ m|www\\.example\\.com/v/|o) { >        $uri =~ s|www\\.example\\.com/v/|v.example.com/|; >  >    }elsif ($uri =~ m|www\\.example\\.com/v2/|o) { >        $uri =~ s|www\\.example\\.com/v2/|v2.example.com/|; >  >    }elsif ($uri =~ m|www\\.example\\.com/v3/|o) { >        $uri =~ s|www\\.example\\.com/v3/|v3.example.com/|; >  >    }elsif ($uri =~ m|www\\.example\\.com/so/|o) { >        $uri =~ s|www\\.example\\.com/so/|so.example.com/|; >  >    }elsif ($uri =~ m|www\\.example\\.com/admin/\\?.*|o) { >        $uri =~ s|www\\.example\\.com/admin/\\?.*|www.example.com/admin/|; >  >    }elsif ($uri =~ m|www\\.example\\.com/w\\?v=|o) { >        $uri =~ s|www\\.example\\.com/w\\?v=|v2.example.com/v_|; >  >    }elsif ($uri =~ m|www\\.example\\.com/([wulp])(\\d+)/|o) { >        $uri =~ s|www\\.example\\.com/([wulp])(\\d+)/|$2.$1.example.com/|; >  >    }elsif ($uri =~ m|www\\.example\\.com/([wulp])/|o) { >        $uri =~ s|www\\.example\\.com/([wulp])/|$1.example.com/|; >    } >  > } continue { >  >    print "$uri\\n"; >  > } >  > __END__ >  > As you see,for each regex match,I've tested it twice. > Maybe it's going with low-efficiency.How can improve it?Thanks. >  --  To unsubscribe, e-mail: beginners-unsubscribe@perl.org For additional commands, e-mail: beginners-help@perl.org http://learn.perl.org/