in reply to modifying script to ask for file name as input
And the output from sample data are -#!/use/local/bin/perl -w use strict; use IO::File; use Getopt::Long; # Parse command line arguments and assign corresponding variables GetOptions ( 'i|input=s' => \( my $INPUT = undef ), 'o|output=s' => \( my $OUTPUT = "./data-in,./data-out" ), 'g|graph=s' => \( my $GRAPH = "./graph" ), ); unless ( defined $INPUT ) { print <<USAGE SNMP data parser Usage: $0 [option] Options: -i|--input [filename] SNMP router data file -o|--output [in,out] Optional. Default is "datain,dataout". -g|--graph [command] Optional. Default is "./graph" USAGE ; exit(1); } # get the names of the datain and dataout files # note that you can override these names from # the command-line my ($datain,$dataout) = split /,\s*/, $OUTPUT; my $f = new IO::File $INPUT, "r" or die "Could not open input file $INPUT"; my $di = new IO::File $datain, "w" or die "Could not create output file $datain"; my $do = new IO::File $dataout, "w" or die "Could not create output file $dataout"; while (<$f>) { # for each line in the input file next if /^\s*$/; # ignore empty lines my @col = split /,\s+/; # split on , followed by spaces my ($date) = $col[0] =~ /^"(.*)\s.*"$/; # want date only print $di "$date, $col[2]\n"; print $do "$date, $col[3]\n"; } undef $di; # force close of files undef $do; undef $f; # do the graph system($GRAPH) or die "Could not execute $GRAPH"; exit(0); __END__ example: ./script.pl -i snmp.log
data-in ------- 23/10/2003, 1.86 23/10/2003, 2.26 23/10/2003, 0.74 23/10/2003, 1.15 23/10/2003, 1.61 23/10/2003, 1.55 23/10/2003, 1.11 data-out -------- 23/10/2003, 1.91 23/10/2003, 1.53 23/10/2003, 0.46 23/10/2003, 1.53 23/10/2003, 0.72 23/10/2003, 1.08 23/10/2003, 0.52
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: modifying script to ask for file name as input
by Anonymous Monk on Dec 05, 2003 at 11:54 UTC | |
by Roger (Parson) on Dec 05, 2003 at 21:46 UTC | |
by gabjones (Initiate) on Dec 06, 2003 at 18:59 UTC | |
by Roger (Parson) on Dec 06, 2003 at 22:15 UTC | |
by gabjones (Initiate) on Dec 08, 2003 at 20:48 UTC |