我正在尝试比较两个文档 test1、test 2 中的字符串
测试1:
<p><imagedata rid="rId7"></p>
...
<p><imagedata rid="rId8"></p>
测试2:
<imagesource Id="rId7" Target="image/image1.jpg"/>
...
<imagesource Id="rId9" Target="image/image2.jpg"/>
...
<imagesource Id="rId8" Target="image/image3.jpg"/>
我想要的是,第一个文件应该被替换为图像目标路径,例如:
<p><imagedata src="image/image1.jpg"></p>
...
<p><imagedata rid="image/image3.jpg"></p>
我试图从两个文件中提取文本,但我坚持比较两个字符串
opendir(DIR, $filenamenew1);
our(@test1,@test2);
open fhr, "$filenamenew1/test1.txt";
open fhr1, "$filenamenew1/test2.txt";
my @line;
@line= <fhr>;
for (my $i=0;$i<=$#line;$i++)
{
if ($line[$i]=~m/rid="(rId[0-9])"/)
{
my $k = $1;
push (@test1, "$k");
}
}
my @file2;
@file2= <fhr1>;
for (my $i=0;$i<=$#file2;$i++)
{
if ($file2[$i]=~m/Id="(rId[0-9])"/)
{
my $k1 = $1;
push (@test2, "$k1");
foreach (@test1 = @test2)
{
print "equal";
}
}
}