From: Peng Li <seudut@gmail.com>
Date: Fri, 24 Jul 2015 01:42:33 +0000 (+0800)
Subject: script to split cpve logs
X-Git-Url: http://47.100.26.94:8080/?a=commitdiff_plain;h=05b182e7dbdc09f1fab436559fb25086c54c66b8;p=dotfiles.git

script to split cpve logs
---

diff --git a/scripts/cpve_log.pl b/scripts/cpve_log.pl
new file mode 100755
index 0000000..5a58a12
--- /dev/null
+++ b/scripts/cpve_log.pl
@@ -0,0 +1,45 @@
+#!/usr/bin/perl -w
+#
+use strict;
+use warnings;
+use v5.10; ## say
+
+#my $log_file = @ARGV[0];
+
+my $k_start_call = 'originateCall|answercall';
+#my $k_start_call = 'originateCall';
+
+# create jabber_full.log to add jabber.log, jabber.log.1, jabber.log.2
+my @logs = glob "jabber.log*";
+my $full_logs = "jabber_full.log";
+
+#foreach (@logs) { say; }    
+#say @logs;
+#print @logs;
+
+#print for (reverse @logs);
+
+##open LOGS, ">>$full_logs" or die "$!";
+##for (reverse @logs){
+##    open SUB_LOG, "<", $_ or die "$!";
+##    print LOGS while(<SUB_LOG>) ;
+##    close SUB_LOG;
+##}
+##close LOGS;
+##
+##for (reverse @logs){
+##    !system "cat $_ >> $full_logs" or die "$!";
+##}
+
+## merge log files
+!system "cat $_ >> $full_logs" or die "$!"  for (reverse @logs);
+
+## split file  with each call
+open LOG, "<<$full_logs" or die "$!";
+
+open LOG, "<<$full_logs" or die "$!";
+while(<LOG>){
+
+}
+
+