求个正则

RE_HASH

回复 7# 只是一个红薯

$> echo 'http ://sasda.com/git/cot?clie=mydata&ac=bid,GET com/tem,uid:3761509'|perl -ne 'print join "&", map {s/:/=/; $_} /(\w+[=:]\w+)/g;'
clie=mydata&ac=bid&uid=3761509

   

sunzhiguolu

回复 3# 只是一个红薯
一行正则决搞不定, 需要处理的地方非常多.
http://sasda.com/git/cot?clie=mydata&ac=bid,GET com/tem,&uid:=3761509


   

jason680

回复 3# 只是一个红薯

$ perl -e 'my $or="http://sasda.com/git/cot?clie=mydata&ac=bid,GET com/tem,uid:3761509";print "$1&uid=$2\n" if($or=~m/[?]([^,]+),.*,uid:(\d+)/)'
clie=mydata&ac=bid&uid=3761509

   

sunzhiguolu

@jason680
向大神学习, 天天向上啊!

RE_HASH

回复 10# sunzhiguolu

照猫画虎学你的/r:
$> perl -e 'print q{http ://sasda.com/git/cot?clie=mydata&ac=bid,GET com/tem,uid:3761509}=~s#.*?(\w+[:=]\w+[&,]?)#{$1=~tr/,:/&=/r}#gre;'
clie=mydata&ac=bid&uid=3761509


   

sunzhiguolu

回复 15# RE_HASH

1. 
   
2. cat url.txt
   
3. http ://sasda.com/git/cot?clie=mydata&ac=bid,GET com/tem,uid:3761509
   
4. 
   
5. perl -ne 'print s!.*?(\w+[=:]\w+[&,]?)!$1=~tr/,:/&=/r!ger' url.txt
   

复制代码

大神厉害, 一行正则表达式 佩服, 佩服...
   

moperyblue

1. echo 'http ://sasda.com/git/cot?clie=mydata&ac=bid,GET com/tem,uid:3761509'|perl -pe 's/.*\?([^,]*),.*,([^:]*):(\d*)/\1&\2=\3/'   
   
2. clie=mydata&ac=bid&uid=3761509

复制代码

sunzhiguolu

1. s!(?>[^?]+\?)?([^:,]+)(?:,.*?(uid):)?!$2?qq($1&$2=):$1!ge;

复制代码

sunzhiguolu

1. s/.*?\?([^,]+)(?:,.+?(uid):)/$1&$2=/

复制代码