关于frz1的讨论汇总 - 话题女王

e****e
发帖数: 877

我有一个input变量：
/nfs/sc/proj/jkt/jkt088/jmeng/jkt/FRZ1/rcbgfctls_frz1_ww43.3
我需要输出：
$A = /nfs/sc/proj/jkt/jkt088/jmeng/jkt/FRZ1
$B = rcbgfctls
把这个path从最后一个"/"分开，前面的东西给$A。
最后的字符串从第一个"_"分开，我只要第一个r开头的部分给$B。
前面的path可能有很多个"/"，后面的东西也可能有很多的"_"
怎么写一个小perl?

f***o
发帖数: 92

来自主题: _Xiyu版 - 精通perl的高手帮我看一个小问题

#!/usr/bin/perl

use File::Basename;

my $filename = "/nfs/sc/proj/jkt/jkt088/jmeng/jkt/FRZ1/rcbgfctls_frz1_ww43.3
";

print dirname($filename) . "\n";
split(/_/, basename($filename));
print $_[0] . "\n";

#	版面	帖数(主题数)
-	全站	4871 (796)
1	Military	3777 (569)
2	Stock	341 (51)
3	Joke	117 (17)
4	History	116 (3)
5	Automobile	100 (9)
6	USANews	55 (9)
7	Midlife	45 (1)
8	Headline	41 (41)
9	Dreamer	33 (13)
10	FleaMarket	32 (20)
11	Living	30 (7)

版面

帖数(主题数)

全站

4871 (796)

3777 (569)

341 (51)

117 (17)

116 (3)