Help-Site Computer Manuals
Software
Hardware
Programming
Networking
  Algorithms & Data Structures   Programming Languages   Revision Control
  Protocols
  Cameras   Computers   Displays   Keyboards & Mice   Motherboards   Networking   Printers & Scanners   Storage
  Windows   Linux & Unix   Mac

Algorithm::Accounting
Generate accounting statistic for general logs

Algorithm::Accounting - Generate accounting statistic for general logs


NAME


  Algorithm::Accounting - Generate accounting statistic for general logs


SYNOPSIS


  my $fields = [qw/id author file date/];

  my $groups = [[qw(author file)], [qw(author date)]];

  my $data = [

        [1, 'alice', '/foo.txt', '2004-05-01' ],

        [2, 'bob',   '/foo.txt', '2004-05-03' ],

        [3, 'alice', '/foo.txt', '2004-05-04' ],

        [4, 'john ', '/foo.txt', '2004-05-04' ],

        [5, 'john ', [qw(/foo.txt /bar.txt], '2004-05-04' ],

  ];

  # give the object information

  my $acc = Algorithm::Accounting->new(fields => $fields,

                                       field_groups => $groups );

  $acc->append_data($data);

  # Generate report to STDOUT

  $acc->report;

  # Get result

  my $result = $acc->result;

  # Get result of a specific field.

  my $author_accounting = $acc->result('author');

  # Reset current result so we can restart

  $acc->reset;


DESCRIPTION

Algorithm::Accounting provide simple aggregation method to make log accounting easier. It accepts data in rows, each rows can have many fields, and each field is a scalar or a list(arrayref).

The basic usage is you walk through all your logs, and use append_data() to insert each rows, (you'll have to split the line into fields), and then call result() to retrieve the result, or report() to immediatly see simple result.

You may specify a filed_groups parameter (arrayref of arrayref), and Algorithm::Accounting will account these fields in groups.

Notice you'll have to give a list fileds first, the append_data() depends on the number of fields to work properly.


COPYRIGHT

Copyright 2004 by Kang-min Liu <gugod@gugod.org>.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See <http://www.perl.com/perl/misc/Artistic.html>

Programminig
Wy
Wy
yW
Wy
Programming
Wy
Wy
Wy
Wy