man/html/importdata/moverv1

   1 #!/usr/bin/perl
   2 #
   3 # Minimalist Version 1.
   4 #
   5
   6 use strict;
   7 use warnings;
   8 use Date::Parse;
   9 use Date::Format;
  10 use PCP::LogImport;
  11
  12 pmiStart("mover_v1", 0);
  13 pmiAddMetric("mover.nfile",
  14              PM_ID_NULL, PM_TYPE_U32, PM_INDOM_NULL,
  15              PM_SEM_INSTANT, pmiUnits(0,0,1,0,0,PM_COUNT_ONE));
  16
  17 open(INFILE, "<mover.log");
  18 while (<INFILE>) {
  19     my @part;
  20     chomp;
  21     @part = split(/\s+/, $_);
  22     pmiPutValue("mover.nfile", "", $part[2]);
  23     pmiWrite(str2time($part[0] . "T" . $part[1], "UTC"), 0);
  24 }
  25
  26 pmiEnd();