[22171] in Perl-Users-Digest
Perl-Users Digest, Issue: 4392 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jan 13 03:05:49 2003
Date: Mon, 13 Jan 2003 00:05:08 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 13 Jan 2003 Volume: 10 Number: 4392
Today's topics:
command-line args style flags from a file (Kevin Newman)
Re: command-line args style flags from a file <s.patterson@freeuk.com>
Re: command-line args style flags from a file (Ben Morrow)
Re: command-line args style flags from a file (Tad McClellan)
Re: command-line args style flags from a file <bongie@gmx.net>
Re: FULL VERSION: Hi all gurus. What is wrong in my s <koos_pol@NO.nl.JUNK.compuware.MAIL.com>
Re: how to split web page contents download variable by (R Solberg)
Re: i'm sorry (krakle)
Re: i'm sorry <estrunk@home.nl>
Newbie - how to tell if module installed ... (Joe Halbrook)
Re: Newbie - how to tell if module installed ... <bongie@gmx.net>
Re: Newbie - how to tell if module installed ... <nobody@dev.null>
Re: Parsing /(terminated|non-terminated)/ records from (Anno Siegel)
ppm query <No_Mail_Address@cox.net>
Re: reading commandline parameters (Tad McClellan)
Re: removing duplicate values from array not working... (tony)
Re: suggested revisions for the Posting Guidelines (Guy Worthington)
Re: suggested revisions for the Posting Guidelines (Guy Worthington)
Suggestions for counter <bbsouth@bellsouth.net>
Re: Suggestions for counter <koos_pol@NO.nl.JUNK.compuware.MAIL.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 12 Jan 2003 16:41:31 -0800
From: knewman00@earthlink.net (Kevin Newman)
Subject: command-line args style flags from a file
Message-Id: <4c8e4398.0301121641.792eae3@posting.google.com>
Hi all,
I have a script that I would like to control the behavior from the
command-line or a file. For example, let's say that I want to
compress a file:
myscript.pl -c -f <inputfile> -o <outputfile>
or compress and remove blank lines :
myscript.pl -c -b -f <inputfile> -o<outputfile>
There are a multitude of examples on how to do command-line flags, but
how can I perform a *series* of operations on a single file?
For example, let's say I have file called do_flags.txt. Inside of
do_flags.txt are the following lines of text:
---------------------------
-c -o <outputfile-A>
-c -b -o <outputfile-B>
-b -o <outputfile-C>
--------------------------
To invoke this series of operations:
myscript.pl -f<inputfile> -L do_flags.txt
b
I have code that works for input from the command-line (using
Getopt::Std). I've even made an attempt at getting the arguments to
work from a file. Before I post my code (it's currently about 100
lines), is there some module or example existing code that allows
command-line style flags to be read from a file?
Thanks for your help,
kln
------------------------------
Date: 13 Jan 2003 00:53:06 GMT
From: Stephen Patterson <s.patterson@freeuk.com>
Subject: Re: command-line args style flags from a file
Message-Id: <slrnb243fi.3lc.s.patterson@seagoon.localdomain>
On 12 Jan 2003 16:41:31 -0800, Kevin Newman wrote:
> I have a script that I would like to control the behavior from the
> command-line or a file. For example, let's say that I want to
> compress a file:
> myscript.pl -c -f <inputfile> -o <outputfile>
I'd expect the App::Config hierarchy to be able to handle this,
although given your example file...
use English;
unless (@ARGV) {
open CFG, $file;
@args = <CFG>;
} else {
@args = @ARGV
}
and its great posting code from an editor which nuderstands perl :)
--
Stephen Patterson http://www.lexx.uklinux.net http://patter.mine.nu
steve@SPAM.lexx.uklinux.net remove SPAM to reply
Linux Counter No: 142831 GPG Public key: 252B8B37
Last one down the pub's an MCSE
------------------------------
Date: Mon, 13 Jan 2003 00:54:33 +0000 (UTC)
From: mauzo@mimosa.csv.warwick.ac.uk (Ben Morrow)
Subject: Re: command-line args style flags from a file
Message-Id: <avt2o9$1ms$1@wisteria.csv.warwick.ac.uk>
knewman00@earthlink.net (Kevin Newman) wrote:
>Hi all,
>
>I have a script that I would like to control the behavior from the
>command-line or a file. For example, let's say that I want to
>compress a file:
>myscript.pl -c -f <inputfile> -o <outputfile>
>
>or compress and remove blank lines :
>myscript.pl -c -b -f <inputfile> -o<outputfile>
>
>There are a multitude of examples on how to do command-line flags, but
>how can I perform a *series* of operations on a single file?
>
>For example, let's say I have file called do_flags.txt. Inside of
>do_flags.txt are the following lines of text:
>---------------------------
>-c -o <outputfile-A>
>-c -b -o <outputfile-B>
>-b -o <outputfile-C>
>--------------------------
>
>To invoke this series of operations:
>
>myscript.pl -f<inputfile> -L do_flags.txt
>b
>I have code that works for input from the command-line (using
>Getopt::Std). I've even made an attempt at getting the arguments to
>work from a file. Before I post my code (it's currently about 100
>lines), is there some module or example existing code that allows
>command-line style flags to be read from a file?
Would something like: [untested and incomplete code]
use Getopt::Std;
use constant options => 'cbf:o:';
getopts(options . 'L:', \my(%cmd_opts));
my $file = delete $cmd_opts{L};
unless($file) {
process_options(%cmd_opts);
}
else {
open my $CONFIG, "<", $file;
for my $opts (<$CONFIG>) {
@ARGV = split ' ', $opts;
getopts(options, \my %file_opts);
my %all_opts = (%cmd_opts, %file_opts);
process_options(%all_opts);
}
}
be what you're looking for? The basic idea is to add each set of options from
the file to those given on the command line, then process the whole set.
Ben
------------------------------
Date: Sun, 12 Jan 2003 19:02:17 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: command-line args style flags from a file
Message-Id: <slrnb2440p.bg3.tadmc@magna.augustmail.com>
Kevin Newman <knewman00@earthlink.net> wrote:
> is there some module or example existing code that allows
> command-line style flags to be read from a file?
Getopt::Std works on whatever is in @ARGV when you call getopts().
Do plain ol' file input to read the switches, stuff them
into @ARGV, then call getopts().
eg:
@ARGV = qw/ -c -o outputfile-A/;
getopts('co:');
print $opt_c, "\n";
print $opt_o, "\n";
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 13 Jan 2003 02:14:51 +0100
From: "Harald H.-J. Bongartz" <bongie@gmx.net>
Subject: Re: command-line args style flags from a file
Message-Id: <1601609.3xdfVSxWaW@nyoga.dubu.de>
Kevin Newman wrote:
> I have code that works for input from the command-line (using
> Getopt::Std). I've even made an attempt at getting the arguments to
> work from a file. Before I post my code (it's currently about 100
> lines), is there some module or example existing code that allows
> command-line style flags to be read from a file?
You can use Getopt::Std for that, too. Just read the lines from your
do_flags.txt into @ARGV, line by line:
getopts('...F:', \%Options); # get command line options
if ($Options{F}) { # there is a "-F do_flags.txt"
open (OPTFILE, "<$Options{F}")
or die "cannot open option file: $!";
while (<OPTFILE>) {
my %LocalOptions = %Options; # inherit global options
@ARGV = split;
getopts(..., \%LocalOptions); # analyze one line of options
do_something_with_options (\%LocalOptions);
}
close OPTFILE;
} else {
do_something_with_options (\%Options);
}
(untested)
Of course, when using this trivial method you won't get the quoting
capabilities of the shell, i.e. your do_flags.txt should not contain
-c -o "Output File With Blanks.o"
or something like that.
Ciao,
Harald
--
Harald H.-J. Bongartz <bongie@gmx.net>
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
[Sendmail] can do just about anything. Its main problem is that
it can do just about anything.
-- Chris Lewis, UNIX Email Software Survey FAQ
------------------------------
Date: Mon, 13 Jan 2003 08:37:42 +0100
From: Koos Pol <koos_pol@NO.nl.JUNK.compuware.MAIL.com>
Subject: Re: FULL VERSION: Hi all gurus. What is wrong in my script?
Message-Id: <newscache$ui6n8h$yv8$1@news.emea.compuware.com>
juha wrote (Saturday 11 January 2003 14:08):
In addition to all the other helpful responses:
> I need to check if the file is complity on my disk from FTP program.
> So I check the file's size and wait a while and check it again. If
> size is same as firts time, file is ready for action, else do nothing.
> Here is what I can't get work:
>
> while (<TEXTFILE>) {
> $size1 = -s "/temp/$_";
> system('sleep 20');
Perl can "sleep" for itself. There is no need to use system() for that.
--
KP
------------------------------
Date: 12 Jan 2003 19:56:19 -0800
From: flateyjarbok@yahoo.com (R Solberg)
Subject: Re: how to split web page contents download variable by line, without writing to and then reading from file.
Message-Id: <386cc483.0301121956.60f9c8ad@posting.google.com>
"J rgen Exner" <jurgenex@hotmail.com> wrote in message news:<4W6U9.7139$%V.1867@nwrddc02.gnilink.net>...
> R Solberg wrote:
> > Hi,
> > I need to avoid hard drive i/o frequency when parsing information from
> > a web site's contents. Currently my pgm. gets the contents and then
> > outputs to a file (see code block A). Then it opens the file just
> > output and then reads the lines one by one. I want to take the
> > variable $contents and split it into line by line just like the file
> > input i/o function(code block B), but by skipping the harddrive i/o.
> > What code should I insert in code block B to accomplish this?
> >
> > Block A
> >
> > my $req = new HTTP::Request "POST",
> > "http://www.website.com/Table.asp?ITEM=$sym&ALL=2";
> > my $u = new LWP::UserAgent;
> > my $content = $u->request($req)->content;
> >
> > open(MYOUTFILE, ">" . $folder . "output.out");
> > print MYOUTFILE $content;
> > close(MYOUTFILE);
> >
> > open(MYINPUTFILE, "<" . $folder . "output.out");
> > my $counter = 1;
> > while(<MYINPUTFILE>) { here I process the lines one by one}
> >
> > Block B
> >
> > my $req = new HTTP::Request "POST",
> > "http://www.website.com/Table.asp?ITEM=$sym&ALL=2";
> > my $u = new LWP::UserAgent;
> > my $content = $u->request($req)->content;
> >
> > my $counter = 1;
> > while(<GET NEXT LINE OF $contents>) { here I process the lines one
> > by one}
>
> Processing HTML code one line at a time usually is not a good idea because
> HTML is a format-free language. Why don't you process it one word at a time
> (there is no difference between a space and a line break in HTML)? Using an
> HTML parser to parse HTML may be more reliable and robust.
>
> But to answer your question:
> Just "split" the original reply from the web server at line breaks:
>
> my $s = "First\nSecond\nThird\n";
> my @a = split /\n/, $s;
> foreach (@a) {
> print ">>>>$_<<<<\n";
> }
>
> jue
Jurgen,
Thanks for the information. After I read your message I looked at split.
This works for me.
@contents = split /^/, $s;
------------------------------
Date: 12 Jan 2003 15:11:02 -0800
From: krakle@visto.com (krakle)
Subject: Re: i'm sorry
Message-Id: <237aaff8.0301121511.1baf5297@posting.google.com>
"estrunk" <estrunk@home.nl> wrote in message news:<LuhU9.19135$J6.1781043@zwoll1.home.nl>...
> I'm sorry just told you i'm a newbie, and in an english language i didn't
> know wat is the diffrence
> i just posted it in comp.unix shell.
> Hope that's the right thing to post in.
Unacceptable! Burn in hell!
------------------------------
Date: Mon, 13 Jan 2003 00:19:01 +0100
From: "estrunk" <estrunk@home.nl>
Subject: Re: i'm sorry
Message-Id: <QImU9.20644$J6.1970082@zwoll1.home.nl>
"krakle" <krakle@visto.com> schreef in bericht
news:237aaff8.0301121511.1baf5297@posting.google.com...
> "estrunk" <estrunk@home.nl> wrote in message
news:<LuhU9.19135$J6.1781043@zwoll1.home.nl>...
> > I'm sorry just told you i'm a newbie, and in an english language i
didn't
> > know wat is the diffrence
> > i just posted it in comp.unix shell.
> > Hope that's the right thing to post in.
>
> Unacceptable! Burn in hell!
Thanks stay next to me :) grinzzzzzzzzz
------------------------------
Date: 12 Jan 2003 19:07:24 -0800
From: jhalbrook@bjc.org (Joe Halbrook)
Subject: Newbie - how to tell if module installed ...
Message-Id: <8105bd43.0301121907.4af6475b@posting.google.com>
I know this has been asked a zillion times, but how
can I tell if a particular package is installed?
I currently have:
use package ();
But, if the package is NOT installed, what happens?
I've tried to find this in the Perl documentation, but
you have to be a UNIX guru to make heads or tails out
of that! I'm not ... yet ...
Thanks!!!!
A
------------------------------
Date: Mon, 13 Jan 2003 04:25:11 +0100
From: "Harald H.-J. Bongartz" <bongie@gmx.net>
Subject: Re: Newbie - how to tell if module installed ...
Message-Id: <6405390.ts39LJry8q@nyoga.dubu.de>
Joe Halbrook wrote:
> I know this has been asked a zillion times, but how
> can I tell if a particular package is installed?
% perl -e 'use MyPackage;'
Can't locate MyPackage.pm in @INC (@INC contains:
/usr/lib/perl5/5.8.0/i586-linux-thread-multi /usr/lib/perl5/5.8.0
[...]) at -e line 1.
or even simpler:
% perl -MMyPackage
Can't locate ...
> I currently have:
>
> use package ();
Do you know what these parentheses do? If not, leave them away!
(Empty parentheses will prevent the import() method of the module being
called. See "perldoc -f use".)
And, BTW, 'package' is a really bad name, because it's a reserved word.
:-)
> But, if the package is NOT installed, what happens?
You get a fatal error, see above.
Since 'use' statements are executed at compile time, this error will
always occur before the program is actually run.
If you want a runtime check for a module, use 'require' and 'import'
inside an 'eval':
eval { require MyPackage; import MyPackage; };
die "MyPackage not available" if $@;
The 'require' and 'import' will be executed at runtime, and the 'eval'
catches the error, so you can check $@ and provide your own.
Ciao,
Harald
--
Harald H.-J. Bongartz <bongie@gmx.net>
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Interesting Error Messages #11:
.signature not found! reformat hard drive? [Yn]
------------------------------
Date: Mon, 13 Jan 2003 04:22:01 GMT
From: Andras Malatinszky <nobody@dev.null>
Subject: Re: Newbie - how to tell if module installed ...
Message-Id: <3E223E0B.6010909@dev.null>
Joe Halbrook wrote:
> I know this has been asked a zillion times, but how
> can I tell if a particular package is installed?
>
>
A package and a module are not the same thing. I'll assume you are
talking about modules.
Suppose you want to find out if module Foo::Bar is installed. Write a
script with just
require Foo::Bar;
in it and run it. If it runs OK, then Foo::Bar is installed; otherwise
perl will complain that it "Can't locate Foo/Bar.pm in @INC" (@INC being
the array containing the locations where perl checked for the presence
of Foo::Bar).
Of course, this is a fatal error, and you may want to handle the absence
of Foo::Bar more gracefully. If that's the case, use the eval() function
like this:
if (eval{require Foo::Bar; import Foo::Bar}){
#Foo::Bar is there, so we can use its features:
my $enigma = new Foo::Bar; #Creating fictitious
#object with Foo::Bar
my $answer=$enigma->{'answer'}; #More fictitious syntax
#involving Foo:Bar
} else {
#Sorry, no Foo::Bar
my $answer=42; #We'll just have to guess the answer
}
------------------------------
Date: 12 Jan 2003 23:36:03 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Parsing /(terminated|non-terminated)/ records from a file
Message-Id: <avsu53$fpk$1@mamenchi.zrz.TU-Berlin.DE>
Kevin Newman <knewman00@earthlink.net> wrote in comp.lang.perl.misc:
> Hi all,
>
> I need help with parsing records from a file that may or may not have
> record terminators. The long explanation of the problem is below.
> The purpose of this program is to check record formatting and collect
> stats on how well the records are formatted. Right now I will be
> happy with being able to loop through a terminated and non-terminated
> file with no errors. The following code works, but needs some
> tweaking. If I use local $/ = \$lreclBytes instead of $/ =
> \$lreclBytes files with no terminators won't work. For terminated
> files I get "Died at stats-both.pl line 16, <> line 1.".
>
> use strict;
>
> my $lreclBytes = 4;
> # Remember to change. 0 = terminated records 1 = non-terminated
> records
> my $terminator = 1;
> while( 1 )
> {
> if ($terminator)
> {
> $/ = \$lreclBytes;
> defined(my $length = <>) or last;
> my $lrecl = ($length - $lreclBytes); #logical record length is
> part of the record
> $/ = \$lrecl;
> }
> #Handles records with or without a lrecl
> defined(my $data = <>) or die;
> my $recNum = sprintf ("%05d",$./($terminator + 1));
> $data =~ s/\015\012\z|[\015\012\000]\z//;
> print "Record [$recNum] -> [$data]\n";
> }
It appears you are trying to decide upon the format on a per-record
basis, as if a file could (say) start with a few records given by a
length field and then continue with "\n"-delimited records. If that
is actually true, those files will indeed be hard to parse.
Assuming that one file is in one format only, and also assuming that
a viable upper bound can be given for the record length, things get
easier: Read enough of the file to decide what format it is in (see
perldoc -f read), then rewind the file and read it in that format (see
perldoc -f seek for rewinding).
The only troublesome case is when you don't find any CR/LF type of
separators. There must be a module on CPAN to read length-field-
determined records, but if there isn't, don't try to base your
approach on $/, use read() instead:
until ( eof( ARGV) ) {
my $n_read;
$n_read = read( ARGV, my $length, 4);
die "invalid data" unless $n_read == 4;
$n_read = read( ARGV, my $content, $length - 4);
die "invalid data" unless $n_read == $length - 4;
my $record = $length . $content;
# work with $record
print "$record\n";
}
A production version would have more error checks, wouldn't die on
error, and have more informative messages. One could also get fancy
with four-argument read(), but that would make it less clear without
gaining much, I'd expect.
I'm not going into the problem of reconciling conflicting physical and
logical records, but this should help reading the files according to
format.
> ** Long Explanation **
[read, but snipped]
Anno
------------------------------
Date: Mon, 13 Jan 2003 01:20:51 GMT
From: Fred <No_Mail_Address@cox.net>
Subject: ppm query
Message-Id: <3E2214EF.318ECC21@cox.net>
Hello there,
I am using Active Perl 5.6 on Win 98
When I want to display the list of installed modules from the DOS
prompt using
ppm query <enter>
a long list flashes over the screen and I get to see only the last 25
lines.
Redirection to a file with
ppm query > C:\aa\list.txt
makes no change.
Is there a way to see (or print to file) the whole list ?
---
Fred
------------------------------
Date: Sun, 12 Jan 2003 17:14:59 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: reading commandline parameters
Message-Id: <slrnb23tnj.b78.tadmc@magna.augustmail.com>
Tommi <nomail@mail.com> wrote:
>
> How can I read commandline parameters?
You do not need to read them, perl already has them loaded
into an array (@ARGV) for you.
# echo all the command line arguments
foreach ( @ARGV ) {
print "$_\n";
}
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 12 Jan 2003 16:23:33 -0800
From: yello62@yahoo.com (tony)
Subject: Re: removing duplicate values from array not working...
Message-Id: <34175232.0301121623.71330038@posting.google.com>
Benjamin Goldberg <goldbb2@earthlink.net> wrote in message news:<3E20D855.6FDB4144@earthlink.net>...
> eric wrote:
> [snip]
> > push @tmp,[split/;/];
> > }
> >
> > push @tmpTwo,$_->[4] for @tmp;
>
> That's silly. Why grab all of it, if you're only going to use one
> element?
>
> How about:
>
> use strict;
> use warnings;
> my %seen;
> while( <> ) {
> my $item = (split /;/)[4];
> print $item if ++$seen{$item} == 1;
> }
> __END__
i appreciate all the input. i won't have a chance to test this until
tomorrow morning (c.s.t.). i appreciate the chastisement concerning
the 'use strict' as well. thank you for your help. i'm trying to
understand what is going on internally so that i can get better at my
coding. i'm afraid it is not yet settled in my brain. a little more
time spent in debug mode i believe should help.
peace
------------------------------
Date: 13 Jan 2003 10:24:57 +0800
From: guyw@multiline.com.au (Guy Worthington)
Subject: Re: suggested revisions for the Posting Guidelines
Message-Id: <uhecd23d2.fsf@multiline.com.au>
[snipped two examples of the definition lurk]
Tad McClellan wrote:
> I'm not seeing how [the rewrite of the definition ] has been made less
> pleasant.
> Please elaborate.
I think it's important, if you're going to teach someone a life lesson
(such as the way they communicate), that it be done with humour. You
threw me when you said Godzilla wrote the original piece. I've only
seen her swaggering around with her plumes at full display. And yet
when I had no idea who wrote the paragraph I can see a wit and
generosity in her writing.
It's somewhat perverse, that Brian McCauley, in rewritting Godzilla's
definition in as few words as possible lost its context, and yet when
he writes Perl it's expressive and well worth the read.
> I'm not seeing [that the rewritten definition is an open invitation
> to be rude]
Now you're just being obtuse.
------------------------------
Date: 13 Jan 2003 15:38:06 +0800
From: guyw@multiline.com.au (Guy Worthington)
Subject: Re: suggested revisions for the Posting Guidelines
Message-Id: <uiswtijoh.fsf@multiline.com.au>
Guy Worthington wrote
> I think it's important, if you're going to teach someone a life lesson
> (such as the way they communicate), that it be done with humour. You
> threw me when you said Godzilla wrote the original piece. I've only
> seen her swaggering around with her plumes at full display. And yet
> when I had no idea who wrote the paragraph I can see a wit and
> generosity in her writing.
Please mentally edit the above paragraph -- I've mixed tenses, which
makes it ugly and unpleasant to read. It just goes to show that even
your critics are human.
------------------------------
Date: Sun, 12 Jan 2003 20:04:53 -0600
From: "Brett" <bbsouth@bellsouth.net>
Subject: Suggestions for counter
Message-Id: <kVoU9.8477$WT3.6813@news.bellsouth.net>
I've tried a few different counters but can't find one that is easy to
setup. I'd like one that is less than 50k on the webpage, easy to setup and
doesn't require going out to get various modules, such as FLY. I'm not very
Perl savy but can setup a counter if it doesn't require compiling additional
modules (FLY). Does any one have suggestions on a webpage counter that is
self contained? Meaning, a small program that includes all the files
necessary to run in either .cgi or .pl format.
I almost got this one giong:
http://www.muquit.com/muquit/software/Count/Count.html. It is running on my
local machine with Win2k Pro and IIS5. For some reason, I get a file not
found on the remote machine running Win2k Server. I rename the executable
from count.exe to count.old and the browser tries to download it. That
verifies the file is there. Something is wrong with permissions probably but
I can't figure it out. IIS has executable on the cgi-bin folder and in
Windows Explorer has IUSER with executable on the cgi-bin folder.
If some one could make suggestions on how I can get Count running, I'd be
thrilled. The count.exe file is 100k so I'd rather find something smaller
but would like to know why Count doesn't work.
Running:
Win2k Server
IIS5
Thanks,
Brett
------------------------------
Date: Mon, 13 Jan 2003 08:21:11 +0100
From: Koos Pol <koos_pol@NO.nl.JUNK.compuware.MAIL.com>
Subject: Re: Suggestions for counter
Message-Id: <newscache$br5n8h$qv8$1@news.emea.compuware.com>
Brett wrote (Monday 13 January 2003 03:04):
> I've tried a few different counters but can't find one that is easy to
> setup.
...
The web counter syndrome is discussed in perlfaq5.
HTH
--
KP
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 4392
***************************************
