Skip to content

Instantly share code, notes, and snippets.

View bvierra's full-sized avatar

Billy Vierra bvierra

14 followers · 9 following
  • Seattle, WA
View GitHub Profile
@bvierra
bvierra / gist:6164647
Created August 6, 2013 13:57
http://www.reddit.com/r/perl/comments/1jt5fe/wtmp_script_help/
#!/usr/bin/env perl
use strict;
use warnings;
my @files = ('/var/log/wtmp', '/var/log/wtmp.1');
my %TIMES;
foreach my $file (@files) {
parse($file);
}
@bvierra
bvierra / check
Created January 23, 2013 07:51
#!/usr/bin/perl
use strict;
use warnings;
my $which = '/usr/bin/which';
my $md5sum = '/usr/bin/md5sum';
my $sudo_md5 = 'db4e0aec4ef7639dd14bc4e2cd0591ce /usr/bin/sudo';
my $sudo_path = '/usr/bin/sudo';
my $bash_md5 = '9a99d4a76f3f773f7ab5e9e3e482c213 /bin/bash';