
上次說到 Windows 2000 上網路對時的方法
這次來說一下 XP 下網路對時的方法
滑鼠移到桌面右下角顯示時間處,按左鍵兩下,出現 [日期和時間 內容],選網際網路時間,按下[立即更新]就好了
function decode_utf8($str){
# erase null signs in string
$str=eregi_replace("^.{10,13}q\?","",$str);
# paterns
$pat = "/=([0-9A-F]{2})/";
$cha="'.chr(hexdec(";
# to decode with eval and replace
eval("\$str='".
preg_replace($pat,$cha."'$1')).'",$str).
"';");
# return
return $str;
}
#! /usr/bin/perl
sub trim {
my @out = @_;
for (@out) {
s/^\s+//;
s/\s+$//;
}
return wantarray ? @out : $out[0];
}
open(FP,'< /tmp/referer.txt'); while (<FP>) { @aReferer = split(/=>/);
$aR =trim( $aReferer[2]);
$aR =~ s/http\:\/\///i;
@aU = split(/\//,$aR);
$aUrl = @aU[0];
$aSource{$aUrl} += 1;
}
foreach $aa (sort keys %aSource) {
printf "%-30s = %4d\n" , $aa , $aSource{$aa};
}
close(FP);