[13312] in Perl-Users-Digest
Perl-Users Digest, Issue: 722 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 6 11:23:14 1999
Date: Mon, 6 Sep 1999 08:05:12 -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 Mon, 6 Sep 1999 Volume: 9 Number: 722
Today's topics:
Ask for comment on perl scripting(encrypt/decrypt) <lishans@evitech.fi>
Re: Ask for comment on perl scripting(encrypt/decrypt) <gellyfish@gellyfish.com>
Re: Ask for comment on perl scripting(encrypt/decrypt) <matthew_j_forder@notes.seagate.com>
case for open lang on win32 - fill in the table nielsenjf@my-deja.com
Re: case for open lang on win32 - fill in the table (Martijn Faassen)
Cgi parameters (Jack Cheng)
Re: Cgi parameters <gellyfish@gellyfish.com>
Find MAC address <wgerdes@oeonline.com>
Re: fork? <meowing@banet.net>
How to acess <input>? <dcg@esoterica.pt>
Re: How to acess <input>? <espen@nextel.no>
Re: How to acess <input>? <gellyfish@gellyfish.com>
Re: msdos console window under windows 95 (Bart Lateur)
Re: msdos console window under windows 95 <c4jgurney@my-deja.com>
Re: msdos console window under windows 95 <messkat@NOSPAMworldnet.att.net>
Re: mysql interview <borg@imaginary.com>
Need help! Thanks. <linyong2000@990.net>
Re: Need help! Thanks. (Bill Moseley)
Net::FTP Unexpected EOF <pm_williams@hotmail.com>
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: newbie suffering with modules <gellyfish@gellyfish.com>
Re: newbie suffering with modules mikedel@ix.netcom.com
Re: Parsing links in HTML files <gellyfish@gellyfish.com>
Re: perl mail filter? <revjack@radix.net>
Re: Problems with close <c4jgurney@my-deja.com>
Randal vandal aborts Schwartz <nmorison@ozemail.com.au>
Regular Expressions <m.scheferhoff@gmx.de>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: tee cmd in PERL? <bauer@zrz.tu-berlin.de>
Re: Tracking progress of a Net::FTP download (Ed Blackman)
using code written in C (anyone know about stemming?) (Bill Moseley)
using numberd fds (Vardhan Varma)
Re: using numberd fds <meowing@banet.net>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 6 Sep 1999 11:29:56 +0200
From: Lishan Song <lishans@evitech.fi>
Subject: Ask for comment on perl scripting(encrypt/decrypt)
Message-Id: <Pine.HPX.4.10.9909061115560.8945-100000@tamagoch.evitech.fi>
Hi:
I'm suspicious about (perl) script language:
you write a perl script, then it is in ASCII,
then everyone can see/use your source code. So
I would rather to do it in C or other non-scripting language.
So my question is: how you protect your intelectual
property? Is it possible to encrypt/decrypt before
invoking the perl interpreter?
The ideal way is: you write your perl script in ASCII,
saved somewhere privately, encrypted someway before
providing to the public; then the one who wants to run
the script must get a password string, perl does decryption
before the script is interpreted.
The encryption/decryption should be preferably provided by
some perl module. The algorithm could be very very very simple.
Any hint/comment?
Name: Song Lishan
Class: e2098
E-Mail: lishans@evitech.fi
------------------------------
Date: 6 Sep 1999 09:51:30 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Ask for comment on perl scripting(encrypt/decrypt)
Message-Id: <37d38092_1@newsread3.dircon.co.uk>
Lishan Song <lishans@evitech.fi> wrote:
>
> So my question is: how you protect your intelectual
> property?
With a license - I would ask in the appropriate finet.* group in
the first place as what the situation is in Finland regarding
intellelctual property laws.
/J\
--
"As usual I'm the price you have to pay for the funny bits" - Denis Norden
------------------------------
Date: Mon, 06 Sep 1999 10:20:34 GMT
From: Matthew Forder <matthew_j_forder@notes.seagate.com>
Subject: Re: Ask for comment on perl scripting(encrypt/decrypt)
Message-Id: <7r04hc$e6j$1@nnrp1.deja.com>
In article <Pine.HPX.4.10.9909061115560.8945-
100000@tamagoch.evitech.fi>,
Lishan Song <lishans@evitech.fi> wrote:
> Hi:
>
> I'm suspicious about (perl) script language:
> you write a perl script, then it is in ASCII,
> then everyone can see/use your source code. So
> I would rather to do it in C or other non-scripting language.
>
> So my question is: how you protect your intelectual
> property? Is it possible to encrypt/decrypt before
> invoking the perl interpreter?
The way to do this is using source filters. There is a very good article
in The Perl Journal, Issue 11 #3 (Vol. 3, No. 3), which describes the
concepts and the practical implementation of source filters.
> The ideal way is: you write your perl script in ASCII,
> saved somewhere privately, encrypted someway before
> providing to the public; then the one who wants to run
> the script must get a password string, perl does decryption
> before the script is interpreted.
>
> The encryption/decryption should be preferably provided by
> some perl module. The algorithm could be very very very simple.
>
> Any hint/comment?
>
> Name: Song Lishan
> Class: e2098
> E-Mail: lishans@evitech.fi
>
>
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 06 Sep 1999 09:05:17 GMT
From: nielsenjf@my-deja.com
Subject: case for open lang on win32 - fill in the table
Message-Id: <7r0049$bfh$1@nnrp1.deja.com>
In situations where windows is the chosen path, here is a table I
made regarding vbscript(closed) and perl or python (open).
I am specifically looking at scripting languages in a web environ.
Though if you include complied languages (visual basic, java, c++
i doubt the situation is any different -- btw I know the definitions
of scripting versus compiled are fuzzy).
It looks like open languages are a winner . . .
(some items in the table are there for buzzword reasons)
If you can think of anything to add, please do so
vbscript perl python
open no yes yes
cross platform no yes yes
ease of use easy medium easy
object orient weak good good
multi thread none recent-ok ?
file system access no yes yes
basic locking no (obviously) flock flock?
speed ? excellent ok?
open c++ access no swig swig
win32 access no almost full almost full
database access ADO ADO,odbc,dbi ADO,odbc,?
raw lang power weak excellent excellent
exception handeling ? ok(eval) ?
adsi good ok ?
MTS support ok ? good
COM ease easy medium easy
make COM component no yes yes
COM debugging ? ? yes
idispatch only yes ? ?
COM threading STA only STA only? STA only?
project size small to medium big big
(lines of code)
Here's also a short comment on database access:
languages speed open cross plat Ease of use
ADO perl/python/vb slow no no easy
dbi perl fast yes yes easy
odbc perl/python fast yes yes harder
Perhaps the only reason you want to use vbscript is if you
want really easy (though limited) COM access and ADO access, so much
so, that it is important to give up other benefits.
Another interesting thing to note, if you leverage perl and python the
operating system and database do not matter. You can expand your
development beyond one OS. In other words, even if you are only doing
windows stuff, in the future that may not be the case. And if so, the
python/perl guys are in much better shape.
Any comments, inaccuracies?
john
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 6 Sep 1999 12:46:53 GMT
From: m.faassen@vet.uu.nl (Martijn Faassen)
Subject: Re: case for open lang on win32 - fill in the table
Message-Id: <7r0d3t$chk$1@newshost.accu.uu.nl>
[followups set to comp.lang.python only]
From a Python perspective.
In comp.lang.python nielsenjf@my-deja.com wrote:
> If you can think of anything to add, please do so
> vbscript perl python
> open no yes yes
> cross platform no yes yes
> ease of use easy medium easy
> object orient weak good good
> multi thread none recent-ok ?
Python can do multithreading, though there's a global interpreter lock.
Ask someone who knows more about multithreading than I do what this means.
> file system access no yes yes
> basic locking no (obviously) flock flock?
Python has the fcntl module -- again, ask others for details as I'm
not familiar with this. Seems limited to Unix.
> speed ? excellent ok?
Python's speed is just fine for most purposes, though Perl is generally
quite a bit faster doing raw text and file processing.
> open c++ access no swig swig
And Python has C access through SWIG, and the Python C API isn't hard to use,
by most accounts.
> win32 access no almost full almost full
> database access ADO ADO,odbc,dbi ADO,odbc,?
> raw lang power weak excellent excellent
> exception handeling ? ok(eval) ?
Python has great exception handling. User defined exceptions, 'try..except'
and 'try finally', etc.
> adsi good ok ?
> MTS support ok ? good
> COM ease easy medium easy
> make COM component no yes yes
> COM debugging ? ? yes
> idispatch only yes ? ?
> COM threading STA only STA only? STA only?
Don't know much about COM or these other things listed, just know Python
can do it quite well, from what I hear.
> project size small to medium big big
> (lines of code)
What does that mean, lines of code? for COM, or in general?
If in general I think Python code can be as compact as VBScript, probably
more compact, right?
Or do you mean how big projects can become? Python has no built-in
limitation for that.
Regards,
Martijn
------------------------------
Date: Mon, 6 Sep 1999 16:56:27 +0900
From: jack@liaison.dhis.org (Jack Cheng)
Subject: Cgi parameters
Message-Id: <8E39AC570jackantispamliaisond@192.168.16.1>
Hello,
I'm quite new in CGI programming.
I had a question about the perl cgi. How to accept more than one parameter?
e.g.
form.cgi with the folloing lines:
$firstname = $ARGV[0];
$lastname = $ARGV[1];
print ("My name is $firstname $lastname");
...
test.html with the following lines:
<FORM NAME="ORDER" METHOD="POST" ACTION="/cgi-
bin/form.cgi?firstname?lastname">
...
It will return the wrong value while press the submit button from the form.
Thanks
Best Regard
Jack Cheng
------------------------------
Date: 6 Sep 1999 10:21:29 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Cgi parameters
Message-Id: <37d38799_1@newsread3.dircon.co.uk>
In comp.lang.perl.misc Jack Cheng <jack@liaison.dhis.org> wrote:
> Hello,
> I'm quite new in CGI programming.
> I had a question about the perl cgi. How to accept more than one parameter?
>
> e.g.
>
> form.cgi with the folloing lines:
>
> $firstname = $ARGV[0];
> $lastname = $ARGV[1];
> print ("My name is $firstname $lastname");
> ...
Bzzt ... Wrong.
Please use the module CGI.pm for this. The CGI specification does not
state you are able to access the parameters as if they were passed on
the command line:
<http://hoohoo.ncsa.uiuc.edu/cgi>
/J\
--
"I want to be like Oprah" - Sarah, Duchess of York
------------------------------
Date: Mon, 06 Sep 1999 14:59:31 GMT
From: "Wylie Gerdes" <wgerdes@oeonline.com>
Subject: Find MAC address
Message-Id: <nFQA3.10584$Pv4.5262@news.rdc1.mi.home.com>
I'd like to retrieve MAC address from network clients for a wake-on-lan
effort. I see no hints in the documentation; any ideas or leads?
------------------------------
Date: 06 Sep 1999 04:08:20 -0400
From: meow <meowing@banet.net>
Subject: Re: fork?
Message-Id: <87n1v01myz.fsf@slip166-72-251-226.ma.us.ibm.net>
[Your article had an HTML attachment. Please shut off that feature --
it's to you benefit, because many sites and individuals drop such
articles unread.]
GiN <wablief@freemail.nl> wrote:
{on sharing data between a process and it forked kids}
> thanks for your reply!
> but how can i modify the source to let the child print "blah2"?
The best approach is to bang one's head again the wall until it stops
hurting and the urge to share data goes away. But that doesn't always
help, so...
The easiest way to share data that will actually work on most
platforms is to use a state daemon. That is, set up an extra process
that does nothing more than listen on a socket, and store and retrieve
variables. You could even put this into your main program, though it
tends to complicate matters unless you already have some sort of
select() loop in there. See perlipc for information on making sockets
work.
There are other approaches that are faster, but they might not work on
all (or any!) of the machines where your stuff will be running:
Shared memory. Perl's implementation is discussed in perlipc under
the "SysV IPC" section. In Perl you'll end up using it as a form of
fast sockets. It doesn't work everywhere.
mmap (memory mapped files). Whether this will actually work for you
depends quite a bit on how much data you're passing around, what
you're doing with it, and whether your operating system supports it.
There's a module in CPAN called Apache::Mmap which can help you enable
this sort of thing.
Threads. This is much like forking, with automatically shared memory
(in other words, just what you originally wanted). Perl's threading
is poorly implemented and documented at the moment, only works on a
truly random selection of machines (as in, you won't know until you
actually try it) and requires different programming quirks with each
Perl release. It can be used for substantial work if you have the
right magic perl/OS/hardware combination and are willing to sacrifice
code portability and a bit of sanity, but you're on your own in making
it work.
------------------------------
Date: Sun, 5 Sep 1999 10:39:05 +0100
From: "Duarte C CG" <dcg@esoterica.pt>
Subject: How to acess <input>?
Message-Id: <936527223.45365@orodruin.esoterica.pt>
I'd like to ask, if i have a html page. with a form like:
<form method="post" action="/cgi-bin/whatever.cgi">
<input type='text' name='this'><input type='submit'>
</form>
I tried to refer to the text input as $this, bu it didn't work, how can I
erefer to the input?
dcg
ps - Is it true that Larry Wall comes here? And Randal Schwarz too?
------------------------------
Date: Mon, 06 Sep 1999 10:47:19 +0200
From: Espen Myrland <espen@nextel.no>
Subject: Re: How to acess <input>?
Message-Id: <37D37F97.6116DAA5@nextel.no>
This is not a CGI - newsgroup....
but you can say something like this:
#!/usr/bin/perl -wT
use strict;
use CGI;
my $query = new CGI;
my $this = $query->param('this');
print $query->header(-type=>'text/html');
print "$this<br>\n";
Duarte C CG wrote:
> I'd like to ask, if i have a html page. with a form like:
> <form method="post" action="/cgi-bin/whatever.cgi">
> <input type='text' name='this'><input type='submit'>
> </form>
>
> I tried to refer to the text input as $this, bu it didn't work, how can I
> erefer to the input?
>
> dcg
>
> ps - Is it true that Larry Wall comes here? And Randal Schwarz too?
------------------------------
Date: 6 Sep 1999 10:22:39 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: How to acess <input>?
Message-Id: <37d387df_1@newsread3.dircon.co.uk>
Duarte C CG <dcg@esoterica.pt> wrote:
>
> ps - Is it true that Larry Wall comes here? And Randal Schwarz too?
>
Dont know who you mean ;-}
/J\
--
"As usual I'm the price you have to pay for the funny bits" - Denis Norden
------------------------------
Date: Mon, 06 Sep 1999 07:54:50 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: msdos console window under windows 95
Message-Id: <37d57249.2743503@news.skynet.be>
<bigdreamer@prodigy.net> wrote:
>i'm running active perl on windows 95... just working with some simple perl
>development. anyway, i need to know how to keep the console window open
>after the app completes execution and the window it was running in is no
>longer active. right now it just exits and closes the window all in the
>blink of an eye.
It sounds like you want to examine the script's output. You can use a
text editor (to edit your script) that can run external programs
("tools") and *capture* it's output. Then you can see the "printout" the
program produced, in a window in the editor.
For example, PFE is a good, free editor, so you can try out the concept.
For this and other editors (some shareware), see the links on "editors"
on <www.perl.com>.
HTH,
Bart.
------------------------------
Date: Mon, 06 Sep 1999 09:30:34 GMT
From: Jeremy Gurney <c4jgurney@my-deja.com>
Subject: Re: msdos console window under windows 95
Message-Id: <7r01jq$c9h$1@nnrp1.deja.com>
In article <MPG.123dc8d2b5de7da0989cb2@news-server>,
elephant@squirrelgroup.com (elephant) wrote:
>
> open the command prompt window first .. THEN run the perl script by
> typing on the keyboard .. DO NOT double-click the .pl file
>
> --
> jason - elephant@squirrelgroup.com -
>
If you want to open a command prompt to run perl scripts then check out
the 'command prompt here' utility.
http://www.microsoft.com/windows95/downloads/contents/wutoys/w95pwrtoyss
et/default.asp?RLD=13
It's really useful for opening a prompt in a folder from explorer .
HTH,
Jeremy Gurney
SAS Programmer | Proteus Molecular Design Ltd.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 6 Sep 1999 10:32:25 -0400
From: "Kathy Messina" <messkat@NOSPAMworldnet.att.net>
Subject: Re: msdos console window under windows 95
Message-Id: <7r0j90$6ov$1@bgtnsc02.worldnet.att.net>
You can change the icon's command to be
cmd /k perl xxxxx.pl
where /k means keep the shell around afterwards. Well, at least it works on
NT.
--
mailto:messkat@worldnet.att.net
------------------------------
Date: Mon, 06 Sep 1999 15:00:45 GMT
From: George Reese <borg@imaginary.com>
Subject: Re: mysql interview
Message-Id: <xGQA3.224$96.12158@ptah.visi.com>
Abigail <abigail@delanet.com> wrote:
: George Reese (borg@imaginary.com) wrote on MMCXCVII September MCMXCIII in
: ~~ You have no basis of making such a claim, and it is a completely
: ~~ absurd statement. The book is a good book.
: It has your name on it. How can it be?
You have no idea who I am and no meaningful experience with anything I
have done. So how can you possibly make such an observation?
You can't. You just have personal issues you are incapable of dealing
with and wish to poison the world with them.
--
George Reese (borg@imaginary.com)
http://www.imaginary.com/~borg
"The dead know only one thing: it's better to be alive"
-Joker in Full Metal Jacket
------------------------------
Date: Mon, 6 Sep 1999 22:15:02 +0800
From: "Daniel Y.L." <linyong2000@990.net>
Subject: Need help! Thanks.
Message-Id: <7r0i96$6ra$1@news.ntu.edu.sg>
Hi, friends,
I just began to use Perl writing CGI program for me research project. But,
I met a strange problem: the CGI program can run correctly in Shell but
wrong in web page.
My CGI program is like this:
open (PIPEFROM, "$command|");
while (<PIPEFROM>)
{
print;
}
close PIPEFORM;
where, $command is another C program. I want to capture the $command output
and write into current HTML page. In the Shell, I can see all the output
are correct. But, when I upload the CGI to my UNIX server and run the form
(the form's action the this CGI program), the output HTML page is empty.
Why the two output are different? Please help me. Thanks a lot.
Lin Yong
------------------------------
Date: Mon, 6 Sep 1999 07:42:54 -0700
From: moseley@best.com (Bill Moseley)
Subject: Re: Need help! Thanks.
Message-Id: <MPG.123d72c72fb6ad74989709@nntp1.ba.best.com>
Daniel Y.L. (linyong2000@990.net) seems to say...
> My CGI program is like this:
>
> open (PIPEFROM, "$command|");
Check your open for failure. Print out $! to see what the problem is,
but the pipe many report success, even if the command fails.
> close PIPEFORM;
Same here. Check what close returns and report errors. Might look at $?
here, too, but you might read up on that, as I'm unclear when it is set.
> In the Shell, I can see all the output
> are correct. But, when I upload the CGI to my UNIX server and run the form
> (the form's action the this CGI program), the output HTML page is empty.
> Why the two output are different?
Two different environments. PATH different? Different permissions?
Don't forget to check the web server's log.
There's a CGI group that deals with CGI questions.
--
Bill Moseley mailto:moseley@best.com
pls note the one line sig, not counting this one.
------------------------------
Date: Mon, 06 Sep 1999 10:09:54 GMT
From: Wilf Williams <pm_williams@hotmail.com>
Subject: Net::FTP Unexpected EOF
Message-Id: <7r03td$dpi$1@nnrp1.deja.com>
Hi all,
I have written a script to check and get files from a ftp Site, this
works fine if I am not behing the firewall, but when I use the firewall
(and i'm obliged to ) I can not get the file or file listings.
I'm on 519 of activstate perl, Wingate 2.1d Net::ftp 2.33
My script goes like this
$ftp = Net::FTP->new($hostname, Firewall => $firewall_host,
Timeout=>120, Passive=>False, Debug=>1 ) or die "Cannot connect \n";
$ftp->login($user,$password)or die "can not login \n";
$ftp->cwd($dir) or die "cannot cwd to $dir \n" ;
$ftp->ascii; #Set Transfer mode
$haha=$ftp->dir('\\'); #<<<<<<<Dies Here !!!!!
print @$haha;
foreach $haha(@haha){
print "$haha \n";
}
Net::FTP=GLOB(0x9a88ac)<<<
Net::FTP=GLOB(0x9a88ac)<<< This system is monitored and protected by
Net::FTP=GLOB(0x9a88ac)<<< Network Associates.
Net::FTP=GLOB(0x9a88ac)<<<
***************************************************
Net::FTP=GLOB(0x9a88ac)<<< 230 Anonymous user logged in.
Net::FTP=GLOB(0x9a88ac)>>> AUTH
Net::FTP=GLOB(0x9a88ac)<<< 500 'AUTH ': command not understood
Net::FTP=GLOB(0x9a88ac)>>> CWD \pub\antivirus\datfiles
Net::FTP=GLOB(0x9a88ac)<<< 250 CWD command successful.
Net::FTP=GLOB(0x9a88ac)>>> TYPE A
Net::FTP=GLOB(0x9a88ac)<<< 200 Type set to A.
Net::FTP=GLOB(0x9a88ac)>>> PASV
Net::FTP=GLOB(0x9a88ac)<<< 227 Entering passive mode
(136,173,63,16,5,36)
Net::FTP=GLOB(0x9a88ac)>>> LIST \
Net::FTP: Unexpected EOF on command channel at
C:\DATA\Develop\ftp\ftpclient.pl
line 12
Net::FTP=GLOB(0x9a88ac)>>> PASV
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 6 Sep 1999 14:15:24 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <7r0i9s$bdo$2@info2.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 30 Aug 1999 14:16:32 GMT and ending at
06 Sep 1999 06:53:47 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) 1999 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: 228 (47.4% of all posters)
Articles: 315 (27.1% of all articles)
Volume generated: 489.3 kb (25.5% of total volume)
- headers: 234.2 kb (4,888 lines)
- bodies: 250.7 kb (8,653 lines)
- original: 192.7 kb (6,836 lines)
- signatures: 4.0 kb (104 lines)
Original Content Rating: 0.768
Averages
========
Posts per poster: 1.4
median: 1.0 post
mode: 1 post - 176 posters
s: 1.1 posts
Message size: 1590.5 bytes
- header: 761.5 bytes (15.5 lines)
- body: 815.1 bytes (27.5 lines)
- original: 626.3 bytes (21.7 lines)
- signature: 12.9 bytes (0.3 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
7 11.8 ( 6.0/ 5.7/ 3.1) Alex Rhomberg <rhomberg@ife.ee.ethz.ch>
7 8.0 ( 4.1/ 3.9/ 2.5) Colin R . DeVilbiss <crdevilb@mtu.edu>
7 14.7 ( 5.0/ 9.6/ 7.6) Andrew Gray <agray@infoscience.otago.ac.nz>
5 7.5 ( 4.1/ 3.4/ 2.8) ronERASEjeffries@ERASEacm.org (Ronald E Jeffries)
5 6.0 ( 4.4/ 1.5/ 1.5) ICEMOUNTAIN@prodigy.net
4 5.5 ( 3.2/ 2.2/ 1.3) "Andrew Whitaker" <bigsleep@dircon.co.uk>
4 4.8 ( 2.8/ 2.0/ 0.7) Christoph Bauer <bauer@zrz.tu-berlin.de>
3 4.9 ( 2.8/ 2.1/ 1.4) Daniel Kirkdorffer <see.email.address@bottom.in.sig>
3 7.4 ( 2.7/ 4.7/ 2.5) cb <ecliptica.ww@nospam.virgin.net>
3 6.5 ( 1.8/ 4.7/ 2.4) epsteinj@equity.wharton.upenn.edu (Jeffrey Epstein)
These posters accounted for 4.1% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
14.7 ( 5.0/ 9.6/ 7.6) 7 Andrew Gray <agray@infoscience.otago.ac.nz>
11.9 ( 2.6/ 9.2/ 6.7) 3 "Sune Carlzon" <scarlzong@hotmail.com>
11.8 ( 6.0/ 5.7/ 3.1) 7 Alex Rhomberg <rhomberg@ife.ee.ethz.ch>
8.4 ( 1.6/ 6.8/ 6.8) 2 Michiel Kreutzer <mkreutzer@my-deja.com>
8.0 ( 4.1/ 3.9/ 2.5) 7 Colin R . DeVilbiss <crdevilb@mtu.edu>
7.6 ( 2.1/ 4.9/ 1.0) 3 gremlin <gremlin_NO_SPAM_@ix.netcom.com>
7.5 ( 4.1/ 3.4/ 2.8) 5 ronERASEjeffries@ERASEacm.org (Ronald E Jeffries)
7.4 ( 2.7/ 4.7/ 2.5) 3 cb <ecliptica.ww@nospam.virgin.net>
6.5 ( 1.8/ 4.7/ 2.4) 3 epsteinj@equity.wharton.upenn.edu (Jeffrey Epstein)
6.1 ( 1.7/ 4.4/ 4.4) 2 comp.lang.perl.misc@list.bentium.net
These posters accounted for 4.7% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.5 / 1.5) 5 ICEMOUNTAIN@prodigy.net
0.997 ( 1.1 / 1.1) 3 but86@my-deja.com
0.890 ( 1.2 / 1.3) 3 lisa_mcnally@mail.crc.com (McNally, Lisa)
0.814 ( 2.8 / 3.4) 5 ronERASEjeffries@ERASEacm.org (Ronald E Jeffries)
0.785 ( 7.6 / 9.6) 7 Andrew Gray <agray@infoscience.otago.ac.nz>
0.726 ( 6.7 / 9.2) 3 "Sune Carlzon" <scarlzong@hotmail.com>
0.691 ( 1.0 / 1.4) 3 agutier@my-deja.com
0.688 ( 0.8 / 1.2) 3 SG <sg@midwal.ca>
0.639 ( 1.4 / 2.1) 3 Daniel Kirkdorffer <see.email.address@bottom.in.sig>
0.634 ( 2.5 / 3.9) 7 Colin R . DeVilbiss <crdevilb@mtu.edu>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.688 ( 0.8 / 1.2) 3 SG <sg@midwal.ca>
0.639 ( 1.4 / 2.1) 3 Daniel Kirkdorffer <see.email.address@bottom.in.sig>
0.634 ( 2.5 / 3.9) 7 Colin R . DeVilbiss <crdevilb@mtu.edu>
0.581 ( 1.3 / 2.2) 4 "Andrew Whitaker" <bigsleep@dircon.co.uk>
0.539 ( 2.5 / 4.7) 3 cb <ecliptica.ww@nospam.virgin.net>
0.535 ( 3.1 / 5.7) 7 Alex Rhomberg <rhomberg@ife.ee.ethz.ch>
0.514 ( 2.4 / 4.7) 3 epsteinj@equity.wharton.upenn.edu (Jeffrey Epstein)
0.361 ( 0.7 / 2.0) 4 Christoph Bauer <bauer@zrz.tu-berlin.de>
0.255 ( 0.8 / 3.0) 3 Hugh Fader <hfader@hotpop.com>
0.204 ( 1.0 / 4.9) 3 gremlin <gremlin_NO_SPAM_@ix.netcom.com>
17 posters (7%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
4 gingiss@earthonlin.com
3 craigl@rimpoche.chi.il.us
3 ljames@apollo.apollo3.com (Larry James)
3 "Ben Gunter" <bgunter@bsat.com>
3 Y <yunus000@england.com>
3 "Norbert Ehreke" <norbert.ehreke@deutschehyp.de>
3 Michiel Kreutzer <mkreutzer@my-deja.com>
3 Sam Alexander <saminma@yahoo.com>
3 Paul Hill <phill@myriad.com>
3 "Simon Anthony" <santhony@ea.com>
------------------------------
Date: 6 Sep 1999 09:54:10 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: newbie suffering with modules
Message-Id: <37d38132_1@newsread3.dircon.co.uk>
xujin <xujin@mail.wwwinfo.net.cn> wrote:
> Hi
>
> I am newbie to perl and programming. Where can I find some documents about
> module and existing modules(such as ftp,socket)?
>
All good modules come with their documentation. On a properly set up
Unix system you should be able to do for instance:
man Net::FTP
On a poorly set up Unix System or on Windows you can do:
perldoc Net::FTP
There is also a document called perlmodlib which gives general information
about the standard modules.
/J\
--
"I was the chief make-up artist on the Titanic" - Tina Earnshaw, Chief
Make-Up Artist, Titanic
------------------------------
Date: Mon, 06 Sep 1999 14:24:36 GMT
From: mikedel@ix.netcom.com
Subject: Re: newbie suffering with modules
Message-Id: <7r0iqq$njt$1@nnrp1.deja.com>
There are a couple books I have found absolutely indispensable
when learning perl.
One is called Learning Perl, which you can get more info here:
<a
href="http://www.amazon.com/exec/obidos/ASIN/1565922840/productlink>Lear
ning Perl</a>
The other is called Programming Perl
<a
href="http://www.amazon.com/exec/obidos/ASIN/1565921496/productlink>Prog
ramming Perl</a>
In my opinion, there constitute the bible on writing perl scripts. I
hope this helps.
In article <rt6sp5qh8os53@news.supernews.com>,
"xujin" <xujin@mail.wwwinfo.net.cn> wrote:
> Hi
>
> I am newbie to perl and programming. Where can I find some documents
about
> module and existing modules(such as ftp,socket)?
>
> Any suggestion and idea would be appreciated.
>
> Thanks in advance.
>
> Good luck!
>
> My email: xujin@mail.wwwinfo.net.cn
>
>
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 6 Sep 1999 09:44:01 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Parsing links in HTML files
Message-Id: <37d37ed1_1@newsread3.dircon.co.uk>
Neale Morison <nmorison@ozemail.com.au> wrote:
> Hi folks. I want to parse <A HREF . . .> tags in HTML files to perform
> site management functions like finding bad links, orphan files with no
> links to them, converting absolute to relative links, optimising
> relative links and so on.
> I would like to use the most appropriate Perl module.
HTML::LinkExtor
/J\
--
"Is there no demand for mechanical pussies?" - Mrs Slocombe
------------------------------
Date: 6 Sep 1999 13:45:23 GMT
From: revjack <revjack@radix.net>
Subject: Re: perl mail filter?
Message-Id: <7r0ghj$t2k$1@news1.Radix.Net>
Keywords: Hexapodia as the key insight
Dan Nguyen explains it all:
:revjack <revjack@radix.net> wrote:
:: Just curious, has anyone here ever written their own procmail-style
:: e-mail filter using perl? I keep getting these suicidal impulses to
:: do this every six months or so, and I was wondering if anyone had any
:: success/failure stories or advice.
:Is there any point?
Fun?
:You'll probably end up using procmail to pipe it
:to your perl script anyway.
Why? I use my .forward file to pipe it to my perl script.
------------------------------
Date: Mon, 06 Sep 1999 09:37:51 GMT
From: Jeremy Gurney <c4jgurney@my-deja.com>
Subject: Re: Problems with close
Message-Id: <7r021f$cln$1@nnrp1.deja.com>
In article <rt6rlub18os25@corp.supernews.com>,
"meteorman" <twade@nobmispam.net> wrote:
> I am having problems with the below code when I call the system cp
command.
<snip>
> open (HDR, "$hdr");
<snip>
> close HDR;
<snip>
First things first - always make sure your open and close are working.
open (HDR, "$hdr") || die "Open $hdr failed: $!";
close (HDR) || die "Close $hdr failed: $!";
HTH
Jeremy Gurney
SAS Programmer | Proteus Molecular Design Ltd.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 6 Sep 1999 23:47:13 +1000
From: "Neale Morison" <nmorison@ozemail.com.au>
Subject: Randal vandal aborts Schwartz
Message-Id: <MFPA3.8135$1E2.53591@ozemail.com.au>
Mr Schwartz was kind enough to point me to his web site for help with
examples of the LWP module. There I found a piece of code that appeared to
be the answer to my admittedly nerdy prayers:
http://www.stonehenge.com/merlyn/WebTechniques/col14.html
Imagine my dismay when I received the message:
Can't locate object method "authority" via package "URI::mailto" at
/perl/site/lib/URI/WithBase.pm line 41.
What is that going to do to my self-esteem?
There is a <a href="mailto:...> tag in the file being parsed when the error
occurs, and I'm guessing that somewhere along the line this is causing
WithBase to call mailto->authority, but I do not know why or how to fix it.
Another odd problem I found was that when I used this code over the LAN at
work, the content_type was often returned empty, so the code didn't parse
the files. Over a modem connection at home content_type read correctly.
I'm using ActiveState Perl on a Windows machine.
I'd appreciate any comments on this. Regards, Neale
------------------------------
Date: Mon, 06 Sep 1999 16:47:05 +0200
From: Michael Scheferhoff <m.scheferhoff@gmx.de>
Subject: Regular Expressions
Message-Id: <37D3D3E8.E725FC2C@gmx.de>
Hello,
ich have a problem with regular expressions. I have this string or
something like this:
<caddaar<test<hello
If want to cut everything including the second "<".
Does anybody know the expression for this?
Thanks,
Michael
------------------------------
Date: 6 Sep 1999 14:15:24 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <7r0i9s$bdo$1@info2.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 30 Aug 1999 14:16:32 GMT and ending at
06 Sep 1999 06:53:47 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) 1999 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
Totals
======
Posters: 481
Articles: 1163 (420 with cutlined signatures)
Threads: 409
Volume generated: 1920.3 kb
- headers: 867.9 kb (17,777 lines)
- bodies: 988.6 kb (32,461 lines)
- original: 672.9 kb (23,807 lines)
- signatures: 62.6 kb (1,389 lines)
Original Content Rating: 0.681
Averages
========
Posts per poster: 2.4
median: 1 post
mode: 1 post - 291 posters
s: 4.9 posts
Posts per thread: 2.8
median: 2 posts
mode: 1 post - 141 threads
s: 3.4 posts
Message size: 1690.8 bytes
- header: 764.2 bytes (15.3 lines)
- body: 870.4 bytes (27.9 lines)
- original: 592.4 bytes (20.5 lines)
- signature: 55.1 bytes (1.2 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
69 112.4 ( 42.9/ 61.6/ 35.9) lr@hpl.hp.com (Larry Rosler)
35 53.7 ( 27.0/ 21.3/ 9.9) Jonathan Stowe <gellyfish@gellyfish.com>
30 38.9 ( 17.2/ 21.7/ 12.5) Ala Qumsieh <aqumsieh@matrox.com>
27 37.1 ( 22.1/ 15.0/ 10.2) Makarand Kulkarni <makkulka@cisco.com>
26 50.5 ( 21.9/ 23.4/ 16.4) mgjv@comdyn.com.au (Martien Verbruggen)
24 32.2 ( 14.4/ 15.7/ 9.3) moseley@best.com (Bill Moseley)
24 40.7 ( 17.7/ 22.1/ 12.3) elephant@squirrelgroup.com (elephant)
23 68.4 ( 17.9/ 47.4/ 42.3) tchrist@mox.perl.com (Tom Christiansen)
19 38.5 ( 16.3/ 15.0/ 6.4) Uri Guttman <uri@sysarch.com>
15 24.7 ( 12.8/ 11.3/ 5.8) Rick Delaney <rick.delaney@home.com>
These posters accounted for 25.1% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
112.4 ( 42.9/ 61.6/ 35.9) 69 lr@hpl.hp.com (Larry Rosler)
68.4 ( 17.9/ 47.4/ 42.3) 23 tchrist@mox.perl.com (Tom Christiansen)
53.7 ( 27.0/ 21.3/ 9.9) 35 Jonathan Stowe <gellyfish@gellyfish.com>
50.5 ( 21.9/ 23.4/ 16.4) 26 mgjv@comdyn.com.au (Martien Verbruggen)
40.7 ( 17.7/ 22.1/ 12.3) 24 elephant@squirrelgroup.com (elephant)
38.9 ( 17.2/ 21.7/ 12.5) 30 Ala Qumsieh <aqumsieh@matrox.com>
38.5 ( 16.3/ 15.0/ 6.4) 19 Uri Guttman <uri@sysarch.com>
37.1 ( 22.1/ 15.0/ 10.2) 27 Makarand Kulkarni <makkulka@cisco.com>
32.2 ( 14.4/ 15.7/ 9.3) 24 moseley@best.com (Bill Moseley)
24.7 ( 12.8/ 11.3/ 5.8) 15 Rick Delaney <rick.delaney@home.com>
These posters accounted for 25.9% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.5 / 1.5) 5 ICEMOUNTAIN@prodigy.net
1.000 ( 5.4 / 5.4) 7 gabor@vmunix.com (Gabor)
0.932 ( 1.0 / 1.1) 8 Jimmy Humphrey <jimmy@blackhole-designs.com>
0.892 ( 42.3 / 47.4) 23 tchrist@mox.perl.com (Tom Christiansen)
0.856 ( 9.1 / 10.7) 7 John Callender <jbc@shell2.la.best.com>
0.856 ( 4.9 / 5.8) 7 abigail@delanet.com
0.814 ( 2.8 / 3.4) 5 ronERASEjeffries@ERASEacm.org (Ronald E Jeffries)
0.785 ( 7.6 / 9.6) 7 Andrew Gray <agray@infoscience.otago.ac.nz>
0.733 ( 1.4 / 1.9) 5 burt@ici.net (Burt lewis)
0.709 ( 3.3 / 4.6) 6 bart.lateur@skynet.be (Bart Lateur)
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.489 ( 2.4 / 4.9) 6 lee.lindley@viasystems.com
0.475 ( 5.2 / 10.9) 11 efflandt@xnet.com
0.465 ( 9.9 / 21.3) 35 Jonathan Stowe <gellyfish@gellyfish.com>
0.463 ( 1.3 / 2.8) 5 Rolf Raven <rolf.raven@quantis.nl>
0.459 ( 3.6 / 7.8) 8 ilya@math.ohio-state.edu (Ilya Zakharevich)
0.459 ( 1.3 / 2.8) 5 ced@bcstec.ca.boeing.com (Charles DeRykus)
0.455 ( 1.6 / 3.5) 7 Dan Nguyen <nguyend7@msu.edu>
0.422 ( 6.4 / 15.0) 19 Uri Guttman <uri@sysarch.com>
0.355 ( 3.2 / 9.0) 7 "Nando" <nando@tetecma.com>
0.351 ( 4.4 / 12.5) 8 mrbog@my-deja.com
40 posters (8%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
24 Simulating Carriage Returns
21 Case insensitive SQL query
14 Counting duplicate list elements in Perl
13 tee cmd in PERL?
13 shebang question for Win32 Perl/Apache
12 File listing
12 darndest regex thing
12 Where a subroutine gets called from?
11 Perl Y2K Bugs on the Internet
11 perl equivalent of a Unix command line sort?
These threads accounted for 12.3% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
45.9 ( 19.0/ 25.2/ 12.1) 24 Simulating Carriage Returns
43.1 ( 17.5/ 24.6/ 13.8) 21 Case insensitive SQL query
29.2 ( 11.4/ 16.6/ 11.6) 12 File listing
24.8 ( 2.7/ 21.8/ 21.3) 4 Q: How to communicate with the serial port?
22.9 ( 8.4/ 12.8/ 9.0) 11 perl equivalent of a Unix command line sort?
22.2 ( 8.7/ 13.1/ 7.4) 11 Perl Y2K Bugs on the Internet
20.9 ( 10.7/ 9.7/ 5.3) 13 shebang question for Win32 Perl/Apache
20.4 ( 10.8/ 7.3/ 3.8) 14 Counting duplicate list elements in Perl
19.7 ( 9.6/ 9.2/ 5.0) 12 darndest regex thing
19.0 ( 9.9/ 7.7/ 5.5) 13 tee cmd in PERL?
These threads accounted for 14.0% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.910 ( 4.9/ 5.4) 5 $x=('a','b','c','d'); $x=('a'..'d'); $x=(($m,$n)=('a'..'d'))
0.817 ( 2.0/ 2.5) 6 Searching with 2 input fields
0.798 ( 2.2/ 2.8) 9 editors??
0.788 ( 2.3/ 2.9) 5 Request for Comments: www.perl.com
0.765 ( 6.0/ 7.9) 6 Creating runtime variables.
0.738 ( 5.4/ 7.3) 6 Routine for normalising file paths
0.735 ( 3.3/ 4.5) 8 CGI in PERL
0.722 ( 2.0/ 2.8) 5 String Length
0.721 ( 3.6/ 4.9) 7 Looking for tools.
0.716 ( 5.5/ 7.7) 13 tee cmd in PERL?
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.501 ( 2.7 / 5.4) 5 Date / time problem (resolution)
0.497 ( 1.0 / 2.1) 5 How to Process MULTIPLE select values
0.497 ( 4.3 / 8.6) 7 Tracking progress of a Net::FTP download
0.486 ( 1.3 / 2.7) 5 CGI DownLoad File on the PC Client
0.482 ( 12.1 / 25.2) 24 Simulating Carriage Returns
0.475 ( 4.6 / 9.7) 5 is our reese the author of mysql book?
0.458 ( 3.9 / 8.4) 8 Using grep to match complete words
0.449 ( 2.0 / 4.4) 7 how to make sort() case insensitive?
0.419 ( 3.1 / 7.3) 5 Sockets and Threads
0.340 ( 1.6 / 4.7) 5 do 'file' for config file and use strict
64 threads (15%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
32 comp.lang.perl.modules
12 comp.lang.perl
9 alt.perl
9 comp.os.linux.misc
8 comp.unix.shell
8 comp.unix.programmer
6 comp.lang.perl.moderated
5 comp.lang.c
4 comp.lang.javascript
3 comp.unix.solaris
Top 10 Crossposters
===================
Articles Address
-------- -------
9 lr@hpl.hp.com (Larry Rosler)
4 gingiss@earthonlin.com
4 Sushant Gargya <sushant@hindustan.vnet.net>
3 "Norbert Ehreke" <norbert.ehreke@deutschehyp.de>
3 Paul Hill <phill@myriad.com>
3 Y <yunus000@england.com>
3 Sam Alexander <saminma@yahoo.com>
3 Michiel Verhoef <michiel.verhoef@wkap.nl>
3 finsol@ts.co.nz
3 Michiel Kreutzer <mkreutzer@my-deja.com>
------------------------------
Date: Mon, 06 Sep 1999 13:08:05 +0200
From: Christoph Bauer <bauer@zrz.tu-berlin.de>
Subject: Re: tee cmd in PERL?
Message-Id: <37D3A095.BAAEECA2@zrz.tu-berlin.de>
RayG wrote:
>
> of all your responses you forgot IO::File::Multi
>
Sorry, but this was my only response.
And yes i forgot IO:...
Chris
------------------------------
Date: Mon, 06 Sep 1999 01:41:56 -0400
From: edgewood+news@pobox.com (Ed Blackman)
Subject: Re: Tracking progress of a Net::FTP download
Message-Id: <kQ103AJ7KFMW092yn@pobox.com>
cb <ecliptica.ww@nospam.virgin.net> wrote:
>I'm working on a Perl program which automates a regular download of
>files using Net::FTP with Perl 5.005 and FreeBSD 3.2 UNIX on a P2/300.
>It works fine, but, as it is, the best ways I can come up with of
>telling whether the download is proceeding normally are (1) watch the
>Hard Drive light to see whether stuff is being written to disk, or (2)
>open another TTY console and issue "ls -l [filename]" commands to see
>(hopefully) the number of bytes increasing.
Instead of using the get() method to retrieve a file all at once, use
the retr() method to create a connection, then use the read() method to
read chunks of the file in a loop. This allows you to do other things
in the loop, like printing a status message.
An extract from one of my scripts:
print "\nRetrieving $name ($size bytes) to $localname: ";
$ftp->binary;
my $conn = $ftp->retr($name);
open(LOCAL, ">$localname") or die "\nCan't open $localname: $!";
binmode(LOCAL);
my $buffer;
while($conn->read($buffer, 8192)) {
print LOCAL $buffer;
print '#';
}
close LOCAL;
$conn->close;
$ftp->quit;
Ed
------------------------------
Date: Mon, 6 Sep 1999 07:32:51 -0700
From: moseley@best.com (Bill Moseley)
Subject: using code written in C (anyone know about stemming?)
Message-Id: <MPG.123d7071c29264b4989708@nntp1.ba.best.com>
I'm using Text::English to try to match stemmed words used in a search
engine. Just my luck that they don't stem the same.
Text::English Indexer -> Indexer
stem.c Indexer -> Index
Hard to know (for me) which is right.
I have access to the stem.c routine used by the search engine. If I
want to use that in my perl program is XS the only way to go? I guess I
could compile a separate C program and call it, but I have to call it
thousands of times each time the program is run.
Am I correct that if I want to use XS I need to re-link perl? And if I
don't have access to the perl installed then I'd need to build a
separate version of perl for my use?
Do I have any other options for using this C code in my perl program?
Thanks,
--
Bill Moseley mailto:moseley@best.com
pls note the one line sig, not counting this one.
------------------------------
Date: 6 Sep 1999 11:07:26 GMT
From: Vardhan Varma@basant.cadence.com (Vardhan Varma)
Subject: using numberd fds
Message-Id: <l@bota>
i've to sort of popen a perl program, for reading as well as writing.
since popen won't suppoer bothway, i have to coin my own pipe+fork+exec.
Now to use stdin as well as stdout of my chile ( which is perl script),
i'll have to pipe() twice. for stdin and stdout ( ignore stderr for moment)
or i can pass the file description number of pipe() result on command line.
Is there a way for perl to use a arbit fd as <> for reading. something
like opening /dev/fd/nnn or /proc/fd/nnn , but in a more portable way.
--
(defvar VardhanVarma '( ( mailto:vardhan phoneto:4123 webto:basant:8080 ))
( mailto:vardhan@bitsmart.com phoneto:+91-118-562842x4123
webto:members.tripod.com/~vardhan ) "A variable" )
------------------------------
Date: 06 Sep 1999 07:15:27 -0400
From: meow <meowing@banet.net>
Subject: Re: using numberd fds
Message-Id: <871zcc1eb4.fsf@slip166-72-251-226.ma.us.ibm.net>
Vardhan Varma <Vardhan> wrote:
> i've to sort of popen a perl program, for reading as well as writing.
> since popen won't suppoer bothway, i have to coin my own pipe+fork+exec.
Have you looked at IPC::Open2 and IPC:Open3? It sounds like you're
trying to reimplement exactly what they do.
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
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.misc (and this Digest), send your
article to perl-users@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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq" from
almanac@ruby.oce.orst.edu. The real FAQ, as it appeared last in the
newsgroup, can be retrieved with the request "send perl-users FAQ" from
almanac@ruby.oce.orst.edu. Due to their sizes, neither the Meta-FAQ nor
the FAQ are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq" from
almanac@ruby.oce.orst.edu.
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 V9 Issue 722
*************************************
