在正则表达式上需要帮助

Question

我们有一个语法如下的文件：

I/P : abc_com.an.gx3d_02-20-2014_05-26-38.txt
O/P : abc_com.an.gx3d

我正在尝试删除以时间戳开头的部分。我尝试使用下面的代码，但它不起作用：

(my $test = $file) =~ s/^\d{2}\.*//;

Answer 1

你的^主要强制你的正则表达式只匹配字符串的开头。您可能想要更接近以下内容：

(my $test = $file) =~ s/_\d{2}-\d{2}-\d{4}_.*//;