[22842] in Perl-Users-Digest
Perl-Users Digest, Issue: 5063 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri May 30 11:06:01 2003
Date: Fri, 30 May 2003 08:05:08 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 30 May 2003 Volume: 10 Number: 5063
Today's topics:
Re: Comments/Help on Ring Element Id Subroutine? (Sam Holden)
Re: DBI, Error Handling, and accepted programming pract <roman@sky.lviv.ua>
Re: Expanding a newcommand in latex (OT) <bik.mido@tiscalinet.it>
Extraction from Microsoft Outlook (Kevin Su)
Re: Form script changes (Steve)
Re: Help: Use of uninitialized value In Subroutine (?ha <g4rry_short@zw4llet.com>
Re: Help: Use of uninitialized value In Subroutine (?ha (Sam Holden)
Re: How to get current URL from CGI-Perl program? - Apa <flavell@mail.cern.ch>
scanning logfiles (shadow)
Re: Tempopary files on Win32 <roman@sky.lviv.ua>
USEFULL information about uploading (at least for me) : <roman@sky.lviv.ua>
Re: variable for current line number (of script) <ericw@nospam.ku.edu>
Re: variable for current line number (of script) (Sam Holden)
Re: variable for current line number (of script) (Tad McClellan)
Re: variable for current line number (of script) <uri@stemsystems.com>
Re: Want to call a counter. <roman@sky.lviv.ua>
Re: Want to call a counter. <jurgenex@hotmail.com>
Re: Want to call a counter. <tassilo.parseval@rwth-aachen.de>
Re: Want to call a counter. <jurgenex@hotmail.com>
Re: Want to call a counter. <noreply@gunnar.cc>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 30 May 2003 10:30:59 GMT
From: sholden@flexal.cs.usyd.edu.au (Sam Holden)
Subject: Re: Comments/Help on Ring Element Id Subroutine?
Message-Id: <slrnbdecn3.sea.sholden@flexal.cs.usyd.edu.au>
On Fri, 30 May 2003 04:25:10 -0500, ent123 <email_entropy123@yahoo.com> wrote:
> Ok,
[snip code and data]
That code isn't good enough, I can't copy and paste and run it.
I took a guess and tried using %graphs as %ehash and @plus_degree as
qw/C1 C2 C3 C4 C5 C6 C7/. But the code didn't produce any output.
--
Sam Holden
------------------------------
Date: Fri, 30 May 2003 14:58:35 +0300
From: "Roman Khutkyy" <roman@sky.lviv.ua>
Subject: Re: DBI, Error Handling, and accepted programming practices
Message-Id: <bb7h0f$44r$1@news.uar.net>
As fo second question:
if you will be use 'die' operator in operations whis DBI objects use next
pragma:
use CGI::Carp qw(fatalsToBrowser carpout);
and you'll get all erorr messages into web browser.
------------------------------
Date: Fri, 30 May 2003 16:05:41 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Expanding a newcommand in latex (OT)
Message-Id: <l6medv4er52uqkqrmku88gqbc8skdaq0u2@4ax.com>
On 28 May 2003 16:55:35 GMT, randy@theoryx5.uwinnipeg.ca (Randy Kobes)
wrote:
>This is getting off topic, but there are a few
>legitimate reasons to want to expand \newcommand:
>
>- some latex to xxx converters don't handle \newcommand
>directives well, but work just fine when these are expanded;
>
>- some journals which accept LaTeX submissions, for their
>own reasons, have a policy of not wanting \newcommand
>definitions in the file (this may be related to the previous
>reason).
OK, this makes some sense... however: for the former objection I have
no direct experience, but if those "converters" can't handle
\newcommand properly, then it is perfectly reasonable to assume that
they won't work reliably with most pacakges/styles (other than "core"
ones) too, so their use should be very limited in any case.
As far as the second objection is concerned, you're right, that's the
sad truth. But IMHO it is fundamentally a matter of *braindead*
policy: LaTeX files are made to be processed by LaTeX and LaTeX's
\newcommand is a powerful mechanism to keep the source clean and clear
with flexibility but without the "risks" of the underlying TeX
primitives.
>- some people prefer not to have \newcommands, so that
>copying blocks of LaTeX code from one document to another
>is easier.
Shame on them! :-) They should learn how to put their \newcommands in
a separate package or class instead: that's what they are made for and
there's not much to learn too...
Michele
--
$\=q.,.,$_=q.print' ,\g,,( w,a'c'e'h,,map{$_-=qif/g/;chr
}107..q[..117,q)[map+hex,split//,join' ,2B,, w$ECDF078D3'
F9'5F3014$,$,];];$\.=$/,s,q,32,g,s,g,112,g,y,' , q,,eval;
------------------------------
Date: 30 May 2003 07:50:33 -0700
From: ksu@amaranthllc.com (Kevin Su)
Subject: Extraction from Microsoft Outlook
Message-Id: <5dd555c5.0305300650.7ee27a8@posting.google.com>
Hi, I am a newbie to Perl so if I sound stupid forgive me.
How do you extract information from a folder within Microsoft Outlook,
run a script on it to organize the information, and place the newly
organized info into say Excel, or Microsoft Access
------------------------------
Date: 30 May 2003 07:36:24 -0700
From: techadmin@shaw.ca (Steve)
Subject: Re: Form script changes
Message-Id: <2e27f51a.0305300636.552a7a2e@posting.google.com>
John Strauss <john.thetenant-s@moving-picture.com> wrote in message news:<20030530104517.1bfcc10e.john.thetenant-s@moving-picture.com>...
> On 29 May 2003 14:36:37 -0700
> techadmin@shaw.ca (Steve) wrote:
> > John Strauss <john.thetenant-s@moving-picture.com> wrote in message news:<20030529170640.27025d13.john.thetenant-s@moving-picture.com>...
> > > On 29 May 2003 08:39:03 -0700
> > > techadmin@shaw.ca (Steve) wrote:
> > > >
> > > > I have a simple perl script running to process form input (bnbform
> > > > version 4.0?)(The forms are all html). Right now the form returns all
> > > > the values that are available on the form in the form of a list, a=,
> > > > b=, c=. If you enter into the form the value for a as ABC then you
> > > > reveive, a=abc,b=,c= etc. I would like to recode it so that the only
> > > > values returned are those input values used. so in fact b= and c=,
> > > > would not show in the e-amil as there was no input value assigned. I
> > > > hope this all makes sence.
> > > > My knowledge of perl is limited to none but follow instruction well.
> > >
> > > replace
> > > @pairs=split(/&/,$temp);
> > >
> > > with
> > > @pairs=grep(/=.+/,split(/&/,$temp));
> > >
> > >
> > >
> > > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> > > drop the .thetenant to get me via mail
> >
> > Sorry but after making both of these changes it does not do as
> > intended i still receive all entries filled or not.
> >
> > Any ideas? do you wish to see the code? It big as you know.
> >
> > Thanks, Steve
> >
> >
>
> (note: please don't top-post. i've rearrainged your post accordingly.)
>
> bnbform wants you to register your data fields in the
> data_order hidden field on your form. it populates
> @sortlist from the $content of the data_order $key.
> bnbform uses @sortlist in the "thank you" page and
> in the email. you want to remove items from @sortlist
> which had no content. bnbform also populates %fields,
> which you can use to wrangle @sortlist.
>
> drop all previous suggestions; none will do what you need.
> instead, after this block:
> foreach $item(@pairs) {
> ...
> }
>
> add this line:
> @sortlist = grep ($fields{$_} ne '', @sortlist);
>
>
>
>
>
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> drop the .thetenant to get me via mail
Sorry about the top posting, getting lazy in my old age.
Thanks, the new code worked perfectly.
Steve,
------------------------------
Date: Fri, 30 May 2003 11:32:18 +0000
From: Garry Short <g4rry_short@zw4llet.com>
Subject: Re: Help: Use of uninitialized value In Subroutine (?hash)
Message-Id: <bb7c38$cqb$1$830fa79d@news.demon.co.uk>
entropy123 wrote:
> Hey All,
>
> A while back Sam Holden was nice enough to post a piece of code which
> I am sorry to say I don't quite know how to use. As I try solve the
> "Find the elements in the cycle" problem in my own inimical way I
> return again and again to this subroutine...I get this "use of
> uninitialized value in string" error message which I can't seem to
> lick and my usenet/CPAN searches yield zilch.
>
> I can't figure out why, but the error occurs in the logical statement
> I've ^^^^ under.
>
> Any help is much appreciated...
>
> entropy
>
>
>
> sub dfs {
> my $graph = shift;
> my $result;
> foreach $source (keys %$graph) {
> $result = dfs_visit($graph, $source, undef, {}, {}) ||
> $result
> unless defined $colour{$source};
> }
> return $result;
> }
>
> sub dfs_visit {
> my ($graph, $source, $parent, $colour, $parents) = @_;
> my $result;
> $colour{$source} = 'grey';
> $parents->{$source} = $parent;
>
> foreach $dest (keys %{$graph->{$source}}) {
> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^Error seems to be
> here
> if ($colour{$dest} eq 'grey') {
> $result = 1;
> my $node = $source;
> print "Cycle: $dest";
> while ($node ne $dest) {
> print " <- $node";
> $node = $parents->{$node};
> }
> print " <- $dest\n";
> } elsif (!defined $colour{$dest}) {
> $parents->{$dest} = $source;
> $result = dfs_visit($graph, $dest, $source,
> $colour, $parents) || $result;
> }
> }
> $colour{$source} = 'black';
> return $result;
> }
>
>
> # H - O - H
> my %graph1 = ( 'H1' => {'O'=>1}, 'H2' => {'O'=>1}, 'O' => {});
>
> # H H H H
> # | | | |
> # C - C - C - C - C
> # \ / \ /
> # C C
> # | |
> # H H
> my %graph2 = ( C1=>{H1=>1, C2=>1}, C2=>{H2=>1, C3=>1},
> C3=>{H3=>1, C1=>1, C4=>1}, C4=>{C5=>1}, C5=>{H4=>1, C6=>1},
> C6=>{H5=>1,C7=>1}, C7=>{H6=>1, C5=>1});
>
> if (dfs(\%graph1)) {
> print "Graph 1 has a cycle\n";
> }
>
> if (dfs(\%graph2)) {
> print "Graph 2 has a cycle\n";
> }
Entropy,
The errors are being generated whenever $colour($dest) is undefined, and
it's actually happening in the line below where you thought it was.
If you swap the if loop around, so that it reads
if (!defined $colour{$dest}) {
.....
} elsif ($colour{$dest} eq 'grey') {
.....
}
the problem goes away. This is because you're now checking to see whether
it's defined, then comparing it to a string. At the moment, you're
comparing it to a value, then looking to see if it's defined.
HTH,
Garry
------------------------------
Date: 30 May 2003 11:57:03 GMT
From: sholden@flexal.cs.usyd.edu.au (Sam Holden)
Subject: Re: Help: Use of uninitialized value In Subroutine (?hash)
Message-Id: <slrnbdehof.sea.sholden@flexal.cs.usyd.edu.au>
On Fri, 30 May 2003 11:32:18 +0000, Garry Short <g4rry_short@zw4llet.com> wrote:
[snip my non-warnings proof code]
>
> The errors are being generated whenever $colour($dest) is undefined, and
> it's actually happening in the line below where you thought it was.
>
> If you swap the if loop around, so that it reads
> if (!defined $colour{$dest}) {
> .....
> } elsif ($colour{$dest} eq 'grey') {
> .....
> }
> the problem goes away. This is because you're now checking to see whether
> it's defined, then comparing it to a string. At the moment, you're
> comparing it to a value, then looking to see if it's defined.
Mea culpa. I obviously only tested with no warnings enabled.
I copied it from some existing DFS code I had, which wasn't in perl and
hence had explicit initialisation (and used an enum not a string and an
undef).
--
Sam Holden
------------------------------
Date: Fri, 30 May 2003 11:50:50 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: How to get current URL from CGI-Perl program? - Apache
Message-Id: <Pine.LNX.4.53.0305301144300.15546@lxplus086.cern.ch>
On Fri, May 29, Andres Monroy-Hernandez top-posted with fullquote:
> you can read the HTTP headers to build the URL.
You can build _some_ URL from the parts, indeed...
> One way to do it is by concatenating $ENV{HTTP_HOST} with $ENV{REQUEST_URI}.
But within the CGI script, you can't guarantee that will be the exact
URL that was retrieved by the client. There may be other factors
involved.
That's why I said that we need to know more about why the questioner
thinks they need this.
------------------------------
Date: 30 May 2003 07:53:25 -0700
From: the_second_shadow@yahoo.com (shadow)
Subject: scanning logfiles
Message-Id: <17a3c250.0305300653.7c2256e2@posting.google.com>
Hi
I'm pretty new to perl and have to write a script which scans the new
entries (since the last scan)in logfiles for a provided pattern. If
this pattern is found it should alert a user via email.
It would be great if anyone has an already existing script which can
do the job so i could have a look at it and learn something. If not
can anyone give me some advice on how I should solve this ?
thanks a lot in advance.
------------------------------
Date: Fri, 30 May 2003 14:27:12 +0300
From: "Roman Khutkyy" <roman@sky.lviv.ua>
Subject: Re: Tempopary files on Win32
Message-Id: <bb7f5j$37v$1@news.uar.net>
Yesterday i wrote:
--------------------------------
-1. During uploading files from user mashine (thruough browser form) to
-server Perl creates temporary files in C:\Temp directory (CGItemp****) and
-does not delete them after aploading finished. How to make Perl clean after
-itself.
-2. I'm trying to read those files like this:
- $filename=$query->param('filename');
- open (INFILE,"<$filename");
- binmode(INFILE);
-But this method works only if load files from IE browser (from this browser
-returned parameter of filefield includes full file name including path).
Any
-other browser (Opera, Mozilla) returns only filename without path, and
-result of reading in this case is empty file. Is there any method to read
-from TEMP file or to make Perl to read downloaded files as STDIN (it must
be
-so but it doesn't)
--------------------------------------------
and i've got the answer from Craig Manley (many thanks to him). But his
reply included the mistake, he proposed to create the filehandle like this:
$filehande=$query->upload('param'). But CGI module does not include method
"upload" and does not allows pragma "- upload". BUT THIS WAS AN IDEA. And
that what i made before doesn't described in any book!!! I SHOULND'T
CREATE FILEHANLE FROM PARAMETER of uploaded file - this parameter is the
real filehandle!!!! And after i've edited code:
$filename=$query->param('filename');
binmode($filename);
everything became as it had to. Any browser loads files to server and Perl
cleans temporary files after itself. Thanks to Craig one more. Thanks to
newsgroup. You are all COOOOOOOL.
------------------------------
Date: Fri, 30 May 2003 14:26:55 +0300
From: "Roman Khutkyy" <roman@sky.lviv.ua>
Subject: USEFULL information about uploading (at least for me) :)
Message-Id: <bb7f53$37r$1@news.uar.net>
Yesterday i wrote:
--------------------------------
-1. During uploading files from user mashine (thruough browser form) to
-server Perl creates temporary files in C:\Temp directory (CGItemp****) and
-does not delete them after aploading finished. How to make Perl clean after
-itself.
-2. I'm trying to read those files like this:
- $filename=$query->param('filename');
- open (INFILE,"<$filename");
- binmode(INFILE);
-But this method works only if load files from IE browser (from this browser
-returned parameter of filefield includes full file name including path).
Any
-other browser (Opera, Mozilla) returns only filename without path, and
-result of reading in this case is empty file. Is there any method to read
-from TEMP file or to make Perl to read downloaded files as STDIN (it must
be
-so but it doesn't)
--------------------------------------------
and i've got the answer from Craig Manley (many thanks to him). But his
reply included the mistake, he proposed to create the filehandle like this:
$filehande=$query->upload('param'). But CGI module does not include method
"upload" and does not allows pragma "- upload". BUT THIS WAS AN IDEA. And
that what i made before doesn't described in any book!!! I SHOULND'T
CREATE FILEHANLE FROM PARAMETER of uploaded file - this parameter is the
real filehandle!!!! And after i've edited code:
$filename=$query->param('filename');
binmode($filename);
everything became as it had to. Any browser loads files to server and Perl
cleans temporary files after itself. Thanks to Craig one more. Thanks to
newsgroup. You are all COOOOOOOL.
------------------------------
Date: Fri, 30 May 2003 11:05:55 GMT
From: Eric Wilhelm <ericw@nospam.ku.edu>
Subject: Re: variable for current line number (of script)
Message-Id: <pan.2003.05.30.06.02.50.948136.10576@nospam.ku.edu>
On Fri, 30 May 2003 01:04:32 -0500, Sam Holden wrote:
> My documentation for warn has at the very first sentence:
>
> Produces a message on STDERR just like "die", but doesn't exit or
> throw an exception.
>
> So if you want to know what the message is you need to read the "die"
> documentation since it will do whatever it says (minus the exit or
> exeption).
>
Sorry, I guess I was expecting a more formal cross-reference than "just
like". I should probably know better:)
So, this takes me to:
If the value of EXPR does not end in a newline, the current script line
number and input line number (if any) are also printed, and a newline is
supplied. Note that the ``input line number'' (also known as ``chunk'')
is subject to whatever notion of ``line'' happens to be currently in
effect, and is also available as the special variable "$.". See the
section on "$/" in the perlvar manpage and the section on "$." in the
perlvar manpage.
And now I'm back in this loop because perlvar says:
$.
The current input record number for the last file handle from which you
just read() (or called a "seek" or "tell" on). The value may be different
from the actual physical line number in the file, depending on what
notion of ``line'' is in effect - see "$/" on how to change that. An
explicit close on a filehandle resets the line number. Because "<>" never
does an explicit close, line numbers increase across ARGV files (but see
examples in the eof entry in the perlfunc manpage). Consider this
variable read-only: setting it does not reposition the seek pointer;
you'll have to do that on your own. Localizing "$." has the effect of
also localizing Perl's notion of ``the last read filehandle''. (Mnemonic:
many programs use ``.'' to mean the current line number.)
And as far as I can tell, the $. does exactly what perlvar says it does
and __LINE__ does exactly what perlfunc's die entry says $. does (and
__LINE__ isn't found in perlvar.)
While rtfm is a valid complaint, initfm is too.
--Eric
------------------------------
Date: 30 May 2003 11:48:24 GMT
From: sholden@flexal.cs.usyd.edu.au (Sam Holden)
Subject: Re: variable for current line number (of script)
Message-Id: <slrnbdeh87.sea.sholden@flexal.cs.usyd.edu.au>
On Fri, 30 May 2003 11:05:55 GMT, Eric Wilhelm <ericw@nospam.ku.edu> wrote:
> On Fri, 30 May 2003 01:04:32 -0500, Sam Holden wrote:
>
>> My documentation for warn has at the very first sentence:
>>
>> Produces a message on STDERR just like "die", but doesn't exit or
>> throw an exception.
>>
>> So if you want to know what the message is you need to read the "die"
>> documentation since it will do whatever it says (minus the exit or
>> exeption).
>>
> Sorry, I guess I was expecting a more formal cross-reference than "just
> like". I should probably know better:)
Probably.
>
> So, this takes me to:
> If the value of EXPR does not end in a newline, the current script line
> number and input line number (if any) are also printed, and a newline is
> supplied. Note that the ``input line number'' (also known as ``chunk'')
> is subject to whatever notion of ``line'' happens to be currently in
> effect, and is also available as the special variable "$.". See the
> section on "$/" in the perlvar manpage and the section on "$." in the
> perlvar manpage.
>
> And now I'm back in this loop because perlvar says:
>
> $.
> The current input record number for the last file handle from which you
> just read() (or called a "seek" or "tell" on). The value may be different
> from the actual physical line number in the file, depending on what
> notion of ``line'' is in effect - see "$/" on how to change that. An
> explicit close on a filehandle resets the line number. Because "<>" never
> does an explicit close, line numbers increase across ARGV files (but see
> examples in the eof entry in the perlfunc manpage). Consider this
> variable read-only: setting it does not reposition the seek pointer;
> you'll have to do that on your own. Localizing "$." has the effect of
> also localizing Perl's notion of ``the last read filehandle''. (Mnemonic:
> many programs use ``.'' to mean the current line number.)
>
>
> And as far as I can tell, the $. does exactly what perlvar says it does
> and __LINE__ does exactly what perlfunc's die entry says $. does (and
> __LINE__ isn't found in perlvar.)
No __LINE__ does the "script line number" bit, the "input line number" is
seperate and is $..
See the difference in output between:
perl -e '<>;warn'
perl -e warn
> While rtfm is a valid complaint, initfm is too.
__LINE__ and __FILE__ and __DATA__ and __END__ are not variables and hence
I wouldn't expect them to be in perlvar.
__LINE__ and __FILE__ are sufficiently black magic to not need explicit
mentioning in my opinion. They are used in some examples and are the same as
the C macros so for those who need them they are simple enough to work out.
--
Sam Holden
------------------------------
Date: Fri, 30 May 2003 07:13:38 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: variable for current line number (of script)
Message-Id: <slrnbdeini.2sh.tadmc@magna.augustmail.com>
Eric Wilhelm <ericw@nospam.ku.edu> wrote:
> __LINE__ isn't found in perlvar.
Because it is not a variable. :-)
The __LINE__ token is in the "Scalar value constructors" section of:
perldoc perldata
The #line directive is in the "Plain Old Comments (Not!)" section of:
perldoc perlsyn
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 30 May 2003 13:31:00 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: variable for current line number (of script)
Message-Id: <x7he7cblyj.fsf@mail.sysarch.com>
>>>>> "EW" == Eric Wilhelm <ericw@nospam.ku.edu> writes:
EW> I've since spent another ten minutes reading, and apparently you
EW> have better docs than I do, since my perldoc -f warn is about a
EW> page long and refers to a bunch of other docs on %SIG and carp and
EW> such. It would be great to know that this is a known feature, but
EW> where tfitfm is it? I cannot find it in perlfunc, perlvar, or
EW> Carp, and Carp even implies that, unlike warn(), it reports where
EW> in the code the error was called from.
perldoc -f die
warn says it prints message like 'die'.
EW> Funny also that I didn't find __LINE__ in perlvar, since that is the
EW> thing I had been looking for in the first place.
__LINE__ is not a variable but a literal as it must be a separate token
the compiler sees. it is covered in perldata which covers all of perl's
literal values. but if you can't figure out where something is, then
grep the pods just like i did. perldoc.com can't find that token it
seems.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Fri, 30 May 2003 14:38:48 +0300
From: "Roman Khutkyy" <roman@sky.lviv.ua>
Subject: Re: Want to call a counter.
Message-Id: <bb7frb$3ic$1@news.uar.net>
I had the same problem.
The matter is when you open the filehandle like this:
open (OUTFILE, '>$pathtofile')
yo most probably point path like ralative to site.
For example: yor counter is in 'counter' directory of site root and
your script is in 'cgi-bin' directory.
You make it like this:
open (OUTFILE, '>/counter/count.txt').
And it's wrong! You should poin the path relative to script location:
open (OUTFILE, '>../counter/counter.txt')
That's it. It works.
------------------------------
Date: Fri, 30 May 2003 12:05:43 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Want to call a counter.
Message-Id: <rOHBa.10652$da1.6089@nwrddc03.gnilink.net>
Joe Creaney wrote:
> I wrote a counter in perl but I can't access it from my page. I can
> only run the counter if I put the cgi location from my browser. I
> have seen an example in a book but it dosnt work.
You know about
perldoc -q increment
don't you?
jue
------------------------------
Date: 30 May 2003 12:25:39 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: Want to call a counter.
Message-Id: <bb7ik3$ppq$1@nets3.rz.RWTH-Aachen.DE>
Also sprach Jürgen Exner:
> Joe Creaney wrote:
>> I wrote a counter in perl but I can't access it from my page. I can
>> only run the counter if I put the cgi location from my browser. I
>> have seen an example in a book but it dosnt work.
>
> You know about
> perldoc -q increment
> don't you?
Since the question is off-topic here, this mentioned FAQ wont help
either.
BTW: I think the word 'counter' should show up in the FAQ-title besides
'increment'.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Fri, 30 May 2003 12:58:55 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Want to call a counter.
Message-Id: <jAIBa.4644$iT.3824@nwrddc04.gnilink.net>
Tassilo v. Parseval wrote:
> Also sprach Jürgen Exner:
>
>> Joe Creaney wrote:
>>> I wrote a counter in perl but I can't access it from my page. I can
>>> only run the counter if I put the cgi location from my browser. I
>>> have seen an example in a book but it dosnt work.
>>
>> You know about
>> perldoc -q increment
>> don't you?
>
> Since the question is off-topic here, this mentioned FAQ wont help
> either.
Well, the first paragraph of the answer still applies, even if the OPs
questions has nothing to do with file locking in Perl.
> BTW: I think the word 'counter' should show up in the FAQ-title
> besides 'increment'.
I second that!
jue
------------------------------
Date: Fri, 30 May 2003 14:50:23 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Want to call a counter.
Message-Id: <bb7l2h$6p1bc$1@ID-184292.news.dfncis.de>
Joe Creaney wrote:
> I wrote a counter in perl but I can't access it from my page. I
> can only run the counter if I put the cgi location from my browser.
> I have seen an example in a book but it dosnt work.
It sounds to me as if you have trouble making use of SSI (which is not
Perl). Try this page: http://my.execpc.com/~keithp/bdlogcgi.htm
/ Gunnar
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
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 5063
***************************************
