查找Unix用户最后登录时间的perl脚本
有时候，出于安全考虑，Unix的系统管理员会需要查找出N台Unix服务器上各个用户的最后登录时间。
可以通过脚本在各台主机上运行lastlog命令收集信息，也可以从lastlog文件入手，通过对lastlog文件的分析来获取相关信息。
我之前曾经遇到过一个case，要在短时间内获取37个AIX操作系统上的所有非系统用户的最后登录时间，我采取了通过对lastlog文件进行分析的手段。写了一个perl脚本做自动时间转换（由Unix Timestamp转为普通时间格式），并输出为CSV文件。
将所有AIX系统上的lastlog文件（/etc/security/lastlog）放到一个目录下，之后用这个目录的路径作为参数传入到perl脚本中，脚本会输出每一台主机的所有非系统用户的最后一次登录信息，并以CSV格式保存在执行路径中。
完整代码如下：
02 use strict;
03 use Time::Local;
04
05 my $logname;
06 my $sourcedir;
07 my $username;
08 my $year;
09 my $day;
10 my $month;
11 my $min;
12 my $hour;
13
14 if(defined $ARGV[0]){
15 $sourcedir = $ARGV[0];
16 }else{
17 die "Pls input the dir of raw-date!\n";
18 }
19
20 if(! opendir DIR, $sourcedir){
21 die "Cannot access the dir of raw-date: $!";
22 }
23
24 my @dir = readdir DIR;
25
26 for $logname(@dir){
27
28 next if($logname=~/\./);
29
30 print("Analsing the data in $sourcedir/$logname\n");
31
32 if(! open LOG, "./$sourcedir/$logname" ){
33 die "Cannot open the lastlog \"$logname\": $!";
34 }
35
36 if(! open RESULT, ">".$logname.".csv"){
37 die "Cannot creat the output log: $!";
38 }
39
40 print RESULT "User,Data,Time\n";
41
42 while(my $line = <LOG>){
43 chomp($line);
44
45 if($line =~/^(.*):/){
46 $username = $1;
47 }
48 if($line =~/time_last_login(.*)=(.*)$/){
49 my($sec,$min,$hour,$day,$month,$year) = (localtime($2))[0,1,2,3,4,5,6];
50 my $date= ($year-100)."/".$month."/".$day;
51 print RESULT $username.",".$date.",".$hour.":".$min."\n";
52 }
53 }
54
55 close RESULT;
56 close LOG;
57 }
58
59 closedir DIR;
Low Value Lifestyle
凌晨四点多被叫去驰援一位老大，搞掂后又不想回家睡觉，直接呆咖啡馆上网...想躺在椅子上睡一会，却全无睡意，于是乎在standby之余，写点东西吧…
想了一下最近两个月的业余生活，平时的weekday就不用说了，到了week end假如不用OT的话，除了约上州爷、刘文他们出来玩之外，也就剩下宅在家睡觉的份。时常觉得这样的lifestyle真是low value。
之前州爷有说过，大家周末出来玩，最好定个目的，不要是纯粹出来耍，例如出来运动运动什么的。结果就爬了一次坑爹的白云山…接下来该怎么颓废的继续颓废….
上一周突发奇想，在卓越上买了几本书。到手之后发觉豆瓣的“我读”列表里面还有14本书处于“在读”状态，细看发现很多都是在大学毕业前的遗留下来的。好残忍的现实…好吧，将这些书移至“读过”列表之前，还是不要再购书了…
最近一周都把起床闹钟定在7点，计划起来锻炼一下身体神马的，结果每回都是用“不够睡会影响工作状态”这种冠冕堂皇的理由来按掉闹钟…直到今天凌晨被急call…现在生龙活虎地发现，这烂理由完全站不住脚…
Well~HP，there should be some change you need.
不候
银桥孤弄华灯彩，泛舟波上丽人来。
擦肩回眸人不在，饮杯月下莲花开。
- 辛卯年五月廿八，于乌镇
生生性性
广东话“生生性性”四个字一般都系D大人针对细路仔讲既，其实就系想D细路哥听话懂事，快高长大。依家我先要同D机器讲，唔该你地生生性性啦......系正月十五果日，某位大佬叫我去拜太岁，我系仁威庙度祈求既第二个愿望就系希望D机器可以听话D，唔好搞D类似宕机甘既大头佛出来，唔好中bug...
再来，就系要同自己讲：“喂，唔细嘎啦，生生性性啦！” 今年春节前三日值班兼加班，大年初四就走佐去珠海陪阿嬤过年，期间D姑姐都已经开始同我灌输关于择偶方面既事...我顶，当年我拍拖果阵，你地就系度叽叽旮旮，话咩仲细啊，玩下就算啦...依家我仲犹豫紧要吾要拍拖，你地就同我讲话要认真啦...大佬，依个转变快唔快佐D啊...
我知，都唔系学生哥啦，要对自己既家庭有更多责任心嘛...但就因为唔系学生啦，你估甘易抽时间出来拍拖咩...依家陪女仔行个街、睇个电影都仲要偝住部thinkpad，最惊就系突然间有个电话瓞你过去机房啊～阴公...其实我系想讲，依家虽然唔系话没条件去拍拖，而系没晒以前果种冲动，或者话身边已经没佐果种氛围。有时候突然间想打电话俾人，但系唔知要同距讲咩好...或者，就系因为认真，所以犹豫...
前日细肥从清远过来，我地一班人出来聚会，最感叹既就系自由越来越少，责任越来越多...真系有D后悔大四果年居然没玩个尽兴...又唔系话依家仲觉得玩唔够咯，只係觉得当年浪费佐好多野。出到来做野，每个人既思维完全变晒，无论系体制内体制外，考虑问题都越来越实际。以前读书果阵，交往就真系讲感情嘎，但系出到来外面，你或多或少会发现交往所带既利益交易成分系多佐既...你可以做既，就系尽量唔好令自己太急功近利，坚持自己既价值取向...
老套陈词：“好多野，真系要等你真正去接触，你先会明”，讲句好听D，依D就系成熟，讲句难听D，你唔细啦，要识唸啦～
认真工作，认真生活，生生性性啦...
扯
虽然现在已是凌晨3点，明天上午还要回公司排练一下今年GTS的annual dinner节目，但我还是觉得有必要记录一下今天(1月14日)的一些见闻和所思所想。
首先让我抱怨一下，上午在去机房干活的路上，我将持有的某支股票卖了，结果在下午收市的时候它又涨了1块钱，我了个去的，就这样少赚了几百块，不爽。
当我还在某个机房干活的时候，另外一个机房的一台企业级存储系统悄无声息的挂了，根据下午我从处理故障的老大口中了解到的情况，这次故障只能用两个字来形容：神迹。话说自从踏入2011年，我们整个team都很黑仔。 1月1日、1月2日、1月4日、1月14日都是很刺激的日子...很多人都不爽...
晚上和同事们去活动了一下（就是打麻将啦），期间实在受不了背到极致的手气（星座运程小红花神马的都是浮云），用手机上了一会儿开心网，看了一篇关于奶茶MM章泽天的转贴，里面提到一个观点，就是女要富养。原本这话题跟我应该没啥关系，后来不知怎么的，联想到了干我们这行的人生女孩的几率不低于80%，不禁开始发散思维。虽然我来自在重男轻女观念及其严重的潮汕地区，但我倒是不排斥将来有一个女儿，甚至倾向于有个女儿，但是结合实际来考虑问题，如果真的要养一个女儿的话，压力真的好大，至少是大把大把的钱，总要让她见惯大世面吧。然后再犯贱地思考一下自己的收入的增长趋势，哇靠，突然就觉得压力好大...我擦，居然这么虚构的联想都能给自己带来压力，真有够无聊的耶...
从现在开始，要好好理财了，昨天在iPhone上装了金蝶出的随手记，要好好利用才行。
最后，感谢Roy同学那个一炮七响的炮，这是我开始涉及麻将这种运动之后所遇到的最欢乐的时刻。
