From 4a29c248a7cde6f827654a23454965775aca4392 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Franti=C5=A1ek=20Dvo=C5=99=C3=A1k?= Date: Wed, 20 Jun 2007 16:10:55 +0000 Subject: [PATCH] Bugfix (no of arguments), better comments. --- org.glite.jp.index/examples/pch06/query4.pl | 6 +++--- org.glite.jp.index/examples/pch06/query5.pl | 2 +- org.glite.jp.index/examples/pch06/query6.pl | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/org.glite.jp.index/examples/pch06/query4.pl b/org.glite.jp.index/examples/pch06/query4.pl index 3520875..a8de934 100644 --- a/org.glite.jp.index/examples/pch06/query4.pl +++ b/org.glite.jp.index/examples/pch06/query4.pl @@ -8,7 +8,7 @@ # "-m 12" of align_warp) that ran on a Monday. # # call: -# ./query4.pl 2>/dev/null +# ./query4.pl [PROGRAMS] 2>/dev/null # use strict; @@ -31,9 +31,9 @@ my $according_count = 0; $pch::debug = 0; my $debug = 0; -if ($#ARGV + 1 > 1) { +if ($#ARGV + 1 >= 1) { %program_names = (); - foreach (split(/ */, $ARGV[1])) { + foreach (split(/ */, $ARGV[0])) { $program_names{$_} = 1; } } diff --git a/org.glite.jp.index/examples/pch06/query5.pl b/org.glite.jp.index/examples/pch06/query5.pl index 4394c7d..ea56063 100644 --- a/org.glite.jp.index/examples/pch06/query5.pl +++ b/org.glite.jp.index/examples/pch06/query5.pl @@ -8,7 +8,7 @@ # a header file can be extracted as text using the scanheader AIR utility. # # call: -# ./query5.pl 2>/dev/null +# ./query5.pl [PROGRAMS] [END_PROGRAMS] 2>/dev/null # use strict; diff --git a/org.glite.jp.index/examples/pch06/query6.pl b/org.glite.jp.index/examples/pch06/query6.pl index 16b93ad..705375b 100644 --- a/org.glite.jp.index/examples/pch06/query6.pl +++ b/org.glite.jp.index/examples/pch06/query6.pl @@ -10,7 +10,7 @@ # -m 12. # # call: -# ./query6.pl 2>/dev/null +# ./query6.pl [PROGRAMS] [END_PROGRAMS] 2>/dev/null # use strict; -- 1.8.2.3