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

Uploaded
author mcharles
date Mon, 19 Jan 2015 04:33:21 -0500
parents
children 827da1a9a326
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/rapsodyn/MergeLogFiles.pl	Mon Jan 19 04:33:21 2015 -0500
@@ -0,0 +1,16 @@
+#!/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";
+}
\ No newline at end of file