求教：perl获取匹配字符串的问题

UnixZC

比如字符串是/c/prog/d/s3.exe /t
现在我想获取s3.exe或者s3然后返回给一个变量，怎样用模式匹配做呢？
s3不是固定的，可能是wx，也可能是其他的字符串。
--------------------------------------------------------------
还是C快，perl还不会呀。

converse

1. 
   
2. $text = "/c/prog/d/s3.exe /t";
   
3. 
   
4. @array = split/\//, $text;
   
5. foreach (@array)
   
6. {
   
7.     if (/exe/)
   
8.     {
   
9.         print $_, "\n";
   
10.         last;
    
11.     }
    
12. }
    

复制代码

mouse.rice

正则表达式可以解决！
--------LZ应该分我10分

UnixZC

原帖由 mouse.rice 于 2008-7-2 14:57 发表
正则表达式可以解决！
--------LZ应该分我10分

我也知道模式匹配可以，你告诉我怎么做呀？写出来只要OK就给分

converse

1. 
   
2. $text = "/c/prog/d/s3.exe /t";
   
3. 
   
4. @array = split/\//, $text;
   
5. print $array[4], "\n";
   

复制代码

perl 上面这个文件.

UnixZC

原帖由 converse 于 2008-7-2 15:24 发表

$text = "/c/prog/d/s3.exe /t";

@array = split/\//, $text;
print $array[4], "\n";


perl 上面这个文件.

对不起，路径长度不定，因此我不知道s3.exe一定是在第4的位置。还有其他方法吗？
要是C,我xxxx一分钟内搞定它。
你倒是给了我一个提示，split然后查找每一个数组元素，直到第一次出现.exe的那个就是我想要的。
貌似可以，不过我想更简单点或者更快点的方法。

converse

老大 麻烦您把问题描述清楚行吗?

UnixZC

原帖由 converse 于 2008-7-2 16:06 发表
老大 麻烦您把问题描述清楚行吗?

先给你10分，我已经用你提示的那种方法先搞定了，然后等等有没有更好的方法。

mouse.rice

原帖由 UnixZC 于 2008-7-2 15:52 发表

对不起，路径长度不定，因此我不知道s3.exe一定是在第4的位置。还有其他方法吗？
要是C,我xxxx一分钟内搞定它。
你倒是给了我一个提示，split然后查找每一个数组元素，直到第一次出现.exe的那个就 ...

学FLW：LZ是临时用户？
就按上面converse老大讲的方法做：

my $str="/c/prog/d/s3.exe /t"; my @lines = split /\//,$str; for (@lines){    print if /exe/; }

昏，才看到2楼有答案了

那就接着贴个正则方法吧：

my $str="/c/prog/d/s3.exe /t"; print $1 if $str=~/\/([^\/]+exe)/;

There is more than one way to do it!

[ 本帖最后由 mouse.rice 于 2008-7-2 16:45 编辑 ]

Lonki

终于看到正则了.
path可能出现空格, split不保险