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

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