[21859] in Perl-Users-Digest
Perl-Users Digest, Issue: 4063 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 4 11:07:23 2002
Date: Mon, 4 Nov 2002 08:05:09 -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, 4 Nov 2002 Volume: 10 Number: 4063
Today's topics:
Chart creation <mgauf@yahoo.com>
Re: Chart creation <d.adamkiewicz@i7.com.pl>
don't understand use strict; <md0nilhe@mdstud.DIESPAMchalmers.se>
Embedding perl in shared object. (=?iso-8859-1?q?M=E5ns_Rullg=E5rd?=)
how can I cause select->can_write to be false ? (Eran Amzallag)
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Perl -e "print qq! Tips and Tricks !" <bart.lateur@pandora.be>
Perl and large text files <jarkko.rantamaki@edu.stadia.no.spam.fi>
Re: Perl and large text files <perl-dvd@ldschat.com>
Re: Perl and large text files (Helgi Briem)
Re: Perl question.... <nobody@dev.null>
Re: Perl question.... <bernard.el-hagin@DODGE_THISlido-tech.net>
Perl script not writing under cron (BoogedyBoogedy)
Re: Perl script not writing under cron <tony_curtis32@yahoo.com>
Re: Perl script not writing under cron <rev_1318@hotmail.com>
Re: Perl script not writing under cron <trammell+usenet@hypersloth.invalid>
Re: Perl script not writing under cron <dover@nortelnetworks.com>
Re: Search for a string while in PerlDoc? (jim ryan)
Re: Search for a string while in PerlDoc? <r_cross@_nospam_hotmail.com>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: What port number is used when using POST <bart.lateur@pandora.be>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 04 Nov 2002 14:49:09 GMT
From: Michael Gauf <mgauf@yahoo.com>
Subject: Chart creation
Message-Id: <3DC68A36.28A0DDA3@yahoo.com>
Can anyone sugvest any perl software that can create line charts on the
fly, based on data inside a MySQL database? The line chart would have to
hold many different types of data. The software could be freeware,
shareware,or perhaps a tutorial. Thanks for your assistance.
Michael Gauf
------------------------------
Date: Mon, 04 Nov 2002 16:16:27 +0100
From: Darek Adamkiewicz <d.adamkiewicz@i7.com.pl>
Subject: Re: Chart creation
Message-Id: <3DC68F4B.2060007@i7.com.pl>
Michael Gauf wrote:
> Can anyone sugvest any perl software that can create line charts on the
> fly, based on data inside a MySQL database? The line chart would have to
> hold many different types of data. The software could be freeware,
> shareware,or perhaps a tutorial. Thanks for your assistance.
>
> Michael Gauf
Check this:
http://turnerville.virtualave.net/gdcharts.html
Regards
Darek
------------------------------
Date: Mon, 04 Nov 2002 15:58:19 +0100
From: henrik nilsson <md0nilhe@mdstud.DIESPAMchalmers.se>
Subject: don't understand use strict;
Message-Id: <3DC68B0B.50606@mdstud.DIESPAMchalmers.se>
hello
i'm having problems with the "use strict;" option; even trivial scripts
like the one below returns error messages like
Global symbol "@err" requires explicit package name at test.pl line 5.
Global symbol "$olle" requires explicit package name at test.pl line 7.
why? isn't "$olle=1;" a valid declaration?
#/usr/bin/perl -w
use strict;
$err[0]="gulle was a good farmer";
$err[1]="and he had five sons";
$olle = 1;
if ($olle == "1") {
print "\n", @err, "\n"; }
exit;
thanks,
henrik
------------------------------
Date: 04 Nov 2002 13:57:03 +0100
From: mru@users.sourceforge.net (=?iso-8859-1?q?M=E5ns_Rullg=E5rd?=)
Subject: Embedding perl in shared object.
Message-Id: <yw1xadkp1oio.fsf@gladiusit.e.kth.se>
I need to link a shared library that will be loaded with dlopen() with
libperl.so. I also need Dynaloader. Now, since Dynaloader is
normally compiled statically only, I can't link it with my shared
library. Is there a recommended way to do this?
--
Måns Rullgård
mru@users.sf.net
------------------------------
Date: 4 Nov 2002 05:21:28 -0800
From: eamzallag@ndsisrael.com (Eran Amzallag)
Subject: how can I cause select->can_write to be false ?
Message-Id: <25705e2e.0211040521.309854da@posting.google.com>
Hi everybody,
I would like to be a TCP listener and to manipulate my clients (those
I have after accept() ) in a way that I will control their results
every time they will run over select->can_write command.
I would like to be able to control their result from the select
command by create a state or set an option telling all my clients that
it is unable (or able) to send me msgs threw the connection.
I have tried the setsockopt using the SO_RCVBUF to create small
receive buffer but without any success.
setsockopt ($client, SOL_SOCKET, SO_RCVBUF, 0);
I have also tried to use shutdown but again without any success.
shutdown ($client, SHUT_RDWR) || warn "Shutdown
problem\n";
do you have any idea?
------------------------------
Date: Mon, 04 Nov 2002 13:08:59 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <uscsbboif2ujdd@corp.supernews.com>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 28 Oct 2002 13:16:28 GMT and ending at
04 Nov 2002 11:39:31 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 2002 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 83 (35.6% of all posters)
Articles: 120 (20.9% of all articles)
Volume generated: 202.7 kb (19.4% of total volume)
- headers: 94.6 kb (1,933 lines)
- bodies: 106.3 kb (3,540 lines)
- original: 75.4 kb (2,592 lines)
- signatures: 1.6 kb (45 lines)
Original Content Rating: 0.709
Averages
========
Posts per poster: 1.4
median: 1 post
mode: 1 post - 56 posters
s: 1.1 posts
Message size: 1729.4 bytes
- header: 807.1 bytes (16.1 lines)
- body: 907.4 bytes (29.5 lines)
- original: 643.4 bytes (21.6 lines)
- signature: 13.9 bytes (0.4 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
4 9.8 ( 3.0/ 6.8/ 6.3) HealYourChurchWebsite <healthychurchwebsite@yahoo.com>
3 5.0 ( 1.7/ 3.0/ 1.7) claird@phaseit.net
3 3.7 ( 2.0/ 1.7/ 1.3) "Chris Harris" <chris.harris@cwfi.co.fk>
3 7.4 ( 2.5/ 4.9/ 2.9) "Bill zhao" <zhaoq@onelink.com.cn>
3 6.7 ( 3.1/ 3.6/ 3.0) "El Senor" <ilovebritishbeef@yahoo.com>
3 4.9 ( 2.3/ 2.6/ 2.1) Johnny Lim <jlim30@hotmail.com>
3 5.8 ( 2.9/ 2.9/ 0.9) "Luther Barnum" <Spam_Sucks@rr.com>
3 5.1 ( 2.2/ 2.9/ 1.0) Prashant Varghese <pv79@ddsl.net>
3 3.4 ( 2.1/ 1.3/ 0.5) Grant <tonearm@email.com>
2 1.8 ( 1.4/ 0.4/ 0.4) SlimClity <slimclity@hotmail.com>
These posters accounted for 5.2% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
9.8 ( 3.0/ 6.8/ 6.3) 4 HealYourChurchWebsite <healthychurchwebsite@yahoo.com>
7.4 ( 2.5/ 4.9/ 2.9) 3 "Bill zhao" <zhaoq@onelink.com.cn>
7.1 ( 1.5/ 5.5/ 5.0) 2 P.J Douillard <pjdouillard@snclavalin.com>
6.7 ( 3.1/ 3.6/ 3.0) 3 "El Senor" <ilovebritishbeef@yahoo.com>
5.8 ( 2.9/ 2.9/ 0.9) 3 "Luther Barnum" <Spam_Sucks@rr.com>
5.1 ( 2.2/ 2.9/ 1.0) 3 Prashant Varghese <pv79@ddsl.net>
5.1 ( 1.5/ 3.6/ 2.3) 2 David E. Shapiro <david.shapiro@bti.com>
5.0 ( 1.7/ 3.0/ 1.7) 3 claird@phaseit.net
4.9 ( 2.3/ 2.6/ 2.1) 3 Johnny Lim <jlim30@hotmail.com>
4.5 ( 1.9/ 2.6/ 1.7) 2 "Kasp" <kaspXXX@epatra.com>
These posters accounted for 5.9% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.932 ( 6.3 / 6.8) 4 HealYourChurchWebsite <healthychurchwebsite@yahoo.com>
0.838 ( 3.0 / 3.6) 3 "El Senor" <ilovebritishbeef@yahoo.com>
0.805 ( 2.1 / 2.6) 3 Johnny Lim <jlim30@hotmail.com>
0.746 ( 1.3 / 1.7) 3 "Chris Harris" <chris.harris@cwfi.co.fk>
0.581 ( 2.9 / 4.9) 3 "Bill zhao" <zhaoq@onelink.com.cn>
0.574 ( 1.7 / 3.0) 3 claird@phaseit.net
0.414 ( 0.5 / 1.3) 3 Grant <tonearm@email.com>
0.358 ( 1.0 / 2.9) 3 Prashant Varghese <pv79@ddsl.net>
0.307 ( 0.9 / 2.9) 3 "Luther Barnum" <Spam_Sucks@rr.com>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.932 ( 6.3 / 6.8) 4 HealYourChurchWebsite <healthychurchwebsite@yahoo.com>
0.838 ( 3.0 / 3.6) 3 "El Senor" <ilovebritishbeef@yahoo.com>
0.805 ( 2.1 / 2.6) 3 Johnny Lim <jlim30@hotmail.com>
0.746 ( 1.3 / 1.7) 3 "Chris Harris" <chris.harris@cwfi.co.fk>
0.581 ( 2.9 / 4.9) 3 "Bill zhao" <zhaoq@onelink.com.cn>
0.574 ( 1.7 / 3.0) 3 claird@phaseit.net
0.414 ( 0.5 / 1.3) 3 Grant <tonearm@email.com>
0.358 ( 1.0 / 2.9) 3 Prashant Varghese <pv79@ddsl.net>
0.307 ( 0.9 / 2.9) 3 "Luther Barnum" <Spam_Sucks@rr.com>
9 posters (10%) had at least three posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
5 linux.redhat.devel
5 comp.lang.python
1 nl.comp.os.linux.overig
1 news.answers
1 nl.announce
1 nl.internet.www.server-side
1 nl.comp.programmeren
1 nl.comp.os.ms-windows
1 mailing.database.mysql
1 comp.lang.perl.modules
Top 10 Crossposters
===================
Articles Address
-------- -------
1 claird@phaseit.net
1 Jalab <jalab2010@yahoo.com>
1 "Stoone" <benew666@hotmail.com>
1 "Raymond Hettinger" <python@rcn.com>
1 Erik Max Francis <max@alcyone.com>
1 =?ISO-8859-1?Q?Magnus_Lyck=E5?= <magnus@thinkware.se>
1 Sri Shivananda <srishivananda@yahoo.com>
0 Chris Milkosky <cmilkosk@comcast.net>
0 Kasp <kasp@epatra.com>
0 "El Senor" <ilovebritishbeef@yahoo.com>
------------------------------
Date: Mon, 04 Nov 2002 11:39:31 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: Perl -e "print qq! Tips and Tricks !"
Message-Id: <e2mcsu87he49bt0hl3doka39d8rmmf8mn7@4ax.com>
zzapper wrote:
>I 've found that JAPH using perl -e seem to be terribly sensitive to
>whether you use single or double quotes, it seems as though that
>affects how the shell passes information to the perl interpreter. Can
>you explain?
Yup. You got it.
On Unixy systems, the shell wants single quotes around the code, with a
chance to escape some; Windows requires double quotes and I have my
doubts if you have a chance to escape them. Oh well, you can always use
q{} and qq{}. On simple sequences, you might not even need any quotes,
as long as the shell leaves your string alone.
Feel free to experiment. For example, a simple script like
#!perl -l
print for @ARGV;
allows you to play with command line escaping and see what perl gets,
one line per argument. Yes you can make a one liner of it:
perl -le'print for @ARGV' 'string to quote'
--
Bart.
------------------------------
Date: Mon, 4 Nov 2002 17:20:40 +0200
From: "JorkkiS" <jarkko.rantamaki@edu.stadia.no.spam.fi>
Subject: Perl and large text files
Message-Id: <aq62u5$bb1$1@nyytiset.pp.htv.fi>
Hi!
I'm supposed to write a sript that searches through a text file for a given
string. The script it self will be very simple, but I was wondering will I
run into problems, because the size of the text file is around 5 megabytes.
I was thinking of reading it into an array and then greping throug it...
will there be problems, other than it might take a while.
Is there a better way to approach this?
Thanks for advice or comments
BR,
Jarkko
------------------------------
Date: Mon, 4 Nov 2002 08:46:08 -0700
From: "David" <perl-dvd@ldschat.com>
Subject: Re: Perl and large text files
Message-Id: <ewwx9.16691$46.7488@fe01>
> "JorkkiS" <jarkko.rantamaki@edu.stadia.no.spam.fi> wrote in message
news:aq62u5$bb1$1@nyytiset.pp.htv.fi...
> Hi!
>
> I'm supposed to write a sript that searches through a text file for
a given
> string. The script it self will be very simple, but I was wondering
will I
> run into problems, because the size of the text file is around 5
megabytes.
> I was thinking of reading it into an array and then greping throug
it...
> will there be problems, other than it might take a while.
>
> Is there a better way to approach this?
Yes there is. If you read the whole file into ram (reading it into an
array), you'll trash your memory reserves. The better way to do this
is to open the file, loop through each line with a while or a foreach
or some other prefered loop type. With each line you encounter, check
to see if the line contains what you are looking for.
Regards,
David
------------------------------
Date: Mon, 04 Nov 2002 16:03:13 GMT
From: helgi@decode.is (Helgi Briem)
Subject: Re: Perl and large text files
Message-Id: <3dc69981.1687781932@news.cis.dfn.de>
On Mon, 4 Nov 2002 17:20:40 +0200, "JorkkiS"
<jarkko.rantamaki@edu.stadia.no.spam.fi> wrote:
>Hi!
>
>I'm supposed to write a sript that searches through a text file for a given
>string. The script it self will be very simple, but I was wondering will I
>run into problems, because the size of the text file is around 5 megabytes.
>I was thinking of reading it into an array and then greping throug it...
>will there be problems, other than it might take a while.
>
>Is there a better way to approach this?
Yes.
Something along these line (untested):
#!perl
use strict;
use warnings;
my $wanted = 'whatever';
while (<>)
{
next unless /$wanted/;
print;
}
__END__
--
Regards, Helgi Briem
helgi AT decode DOT is
A: Top posting
Q: What is the most irritating thing on Usenet?
- "Gordon" on apihna
------------------------------
Date: Mon, 04 Nov 2002 13:25:17 GMT
From: Andras Malatinszky <nobody@dev.null>
Subject: Re: Perl question....
Message-Id: <3DC6752D.6020208@dev.null>
Jürgen Exner wrote:
> Grant wrote:
>
>>Hi, I need to change strings like "Cool Posters" to "cool_posters". I
>>need to have all capitals reduced to lower-cased letters, all spaces
>>converted to "_" characters, and all "." characters simply removed.
>>Please show me how this can be done in Perl. Thanks a lot!
>>
>
> Please see
> perldoc -f tr (don't forget to look at modifier d, too)
> perldoc -f lc
>
> jue
I often find that people use tr when my first thought would be to reach
for =~s/.../.../. Is there some advantage to using tr instead of regex
substitution or is it just personal preference?
------------------------------
Date: Mon, 4 Nov 2002 13:30:40 +0000 (UTC)
From: Bernard El-Hagin <bernard.el-hagin@DODGE_THISlido-tech.net>
Subject: Re: Perl question....
Message-Id: <slrnasctfe.fg7.bernard.el-hagin@gdndev25.lido-tech>
In article <3DC6752D.6020208@dev.null>, Andras Malatinszky wrote:
>
>
> Jürgen Exner wrote:
>
>> Grant wrote:
>>
>>>Hi, I need to change strings like "Cool Posters" to "cool_posters". I
>>>need to have all capitals reduced to lower-cased letters, all spaces
>>>converted to "_" characters, and all "." characters simply removed.
>>>Please show me how this can be done in Perl. Thanks a lot!
>>>
>>
>> Please see
>> perldoc -f tr (don't forget to look at modifier d, too)
>> perldoc -f lc
>>
>> jue
>
>
> I often find that people use tr when my first thought would be to reach
> for =~s/.../.../. Is there some advantage to using tr instead of regex
> substitution or is it just personal preference?
They are quite different operators and it's rarely a matter of
personal taste which one you use. Just read about both in perlop.pod.
You can do so by issuing the command:
perldoc perlop
Cheers,
Bernard
--
echo 42|perl -pe '$#="Just another Perl hacker,"'
------------------------------
Date: 4 Nov 2002 06:58:50 -0800
From: boogedyboogedy@email.com (BoogedyBoogedy)
Subject: Perl script not writing under cron
Message-Id: <3d7e524f.0211040658.1a72a2e@posting.google.com>
Howdy folks!
I am having a problem with a Perl script running under cron.
It's a very simple program...as illustrated below.... for the sake of
argument, call this file date.pl
#!/usr/bin/perl
$date = `date`;
open (FILEPRINT, ">date.txt") || "Can't open file";
print "Printing to file now";
print FILEPRINT "$date\n";
close FILEPRINT;
CHMODing the file to 755 and then typing ./date.pl gives you what you
expect.
The directory that it is in and that the file is being written in is
777'd.
Here's where it gets tricky, scheduling it under cron.
Setting the file to run every 5 minutes results in my box getting an
email that
says
"Printing to file now"
indicating that the program has executed but there is no corresponding
"date.txt" file.
Running it from the command line it works fine, creates the date.txt
file no problem. The paths are correct, the email from cron seems to
indicate that it's executing fine (as indicated by the successful
execution of the print "Printing to file now" messages).
Has anyone experienced Perl not doing a file write under cron but
doing it just fine from the command line?
Many thanks in advance.
Wilkie
------------------------------
Date: Mon, 04 Nov 2002 09:10:24 -0600
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: Perl script not writing under cron
Message-Id: <87d6plid5r.fsf@limey.hpcc.uh.edu>
>> On 4 Nov 2002 06:58:50 -0800,
>> boogedyboogedy@email.com (BoogedyBoogedy) said:
> Howdy folks! I am having a problem with a Perl script
> running under cron. It's a very simple program...as
> illustrated below.... for the sake of argument, call
> this file date.pl
> #!/usr/bin/perl $date = `date`; open (FILEPRINT,
> ">date.txt") || "Can't open file"; print "Printing to
> file now"; print FILEPRINT "$date\n"; close FILEPRINT;
I bet you'll be surprised to discover the current working
directory of the script when run under cron...the script
will run as a child of the cron daemon, and thus "your"
environment will not be in effect.
hth
t
------------------------------
Date: Mon, 04 Nov 2002 16:16:57 +0100
From: Paul van Eldijk <rev_1318@hotmail.com>
Subject: Re: Perl script not writing under cron
Message-Id: <aq6307$7iq$1@odysseus.uci.kun.nl>
BoogedyBoogedy wrote:
> Howdy folks!
> I am having a problem with a Perl script running under cron. It's a very
> simple program...as illustrated below.... for the sake of argument, call
> this file date.pl
>
> #!/usr/bin/perl
Always use perl -w (or use the warnings-pragma)!
> $date = `date`;
> open (FILEPRINT, ">date.txt") || "Can't open file";
^^^^^^^^^^^^^^^^^
'Useless use of a constant in void context at test line 3.'
I think you meant to say:
open (FILEPRINT, ">date.txt") || die "Can't open file";
> print "Printing to file now";
> print FILEPRINT "$date\n";
> close FILEPRINT;
>
> CHMODing the file to 755 and then typing ./date.pl gives you what you
> expect.
> The directory that it is in and that the file is being written in is
> 777'd.
And what directory is that? I bet, it not the same working-directory the
script is in when running via cron!
>
> Here's where it gets tricky, scheduling it under cron.
>
> Setting the file to run every 5 minutes results in my box getting an
> email that
> says
> "Printing to file now"
> indicating that the program has executed but there is no corresponding
> "date.txt" file.
> Running it from the command line it works fine, creates the date.txt
> file no problem. The paths are correct, the email from cron seems to
> indicate that it's executing fine (as indicated by the successful
> execution of the print "Printing to file now" messages).
It will allways print thit, regardless of the result of the open.
>
> Has anyone experienced Perl not doing a file write under cron but doing
> it just fine from the command line?
Always check/specify which directory you are (or want to be!) in. cron-based scripts have an
environment different from your on-line one.
>
> Many thanks in advance.
> Wilkie
HTH,
Paul
--
$_ = q{ =4,c,14:,=1b:a=5,16:c=17:e=a,11,19:h=9,15:j=0:k=18:l
=13:n=6:o=7:p=10:r=b,12,1a:s=2:t=3,8:u=1}; s/\n//g;for(split
/:/){($b,$_)=split/=/;for(split/,/){my$i=/1./?13:0;$_=substr
($_,-1); $_=ord($_)-87if/[abc]/; $i+=$_; $c[$i]=$b}} print@c
------------------------------
Date: Mon, 4 Nov 2002 15:24:34 +0000 (UTC)
From: John Joseph Trammell <trammell+usenet@hypersloth.invalid>
Subject: Re: Perl script not writing under cron
Message-Id: <slrnasd49i.qsh.trammell+usenet@bayazid.el-swifto.com>
On 4 Nov 2002 06:58:50 -0800, BoogedyBoogedy wrote:
> I am having a problem with a Perl script running under cron.
> It's a very simple program...as illustrated below.... for the
> sake of argument, call this file date.pl
>
> #!/usr/bin/perl
> $date = `date`;
> open (FILEPRINT, ">date.txt") || "Can't open file";
open (FILEPRINT, ">date.txt") || die "Can't open file: $!";
^^^ ^^
> print "Printing to file now";
> print FILEPRINT "$date\n";
> close FILEPRINT;
You may also wish to specify the path to date.text, e.g.:
open (FILEPRINT, ">/home/sparky/test/date.txt") ...
> Here's where it gets tricky, scheduling it under cron.
Cron can be a pain, as the environment can be very different
from your user environment.
------------------------------
Date: Mon, 4 Nov 2002 09:57:12 -0600
From: "Bob Dover" <dover@nortelnetworks.com>
Subject: Re: Perl script not writing under cron
Message-Id: <aq659r$mvp$1@bcarh8ab.ca.nortel.com>
"John Joseph Trammell" wrote...
> On 4 Nov 2002 06:58:50 -0800, BoogedyBoogedy wrote:
> > I am having a problem with a Perl script running under cron.
> > It's a very simple program...as illustrated below.... for the
>
> Cron can be a pain, as the environment can be very different
> from your user environment.
Which is why I suggest using 'at' instead.
------------------------------
Date: 4 Nov 2002 05:13:51 -0800
From: ryan@jimryan.com (jim ryan)
Subject: Re: Search for a string while in PerlDoc?
Message-Id: <d220d0c9.0211040513.b7bfe70@posting.google.com>
Sorry to be thick about this but how do I find out what my paginator
is? I'm using perldoc (ActiveState) under Windows NT and Windows 2000
so I assume it's using the native pipe.
-Jim
"J rgen Exner" <jurgenex@hotmail.com> wrote in message news:<YCuw9.56955$wm6.39790@nwrddc01.gnilink.net>...
> Jim Ryan wrote:
> > [This followup was posted to comp.lang.perl.misc and a copy was sent
> > to the cited author.]
> >
> > How do I do this? If I'm reading about something lengthy in perldoc
> > and want to find a string within it, what do I type at the --more--
> > prompt?
>
> That depends solely upon which utility you are using as "more". Is it the
> original "more"? Is it "less"? Is it GNU "more"? .....
> Check the man page for your paginator.
>
> jue
------------------------------
Date: Mon, 4 Nov 2002 13:29:34 -0000
From: "Rick Cross" <r_cross@_nospam_hotmail.com>
Subject: Re: Search for a string while in PerlDoc?
Message-Id: <aq5sms$pau$1@newsg2.svr.pol.co.uk>
The version of more that comes with Windows does not allow you to search for
text strings.
Try running:
U:\>perldoc -f open > test.txt
U:\>edit test.txt
Then [Alt + S] to search.
"jim ryan" <ryan@jimryan.com> wrote in message
news:d220d0c9.0211040513.b7bfe70@posting.google.com...
> Sorry to be thick about this but how do I find out what my paginator
> is? I'm using perldoc (ActiveState) under Windows NT and Windows 2000
> so I assume it's using the native pipe.
>
> -Jim
>
> "J rgen Exner" <jurgenex@hotmail.com> wrote in message
news:<YCuw9.56955$wm6.39790@nwrddc01.gnilink.net>...
> > Jim Ryan wrote:
> > > [This followup was posted to comp.lang.perl.misc and a copy was sent
> > > to the cited author.]
> > >
> > > How do I do this? If I'm reading about something lengthy in perldoc
> > > and want to find a string within it, what do I type at the --more--
> > > prompt?
> >
------------------------------
Date: Mon, 04 Nov 2002 13:08:58 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <uscsbalhecmvdc@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 28 Oct 2002 13:16:28 GMT and ending at
04 Nov 2002 11:39:31 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 2002 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@(?:.*\.)?perl\.com
faq\@(?:.*\.)?denver\.pm\.org
comdog\@panix\.com
Totals
======
Posters: 233
Articles: 573 (215 with cutlined signatures)
Threads: 173
Volume generated: 1047.3 kb
- headers: 476.5 kb (9,294 lines)
- bodies: 544.9 kb (18,332 lines)
- original: 338.2 kb (12,226 lines)
- signatures: 25.2 kb (711 lines)
Original Content Rating: 0.621
Averages
========
Posts per poster: 2.5
median: 1 post
mode: 1 post - 131 posters
s: 3.9 posts
Posts per thread: 3.3
median: 3 posts
mode: 1 post - 49 threads
s: 2.6 posts
Message size: 1871.6 bytes
- header: 851.6 bytes (16.2 lines)
- body: 973.8 bytes (32.0 lines)
- original: 604.4 bytes (21.3 lines)
- signature: 45.1 bytes (1.2 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
43 80.5 ( 34.7/ 41.2/ 21.4) Benjamin Goldberg <goldbb2@earthlink.net>
17 31.0 ( 15.5/ 14.2/ 7.0) Brian McCauley <nobull@mail.com>
14 25.0 ( 12.6/ 12.4/ 4.3) Bernard El-Hagin <bernard.el-hagin@DODGE_THISlido-tech.net>
13 45.1 ( 14.4/ 29.0/ 25.2) tadmc@augustmail.com
13 22.2 ( 8.7/ 10.6/ 5.7) helgi@decode.is
12 17.1 ( 9.9/ 7.2/ 3.7) "Teh (tî'pô)" <teh@mindless.com>
12 19.1 ( 10.5/ 8.6/ 4.0) "Jürgen Exner" <jurgenex@hotmail.com>
10 17.1 ( 7.8/ 9.3/ 4.6) "TBN" <ihave@noemail.com>
9 14.0 ( 8.0/ 6.0/ 3.7) Bart Lateur <bart.lateur@pandora.be>
9 15.2 ( 7.3/ 5.2/ 3.2) Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
These posters accounted for 26.5% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
80.5 ( 34.7/ 41.2/ 21.4) 43 Benjamin Goldberg <goldbb2@earthlink.net>
45.1 ( 14.4/ 29.0/ 25.2) 13 tadmc@augustmail.com
31.0 ( 15.5/ 14.2/ 7.0) 17 Brian McCauley <nobull@mail.com>
25.0 ( 12.6/ 12.4/ 4.3) 14 Bernard El-Hagin <bernard.el-hagin@DODGE_THISlido-tech.net>
22.2 ( 8.7/ 10.6/ 5.7) 13 helgi@decode.is
19.1 ( 10.5/ 8.6/ 4.0) 12 "Jürgen Exner" <jurgenex@hotmail.com>
18.0 ( 5.7/ 12.3/ 7.7) 8 Leaffoot <leaffoot@hotmail.com>
17.1 ( 9.9/ 7.2/ 3.7) 12 "Teh (tî'pô)" <teh@mindless.com>
17.1 ( 7.8/ 9.3/ 4.6) 10 "TBN" <ihave@noemail.com>
16.4 ( 6.7/ 9.4/ 3.0) 8 "John W. Krahn" <krahnj@acm.org>
These posters accounted for 27.8% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.908 ( 5.1 / 5.7) 5 peter pilsl <pilsl_use@goldfisch.at>
0.871 ( 25.2 / 29.0) 13 tadmc@augustmail.com
0.813 ( 5.9 / 7.3) 5 Jan Fure <jan_may2002_fure@attbi.com>
0.718 ( 2.7 / 3.8) 6 "Alan J. Flavell" <flavell@mail.cern.ch>
0.661 ( 1.0 / 1.6) 5 hal@thresholddigital.com
0.626 ( 7.7 / 12.3) 8 Leaffoot <leaffoot@hotmail.com>
0.625 ( 2.9 / 4.7) 6 Simon Andrews <simon.andrews@bbsrc.ac.uk>
0.615 ( 3.7 / 6.0) 9 Bart Lateur <bart.lateur@pandora.be>
0.607 ( 3.2 / 5.2) 9 Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
0.605 ( 4.7 / 7.8) 5 "Newbie" <mike_constant@yahoo.com>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.495 ( 7.0 / 14.2) 17 Brian McCauley <nobull@mail.com>
0.464 ( 2.5 / 5.4) 8 "Bill Smith" <wksmith@optonline.net>
0.463 ( 4.0 / 8.6) 12 "Jürgen Exner" <jurgenex@hotmail.com>
0.438 ( 2.0 / 4.6) 5 "James E Keenan" <jkeen@concentric.net>
0.420 ( 3.2 / 7.5) 5 Jay Tilton <tiltonj@erols.com>
0.377 ( 2.2 / 5.8) 8 tassilo.parseval@post.rwth-aachen.de
0.367 ( 1.2 / 3.2) 5 Andreas =?iso-8859-1?Q?K=E4h=E4ri?= <ak@freeshell.org.REMOVE>
0.350 ( 4.3 / 12.4) 14 Bernard El-Hagin <bernard.el-hagin@DODGE_THISlido-tech.net>
0.315 ( 3.0 / 9.4) 8 "John W. Krahn" <krahnj@acm.org>
0.136 ( 0.6 / 4.6) 6 Ron Reidy <rereidy@indra.com>
25 posters (10%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
13 Limit output of examine (x) and return (r) in debugger.
13 while vs. foreach
13 whatever happened to "static typing hints"?
12 significance of 42 for perl, any?!?
11 Why is this an infine loop???
10 amateur socketeer: long wait
10 Declaring 2 Dimensional Hashes
8 Terminating regex with space or end of line
8 Perl -e "print qq! Tips and Tricks !"
7 How to pass control character to a telnet session
These threads accounted for 18.3% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
26.2 ( 7.8/ 17.8/ 9.6) 10 amateur socketeer: long wait
24.5 ( 12.6/ 10.2/ 4.6) 13 whatever happened to "static typing hints"?
23.1 ( 10.4/ 12.1/ 6.1) 11 Why is this an infine loop???
22.1 ( 11.3/ 10.5/ 5.2) 13 while vs. foreach
19.8 ( 11.0/ 8.8/ 4.2) 13 Limit output of examine (x) and return (r) in debugger.
17.7 ( 5.1/ 12.4/ 7.9) 6 problem with hash content disappearing - unable to debug and find why - weird behavior
17.3 ( 1.0/ 16.3/ 16.3) 1 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.2 $)
17.2 ( 10.4/ 6.0/ 2.1) 12 significance of 42 for perl, any?!?
15.9 ( 7.0/ 8.8/ 4.3) 7 2 different results from while loop...
14.8 ( 4.5/ 10.2/ 6.2) 6 Strange Performance Thing
These threads accounted for 19.0% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.875 ( 7.0/ 8.0) 6 scripture regex
0.847 ( 5.6/ 6.6) 7 fill array with equal elements
0.814 ( 5.3/ 6.6) 5 utf-8 in Matt's Form Mail
0.742 ( 2.0/ 2.7) 6 Can someone look at this for loop?
0.698 ( 4.0/ 5.8) 5 read recursive directories
0.680 ( 3.8/ 5.5) 5 sub procedure question
0.668 ( 3.0/ 4.5) 5 Textbooks on Perl/Python
0.651 ( 5.7/ 8.8) 5 ---logfile analysis
0.637 ( 7.9/ 12.4) 6 problem with hash content disappearing - unable to debug and find why - weird behavior
0.635 ( 2.9/ 4.6) 7 ~ Perl script output help ~
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.429 ( 2.9 / 6.7) 8 Terminating regex with space or end of line
0.418 ( 1.0 / 2.4) 5 Portability issue with open() & rename()
0.408 ( 1.3 / 3.3) 5 Creating a Microsoft Word file with Win32::OLE
0.386 ( 1.6 / 4.2) 6 setreuid on AIX 5.1 with perl 5.6.1
0.382 ( 2.9 / 7.5) 7 How to pass control character to a telnet session
0.366 ( 1.6 / 4.5) 5 Grep v Foreach
0.363 ( 0.7 / 2.1) 5 Perl question....
0.353 ( 2.1 / 6.0) 12 significance of 42 for perl, any?!?
0.346 ( 1.6 / 4.6) 6 flock question addendum
0.287 ( 1.6 / 5.6) 6 perl error with oracle
46 threads (26%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
5 linux.redhat.devel
5 comp.lang.python
1 nl.comp.os.linux.overig
1 news.answers
1 nl.announce
1 nl.internet.www.server-side
1 nl.comp.programmeren
1 nl.comp.os.ms-windows
1 mailing.database.mysql
1 comp.lang.perl.modules
Top 10 Crossposters
===================
Articles Address
-------- -------
5 Johan Vromans <jvromans@squirrel.nl>
2 jari.aalto@poboxes.com
1 Erik Max Francis <max@alcyone.com>
1 claird@phaseit.net
1 Hans <baga@gmx.de>
1 "Stoone" <benew666@hotmail.com>
1 "Raymond Hettinger" <python@rcn.com>
1 Jalab <jalab2010@yahoo.com>
1 "David K. Wall" <me@dwall.fastmail.fm>
1 ZZT <a@b.c>
------------------------------
Date: Mon, 04 Nov 2002 11:18:40 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: What port number is used when using POST
Message-Id: <omkcsuoc0useq17um01r08667c2fghobas@4ax.com>
Cylurian wrote:
>I have a router using NAT with a Server using port 80. When I use
>the GET method to transfer data from the client to the server, I have
>no problems. When I use the POST method no data is transfered. I
>know it has to do with the router, because I can run the script in the
>server and it runs fine.
>
>Any ideas?
You mean you run it as a CGI script on the server and it works fine?
FWIW, and totally off-topic... The HTTP protocol is loosely based on the
e-mail format: first you have the headers, then an empty line, and net
the body. You'll be familiar with this scheme on the CGI side. Well:
HTTP uses the same scheme to send requests. Basic requests are sent as
headers only, after the starting line with the basic request. POST is
different: the post data is sent in the request body. *After* an empty
line. See `perldoc HTTP::Request::Common`, under the heading "POST" near
the end, for a few examples of what gets sent.
So, IMO, it can't be the router.
--
Bart.
------------------------------
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 4063
***************************************
