view rapsodyn/MergeLogFiles.pl @ 12:c794dafd1ae5 draft

Uploaded
author mcharles
date Mon, 19 Jan 2015 04:46:31 -0500
parents 0a6c1cfe4dc8
children 827da1a9a326
line wrap: on
line source

#!/usr/bin/perl
#V1.0.0
use strict;
use warnings;
use Getopt::Long;


my $input_log_files;
GetOptions (
"input_log_files=s" => \$input_log_files
) or die("Error in command line arguments\n");

my @files = split(/,/,$input_log_files);
for (my $i=0;$i<=$#files;$i++){
	print $files[$i],"\n";
}