📄 lp-acct
字号:
#!/usr/bin/perl## 0 == stdin == docuement# 1 == stdout == printer# 2 == stderr == logging## Regular, with no redirection#umask(002);# -w132 -l66 -i0 -n pkelly -h master.fcp.oypi.com /var/log/lp-acctrequire "getopts.pl";&Getopts("w:l:i:n:h:");chomp($date = `date '+%Y-%m-%d.%T'`);($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat(STDIN);$cnt = 0;while (sysread(STDIN, $buf, 10240)) { print $buf; $cnt += ($buf =~ /^L/g);}$acct = shift;if (open(ACCT, ">>$acct")) { print ACCT "$date $opt_n $opt_h $size $cnt\n"; close(ACCT);} else { warn "Err: Can't account for it ($!)\n"; warn "Log: $date $opt_n $opt_h $size $cnt\n";}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -