求一段对URL整理的perl程序

cronas

整理前：
/bin/my/index.cgi/first/confirm?aa=me&sid=ed9535b3df4ce50e1c96acd044a69850&bb=you

整理后：
/bin/my/index.cgi/first/confirm?sid=ed9535b3df4ce50e1c96acd044a69850

要求：只要sid参数和问号前的URI，重新组成URL

grshrd49

mcshell

1. echo '/bin/my/index.cgi/first/confirm?aa=me&sid=ed9535b3df4ce50e1c96acd044a69850&bb=you'|perl -pe 's/([^?]+\?).*?(sid=[^&]+)(?:&[^&]+)*/$1$2/'

复制代码

ulmer

回复 1# cronas
Parsing URI:

1. 
   
2. use URI;
   
3. use URI::QueryParam:
   
4. 
   
5. my $str_uri = "foo.bar/blah.cgi?name1=value1&name2=value2";
   
6. my $obj_uri = URI->new($str_uri);
   
7. 
   
8. # i.e.: get query parameter
   
9. print $obj_uri->query_param('name1');
   
10. 
    
11. $str_uri="/bin/my/index.cgi/first/confirm?aa=me&sid=ed9535b3df4ce50e1c96acd044a69850&bb=you";
    
12. my $path = $obj_uri->path;
    
13. my $sid=$obj_uri->query_param('sid');
    
14. print $path. '?sid='. $sid;
    
15. 
    

复制代码

cronas

1.split
   因参数的顺序不定，还要加参数名判定。

2.正規式
  my ($m1,$m2) = $path_info =~ 'm|([^?]+\?).*?(sid=[^&]+)(?:&[^&]+)*|';
  若没有sid参数，该正規式取不出东东。

3.use URI
   俺最后用的「use URI; use URI::QueryParam;」

多谢诸位！  cn可以结贴给分吗？