我有一个问题希望你能帮忙?
我有两个包含以下内容的文本文件:
文件1.txt
http://www.dog.com/
http://www.cat.com/
http://www.antelope.com/
文件2.txt
1
2
Barry
我正确实现的输出如下:
http://www.dog.com/1
http://www.dog.com/2
http://www.dog.com/Barry
http://www.cat.com/1
http://www.cat.com/2
http://www.cat.com/Barry
http://www.antelope.com/1
http://www.antelope.com/2
http://www.antelope.com/Barry
执行上述操作的代码
open my $animalUrls, '<', 'FILE1.txt' or die "Can't open: $!";
open my $directory, '<', 'FILE2.txt' or die "Can't open: $!";
my @directory = <$directory>; #each line of the file into an array
close $directory or die "Can't close: $!";
while (my $line = <$animalUrls>) {
chomp $line;
print $line.$_ foreach (@directory);
push (@newListOfUrls, $line.$_) foreach (@directory); #put each new url into array
}
现在我遇到的问题:
我需要获取原始 url (File1.txt) 的 Content Length 并将每个新 url 的 Content-Length 与相应的原始 url 进行比较,以查看它们是否相同或不同,例如:
- 我需要将http://www.dog.com/1的 Content-Length 与原始 url http://www.dog.com/的 Content-Length 进行比较,看看是否有区别。
- 然后我需要将http://www.dog.com/2的 Content-Length 与原始 url http://www.dog.com/的 Content-Length 进行比较,看看是否有差异。
- 然后我需要将http://www.dog.com/Barry的 Content-Length 与原始 url http://www.dog.com/的 Content-Length 进行比较,看看是否有差异。
- 然后我需要将http://www.cat.com/1的 Content-Length 与原始 url http://www.cat.com/的 Content-Length 进行比较,看看是否有差异。
- 然后我需要将http://www.cat.com/2的 Content-Length 与原始 url http://www.cat.com/的 Content-Length 进行比较,看看是否有差异。
- 等等........
获取内容长度的代码:
print $mech->response->header('Content-Length'); #returns the content length
我遇到的问题是如何将每个新网址与正确的相应原始网址进行比较?(即不会意外地将 http://www.cat.com/Barry 的 Content-Length 与http://www.dog.com/的Content-Length 进行比较)我是否应该使用哈希,我将如何处理那?
非常感谢您的帮助,非常感谢