equal
deleted
inserted
replaced
15 use strict; |
15 use strict; |
16 |
16 |
17 use Getopt::Long; |
17 use Getopt::Long; |
18 |
18 |
19 my $input = "\\output\\logs\\envinfo.txt"; |
19 my $input = "\\output\\logs\\envinfo.txt"; |
20 my $output = "\\output\\logs\\envinfo_diamonds.xml"; |
20 my $output = "\\output\\logs\\diamonds_envinfo.xml"; |
21 my $help = 0; |
21 my $help = 0; |
22 GetOptions(( |
22 GetOptions(( |
23 'in=s' => \$input, |
23 'in=s' => \$input, |
24 'out=s' => \$output, |
24 'out=s' => \$output, |
25 'help!' => \$help |
25 'help!' => \$help |
29 { |
29 { |
30 print "Translates envinfo report to a Diamonds file\n"; |
30 print "Translates envinfo report to a Diamonds file\n"; |
31 print "Usage: perl envinfo2diamonds.pl [-i INFILE] [-o OUTFILE]\n"; |
31 print "Usage: perl envinfo2diamonds.pl [-i INFILE] [-o OUTFILE]\n"; |
32 print "\n"; |
32 print "\n"; |
33 print "INFILE is optional, its default is \\output\\logs\\envinfo.txt\n"; |
33 print "INFILE is optional, its default is \\output\\logs\\envinfo.txt\n"; |
34 print "OUTFILE is optional, its default is \\output\\logs\\envinfo_diamonds.xml\n"; |
34 print "OUTFILE is optional, its default is \\output\\logs\\diamonds_envinfo.xml\n"; |
35 exit(0); |
35 exit(0); |
36 } |
36 } |
37 |
37 |
38 my @environment_info = (); |
38 my @environment_info = (); |
39 |
39 |