萬(wàn)能的CU~~救我。。。syscall.h是什么文件？

Lyphone

在執(zhí)行perl -MCPAN -e 'install Time::HiRes'的時(shí)候，發(fā)現(xiàn)make test過(guò)不去，有些東西找不到。。。其中一個(gè)便是syscall.h。。。。怎么回事。。。。

zhlong8

這個(gè)模塊不是 Perl 自帶的嗎，安裝它干嘛

Lyphone

zhlong8 發(fā)表于 2012-04-12 10:21
這個(gè)模塊不是 Perl 自帶的嗎，安裝它干嘛

好吧我離線安裝成功了。。�！，F(xiàn)在遇到了新的問(wèn)題，其實(shí)我的目的是想用Solarwinds來(lái)監(jiān)控apache的服務(wù)狀態(tài)，現(xiàn)在依然是報(bào)錯(cuò)，幫我看一下這個(gè)腳本有需要修改的地方么？

1. #!/usr/bin/perl
   
2. #
   
3. #
   
4. # Copyright ¿ 1999-2008 SolarWinds, Inc. All Rights Reserved.
   
5. #
   
6. #
   
7. use LWP::UserAgent;
   
8. 
   
9. if (@ARGV[0] =~ /\bhelp\b/)
   
10. {
    
11.         print "ServerUptime.pl StatusURL\n";
    
12.         print "StatusURL - url to apache server status (ex. www.mysite.com/server-status ) \n";
    
13.         exit 1;
    
14. }
    
15. 
    
16. # Get hostname and trim newline
    
17. 
    
18. $localhost = `hostname`;
    
19. $localhost =~ s/\s*$//g;
    
20. $hostname  = shift || "localhost"; # $localhost
    
21. 
    
22. $url = "$hostname/server-status?auto&match=www&errors=0";
    
23. # Create a user agent object
    
24. $ua = new LWP::UserAgent;
    
25. $ua->agent("AgentName/0.1 " . $ua->agent);
    
26. 
    
27. # Create a request
    
28. my $req = new HTTP::Request GET => "http://$url";
    
29. #print "http://$url\n";
    
30. $req->content_type("application\/x-www-form-urlencoded");
    
31. $req->content("match=www&errors=0");
    
32. 
    
33. # Pass request to the user agent and get a response back
    
34. my $res = $ua->request($req);
    
35. my $val ="";
    
36. # Check the outcome of the response
    
37. if ($res->is_success) {
    
38.         #print $res->content;
    
39.         $content = $res->content;
    
40.                 while ( $content =~ /Uptime:\s(\d+)/ig){
    
41.                         $hour = sprintf("%d",$1 / 3600);
    
42.                         $min = sprintf("%d",($1-$hour*3600)/60);
    
43.                         $sec = sprintf("%d",($1-$hour*3600-$min*60));
    
44.                         $sut = "${hour}h ${min}m ${sec}s";
    
45.                         print "Message: Server Uptime at host \"$hostname\" $sut\n";
    
46.                         print "statistic:  $1\n";
    
47.                         exit 0;
    
48.                 }
    
49. } else {
    
50.        print "Message: unable access to $hostname\n";
    
51.         print "Statistic: 0\n";
    
52.         exit 1;
    
53. }

復(fù)制代碼