用于相对URL的正则表达式是什么？

Question

美好的一天。

使用什么正则表达式？

如果相对网址包含CompanyInfo.aspx - 它会重写为用户友好网址。

我的意思是

../CompanyInfo.aspx?id=404  -> http://mysite.com/company404

Answer 1

>>> import re
>>> re.compile('.*/(\w+)Info.aspx\?id=([\w]+)')
<_sre.SRE_Pattern object at 0x8456058>
>>> p=_
>>> p.match('../CompanyInfo.aspx?id=404')
<_sre.SRE_Match object at 0xb74130f8>
>>> _.groups()
('Company', '404')

其余部分留给读者练习。

Answer 2

怎么样：

#!/usr/bin/perl 
use 5.010;
use strict;
use warnings;

my $str = '../CompanyInfo.aspx?id=404';
$str =~ s~\.\./(\w+)Info\.aspx\?id=(\d+)~'http://mysite.com/'.lc($1).$2~e;
say $str;

<强>输出：

http://mysite.com/company404