Сократить строку в Perl? (просто)

Question

У меня есть строка:

$path = "C:/Users/user1/tools/test_folder/TEST1_HHH.123"

Как заставить Perl печатать только TEST1 часть строки?

ДОПОЛНЕНИЕ 3/15/11 -

Что если вместо TEST1_HHH.123 указать имя файла, если TEST1_2_HHH.123 и я хочу все до _HHH.123? Это единственная константа, от которой я хочу избавиться (и другая часть пути). Спасибо -

Answer 1

Это просто и переносимо:

use File::Basename qw( basename );
my ($word) = basename($path) =~ /^([^_]+)/;

Файл :: Базовое имя

Answer 2

if ( $path =~ /.*\/(([^\/]*)_([^\/]*))$/ )
{ 
  my $file = $1; # TEST1_HHH.123
  my $name = $2; # TEST1
  my $suff = $3; # HHH.123
}

Answer 3

#!/usr/bin/perl
my @test='';
my $test1='';
my $path = "C:/Users/user1/tools/test_folder/TEST1_HHH.123";
@test = split('/',$path);
print "@test\n";
my $test1 ="$test[$#test]";
@res = split('_',$test1);
print "$res[0]";