perl变量赋值

b4and5

举例：
my $target='/home/jac/download'
我想用/\/[a-z]+\//匹配$target中jac的部分，并且把jac的值付给新的变量$usr,请问应该怎么做？
谢谢

jason680

回复 1# b4and5

There are some issue ...

1. /\/[a-z]+\// will match to /home/

2. chage it easily
$target =~ s/jac/$usr/;
   

yakczh_cu

1. my $target='/home/jac/download';
   
2. 
   
3. my $match=$1 if $target =~ /.+\/([a-z]+)\//;
   
4. 
   
5. print $match;
   

复制代码

MMMIX

回复 1# b4and5


    用啥正则呀，直接 $user =  (split /\//, $target)[2]; 不就行了？

b4and5

回复 4# MMMIX

谢谢各位啦
用正则是因为$target只是随便举个栗子，想要匹配的内容位置不是固定的


   

MMMIX

回复 5# b4and5


    例子要有代表性，你随便举个例子，别人给出了解决方案，你又说你的输入不是那样的，你这不是拿大伙开涮么？

b4and5

回复 6# MMMIX

不好意思，我错了...{:3_201:}


   

sxlwzl

MMMIX 发表于 2014-05-04 10:35
回复 5# b4and5

这是都我们玩吗？
其实这个就是先匹配字母，再匹配/，接下来就是你要的东西了。