Aaron Sherman:
> perl -MNet::Ping -nle 'print "Ghost DHCP lease: $1"
> if /lease\s+(\d\S+)/ &&
> ! Net::Ping->new("icmp")->ping($1)' \
> /var/state/dhcp/dhcpd.leases
This becomes
perl -MNet::Ping -nle 'print "Ghost DHCP lease: $1"
if /lease\s+(\d\S+)/ &&
! Net::Ping.new("icmp").ping($1)' \
/var/state/dhcp/dhcpd.leases
Look, it's even shorter! :)
> nice du -a | sort -n | tail -300 | tac | perl -nle '
> die "Require non-zero disk size!\n" unless $ENV{DF};
> if ($. == 1) {
> $total = $_ + 0;
> next;
> }
> ($size,$rest) = split /\s+/, $_, 2;
> if ($rest =~ /^\.\/([\w.\-]+)\//) {
> next if $count{$1}++ >= 3;
> }
> printf "%5.1f%% %5.1f%% %11s %s\n", $size/$ENV{DF}*100,
> $size/$total*100, $size, $rest;' |\
> head -100
This doesn't change at all.
--
Ever wake up feeling like a null pointer? -Allan Pratt
