annotate rapsodyn/MergeLogFiles.pl @ 10:0a6c1cfe4dc8 draft

Uploaded
author mcharles
date Mon, 19 Jan 2015 04:33:21 -0500
parents
children 827da1a9a326
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
10
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
1 #!/usr/bin/perl
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
2 #V1.0.0
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
3 use strict;
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
4 use warnings;
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
5 use Getopt::Long;
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
6
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
7
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
8 my $input_log_files;
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
9 GetOptions (
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
10 "input_log_files=s" => \$input_log_files
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
11 ) or die("Error in command line arguments\n");
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
12
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
13 my @files = split(/,/,$input_log_files);
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
14 for (my $i=0;$i<=$#files;$i++){
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
15 print $files[$i],"\n";
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
16 }