unik_df

   1 #!/usr/bin/env perl
   2
   3 #===============================================================
   4 # unik_df
   5 # File ID: 31d8d1e4-5d47-11df-8c23-90e6ba3022ac
   6 # Filtrerer bort duplikater i ~/log/df.log .
   7 # Character set: UTF-8
   8 # License: GNU General Public License versjon 2 eller nyere
   9 # ©opyleft 2003 Øyvind A. Holm <sunny@sunbase.org>
  10 #===============================================================
  11
  12 use strict;
  13 use warnings;
  14
  15 $| = 1;
  16
  17 my $last_val = 0;
  18
  19 while (<>) {
  20         chomp;
  21         if (/^(\S+) (\d+)/) {
  22                 unless ($2 eq $last_val) {
  23                         print("$1 $2\n");
  24                 }
  25                 $last_val = $2;
  26         }
  27 }
  28
  29 __END__
  30
  31 =pod
  32
  33 =head1 LICENCE
  34
  35 This program is free software; you can redistribute it and/or modify it
  36 under the terms of the GNU General Public License as published by the
  37 Free Software Foundation; either version 2 of the License, or (at your
  38 option) any later version.
  39
  40 This program is distributed in the hope that it will be useful, but
  41 WITHOUT ANY WARRANTY; without even the implied warranty of
  42 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  43 See the GNU General Public License for more details.
  44
  45 You should have received a copy of the GNU General Public License along
  46 with this program; if not, write to the Free Software Foundation, Inc.,
  47 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  48
  49 =cut
  50
  51 # vim: set fileencoding=UTF-8 filetype=perl foldmethod=marker foldlevel=0 :
  52 # End of file unik_df