7 #my $log_file = @ARGV[0];
9 my $k_start_call = 'originateCall|answercall';
10 #my $k_start_call = 'originateCall';
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";
16 #foreach (@logs) { say; }
20 #print for (reverse @logs);
22 ##open LOGS, ">>$full_logs" or die "$!";
23 ##for (reverse @logs){
24 ## open SUB_LOG, "<", $_ or die "$!";
25 ## print LOGS while(<SUB_LOG>) ;
30 ##for (reverse @logs){
31 ## !system "cat $_ >> $full_logs" or die "$!";
35 !system "cat $_ >> $full_logs" or die "$!" for (reverse @logs);
37 ## split file with each call
38 open LOG, "<<$full_logs" or die "$!";
40 open LOG, "<<$full_logs" or die "$!";