代码拉取完成,页面将自动刷新
#!/usr/bin/perl
$uname = `uname -a`;
§ion ("uname -a");
print "$uname \n";
$cc = `make show.CC`;
chop $cc;
$cc =~ s/.*=//g;
&exec("$cc --version");
$conf = `grep := build/Makefile.conf`;
§ion("Makefile.conf");
print $conf."\n";
while ($conf =~ /([^ ]*) *:= *(.*)/g)
{
$name = $1;
$val = $2;
$name =~ s/[\r\n]//g;
$val =~ s/[\r\n]//g;
$conf{$name} = $val;
}
if ($conf{'USE_SSL'} eq 'yes')
{
if (length ($conf{SSL_LOCATION}))
{
&exec("${SSL_LOCATION}/apps/openssl version");
}
else
{
&exec("openssl version");
}
}
&exec ("svnversion");
if (-e 'ReleaseNotes.txt')
{
&exec ("head ReleaseNotes.txt");
}
if ($uname =~ /Darwin/i)
{
&exec ("sysctl -a hw");
}
elsif ($uname =~ /Linux/i)
{
&exec ("cat /proc/cpuinfo");
}
sub exec
{
my ($cmd) = shift;
§ion($cmd);
print `$cmd`."\n";
}
sub section
{
my ($title) = shift;
my ($center) = int(36 - length($title)/2);
print (('='x$center)." $title ".('='x$center)."\n");
}
此处可能存在不合适展示的内容,页面不予展示。您可通过相关编辑功能自查并修改。
如您确认内容无涉及 不当用语 / 纯广告导流 / 暴力 / 低俗色情 / 侵权 / 盗版 / 虚假 / 无价值内容或违法国家有关法律法规的内容,可点击提交进行申诉,我们将尽快为您处理。