使用perl打印整个字符串,直到出现子字符串匹配

根据你提供的一些信息,快速(可能是肮脏的)回答

use strict;
use warnings;

my $str = "abc_def0_ghi4_jkl_mno_pqr_123456.log some_extra_messages and random garbage";

my ($name) = ( $str =~ /^(\w+)_\d+\.log/);
print $name, "\n";

这假设名称位于脚本的开头,并且只包含单词字符(字母、数字、下划线)。它将捕获所有内容,直到它到达一个数字序列,该序列前面是下划线,后面是.log。

它 看 就像你想输出的所有东西,直到,但不包括,日志文件名前的下划线。对吗?您需要非常具体地说明数据的结构;否则,我们只能猜测。

下面是一个简短的脚本,它接受示例输入并生成示例输出:

use strict;
use warnings;

my $str = 'abc_def0_ghi4_jkl_mno_pqr_123456.log some_extra_messages and random garbage';

s/_[^_]+\.log.*// for $str;

print $str, "\n";

这个 s/_[^_]+\.log.*// 替换匹配:

• 下划线
• 后跟一个或多个非下划线
• 后面跟着字符 .log
• 后跟任何其他字符到行尾

匹配的文本将替换为空字符串(已删除),并打印其余文本。