scripts/cpve_log.pl

   1 #!/usr/bin/perl -w
   2 #
   3 use strict;
   4 use warnings;
   5 use v5.10; ## say
   6
   7 #my $log_file = @ARGV[0];
   8
   9 my $k_start_call = 'originateCall|answercall';
  10 #my $k_start_call = 'originateCall';
  11
  12 # create jabber_full.log to add jabber.log, jabber.log.1, jabber.log.2
  13 my @logs = glob "jabber.log*";
  14 my $full_logs = "jabber_full.log";
  15
  16 #foreach (@logs) { say; }
  17 #say @logs;
  18 #print @logs;
  19
  20 #print for (reverse @logs);
  21
  22 ##open LOGS, ">>$full_logs" or die "$!";
  23 ##for (reverse @logs){
  24 ##    open SUB_LOG, "<", $_ or die "$!";
  25 ##    print LOGS while(<SUB_LOG>) ;
  26 ##    close SUB_LOG;
  27 ##}
  28 ##close LOGS;
  29 ##
  30 ##for (reverse @logs){
  31 ##    !system "cat $_ >> $full_logs" or die "$!";
  32 ##}
  33
  34 ## merge log files
  35 !system "cat $_ >> $full_logs" or die "$!"  for (reverse @logs);
  36
  37 ## split file  with each call
  38 open LOG, "<<$full_logs" or die "$!";
  39
  40 open LOG, "<<$full_logs" or die "$!";
  41 while(<LOG>){
  42
  43 }
  44
  45