求解 字符串操作

newspeed000

$a = "./log/sub.tar";
$b
我想让$b等于./log/sub
该怎么办呢？？？
我现在是这么做的
$b = $a;
$b =~ s/\.tar//;
有没有更好点的方法哈~~
谢谢大牛们了

Perlvim

这个办法已经很好了。
如果想简单的写一下：

就是：

1. (my $b = $a) =~ s/\.tar$//;

复制代码

cu_little_bird

你写的不复杂的嘛

leve1031

1. 
   
2. use File::Basename;
   
3. $a = "./log/sub.tar";
   
4. ($filename, $dirname, $subbifx)=fileparse($a, qr/\.[^.]*/);
   
5. $b = $dirname.$filename;
   

复制代码

newspeed000

回复 2# Perlvim


    呵呵，就是想这样写出来，不然第一句看着比较怪啊，谢谢啦！