月: 2017年2月

投稿日:

uptime.cgi 動かない

uptime.cgi (utf-8 )

—————————————————————————-

#!/usr/local/bin/perl

use Shell qw(uptime);

$temp=uptime;
@tmp=split(/up/,$temp);
@time=split(/,/,$tmp[1]);
if(index($time[0],”day”) != -1){
@tmp=split(/day/,$time[0]);
$day=$tmp[0];
if(index($time[1],”min”) != -1){
$hour=0;
@tmp=split(/min/,$time[1]);
$min=$tmp[0];
} else {
@tmp=split(/:/,$time[1]);
$hour=$tmp[0];
$min=$tmp[1];
}
$day=~ s/ //g;
$min=~ s/ //g;
$hour=~ s/ //g;
$data=$day.” 日間と “.$hour.” 時間 “.$min.” 分”;
} elsif(index($time[0],”:”) != -1){
@tmp=split(/:/,$time[0]);
$hour=$tmp[0];
$min=$tmp[1];
$hour=~ s/ //g;
$min=~ s/ //g;
$data=$hour.” 時間 “.$min.” 分”;
} elsif(index($time[0],”min”) != -1){
@tmp=split(/min/,$time[0]);
$min=$tmp[0];
$min=~ s/ //g;
$data=$min.” 分”;
}
print “Content-type:text/html\n\n”;
print<<“EOF”;
$data
EOF

exit;

Can’t locate Shell.pm in @INC

のエラーが出るので

# yum install perl-CPAN

CPAN　インストール

# perl -MCPAN -e shell

CPAN　起動

初回起動時だけ何点か質問されますが、

取り敢えず、

全て「yes」

cpan[1]>

install Shell.pm

として Shell.pm install

utf-8 にして文字化けをなくしてOK