perl正则表达式问题

wdl111

#!/usr/bin/perl
my @b={"a/b/cccc","a/b/d/ccc","a/f/e/rrr","b/ff/d/fff",.........};
my $b;
foreach $b(@b){


$b=~ s#/(.+?)$##;     ####主要是 这段怎么写   帮帮忙阿!!!!!!!!!!!!!!!!
print "$b\n";}

结果 输出为a
                a
                a
                b
                 .
                 .
                 .

请问怎么写  才能用空白 替换掉  最后一个/后的字符 包括最后一个/  


希望的结果
                 a/b
                 a/b/d
                 a/f/e
                 b/ff/d
                 .
                 .
                 .


谢谢 大哥们啊  我实在想不出来.

[ 本帖最后由 wdl111 于 2009-11-12 10:34 编辑 ]

兰花仙子

数组都定义错了~~
加上use strict和use warning自己先运行下哦~~

wdl111

别看代码阿  只是列子  



我只是表明这意思  ,主要是替换拉

wdl111

#!/usr/bin/perl
$b="a/b/cccc";
$b=~ s#/.?$##;
print "$b\n";



  输出 a/b  就可以   老大们帮我看看阿

wdl111

版主  在哇  帮我 看看阿

Perl_Er

1. my @ary = qw{a/b/cccc a/b/d/ccc a/f/e/rrr b/ff/d/fff};
   
2. foreach (@ary) {
   
3.     s/(.*)\/.*/$1/;
   
4.     print $_, "\n";
   
5. }

复制代码

cobrawgl

s[/\w+$][];

wdl111

$b=~ s@(.*)/.*@$1@;


想出来了  Perl_Er  厉害



cobrawgl 错了

cobrawgl

你运行了么？

wdl111

我运行了  你这个 不行   赫赫