snu_epstat

   1 #!/usr/bin/env perl
   2
   3 # snu_epstat
   4 # File ID: 2a0a79c0-5d44-11df-a312-90e6ba3022ac
   5 # Snur outputen fra epstat,v 1.3 og tidlligere og plasserer datoen først.
   6
   7 use strict;
   8 use warnings;
   9
  10 while (<>) {
  11         if (/^\s+(\d+)\s+(.*)$/) {
  12                 # s/ /\t/;
  13                 print("$2\t$1\n");
  14         } else {
  15                 print;
  16         }
  17 }