stas 2002/11/07 21:11:41
Modified: src/outstanding/stats graph.pl
Log:
allow comments in the input data file
Revision Changes Path
1.4 +3 -0 modperl-docs/src/outstanding/stats/graph.pl
Index: graph.pl
===================================================================
RCS file: /home/cvs/modperl-docs/src/outstanding/stats/graph.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- graph.pl 8 Nov 2002 05:08:25 -0000 1.3
+++ graph.pl 8 Nov 2002 05:11:41 -0000 1.4
@@ -153,6 +153,9 @@
while (<ZZZ>)
{
chomp;
+
+ next if /^#/;
+
# you might want Text::CSV here
my @row = split /\t/;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
