Re: hellp improve efficiency
- From: sf@xxxxxxxxxxxxx (Steve Finkelstein)
- Date: Sat, 28 Apr 2007 16:36:54 -0400
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.
- Follow-Ups:
- Re: hellp improve efficiency
- From: Jeff Pang
- Re: hellp improve efficiency
- References:
- hellp improve efficiency
- From: Jen mlists
- hellp improve efficiency
- Prev by Date: Installing Dialog Module
- Next by Date: Re: Open() and glob EXPR
- Previous by thread: Re: hellp improve efficiency
- Next by thread: Re: hellp improve efficiency
- Index(es):
Relevant Pages
|
