📄 clcook.txt
字号:
#!/usr/bin/perl -w
#there 7200 seconds in two hours
$ocd = (time() - 7200);
dbmopen(%cook,"/etc/httpddata/cookies.dat",0600);
foreach $key (sort keys %cook)
{
($cc)=split('-',$key);
if($cc <= $ocd)
{
delete $cook{$key};
}
}
dbmclose %cook;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -