急急急急！怎样用perl提取文件里特定的内容

2025-04-28 17:32:34

推荐回答（2个）

回答1：

类似下面的写法，先提取出来，之后直接写入文件
my $H;
open $H, "+>", "out.log";
while () {
	if (/\/translation="(.*?)"/) {
		print $1, "\n";
		print $H "$1\n";
	}
}
close $H;
__DATA__
/aa=123
/bb=456
/translation="MMMDDD"
/aa=123
/bb=456
/translation="MMMDDD"
/aa=123
/bb=456
/translation="MMMDDD"

回答2：

你发个文本出来，好模拟一下。这样对图片码字，谁都提不起兴趣的。