Question

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

图如下，文件里有很多类似的重复。我想提取/translation=后边引号里的内容到一个新的文件,怎样做到

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）+提问者悬赏20（财富值+成长值）

Answer 1

类似下面的写法，先提取出来，之后直接写入文件
my $H;
open $H, "+>", "out.log";
while (<DATA>) {
	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"

Answer 2

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