localtime.pl

来自「国际标准协议的」· PL 代码 · 共 19 行

#!/usr/bin/perl

#use CGI qw(:standard);

#$query = new CGI;

$file_path = "/export/ppp";
$path_info = "/usr/radius/radacct/";
$client_file = "/usr/radius/raddb/clients";
$passwd_file = "/etc/passwd";
$shadow_file = "/etc/shadow";
$group_file = "/etc/group";

$local_time = localtime();
($wday,$curr_month,$mday,$hms,$curr_year) = split('\s+',$local_time);

print $local_time;

exit;