在看pleacPerl的时候遇到一个问题（关于pack /var/log/lastlog）

dream3401

在看pleacperl时，有一段关于改/var/log/lastlog文件中某个用户的最后登录时间时，我试了好几次都不成，请大家帮我看看：
代码：
#!/usr/bin/perl -l
use User::pwent;
use IO::Seekable;
   open $fh,"+</var/log/lastlog";
   $typedef='L A12 A16';
   $sizeof=length(pack($typedef,()));

   $user=$ENV{USER};
   print "user=>$user";
   $offset=getpwnam($user)->uid*$sizeof;
   seek($fh,$offset,SEEK_SET);
   read($fh,$buffer,$sizeof);
   ($time,$line,$host)=unpack($typedef,$buffer);
   print $time;
   print $line;
   print $host;   $time-=60*60*7;
   print $time;
   seek($fh,-$sizeof,1);
   $buffer=pack($typedef,time,$line,$host);
   print $fh $buffer;
   close($fh);

我在pleacperl中的原来的代码中加了几个print看一下最后登录的信息，可是好象print $line,print $host没有什么作用，代码执行后，通过"lastlog"命令看当前用户的最后登录时间也没有减一天（原文是减7天）。

dream3401

偷偷的顶一下

MMMIX

我觉得你还是先了解下你系统上的 lastlog 文件的格式为好，看看它的那个 unpack 指定的格式串到底对不对

dream3401

原帖由 MMMIX 于 2009-3-16 22:24 发表
我觉得你还是先了解下你系统上的 lastlog 文件的格式为好，看看它的那个 unpack 指定的格式串到底对不对

嗯，我也觉得是/var/log/lastlog的格式可能与上面源代码中所选的格式不同。
但不知道如何了解到本机lastlog的格式，man lastlog也没有这方面的说明
我的机器是Debian GNU/Linux 4.0的操作系统。

MMMIX

原帖由 dream3401 于 2009-3-17 09:13 发表

嗯，我也觉得是/var/log/lastlog的格式可能与上面源代码中所选的格式不同。
但不知道如何了解到本机lastlog的格式，man lastlog也没有这方面的说明
我的机器是Debian GNU/Linux 4.0的操作系统。

我也没有找到。你要真想知道，估计要看看源码。