[13321] in Perl-Users-Digest
Perl-Users Digest, Issue: 731 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Sep 7 13:07:28 1999
Date: Tue, 7 Sep 1999 10:05:14 -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 Tue, 7 Sep 1999 Volume: 9 Number: 731
Today's topics:
Re: Automating Secure Copy using Perl <jpk28@cam.ac.uk>
Re: Automating Secure Copy using Perl (Kyler Laird)
Re: Automating Secure Copy using Perl (PeterW)
Re: case for open lang on win32 - fill in the table <jwk6@earthlink.net>
Re: Case insensitive SQL query mrbog@my-deja.com
cgi-lib.pl ( writing to a file ) <rmramos@aud.alcatel.com>
convert word file -> text file <olivier.maas@at-lci.com>
Re: Emacs Freezes Editing Perl Scripts grymoire@my-deja.com
Re: fork? <dan@tuatha.sidhe.org>
Re: fork? <dan@tuatha.sidhe.org>
Re: group script... AWK? PERL? SH? (Henry Churchyard)
How can two Perl programs exchange data directly? <thorsten_kuske@gmx.net>
How to handle with the Very Large Number to use in RSA (Ryan Ngi)
Re: How to handle with the Very Large Number to use in <rhomberg@ife.ee.ethz.ch>
Re: How to view code as text in working cgi script <david.hiskiyahu@alcatel.be>
Re: HTML-to-Perl CGI converter <keithmur@mindspring.com>
multicast support in perl (Rex Fowler)
Re: mysql interview <borg@imaginary.com>
Re: Perl and Threads <steve@nextopia.com>
Re: perl mail filter? (I.J. Garlick)
Re: perl mail filter? (Abigail)
Re: Perl vs. Python as 1st language? (Randal L. Schwartz)
Re: Perl/Tk Installation (Clinton Pierce)
Re: Please help a newbe jp_48504@my-deja.com
setrlimit functionality? (Rick Fadler)
Re: suggestion to revise grep (another Q: reference com <david.hiskiyahu@alcatel.be>
Re: teen angst. <borg@imaginary.com>
Re: Y2K bugs on the Internet <keithmur@mindspring.com>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 07 Sep 1999 16:15:29 +0100
From: Julian King <jpk28@cam.ac.uk>
Subject: Re: Automating Secure Copy using Perl
Message-Id: <37D52C11.274D153@cam.ac.uk>
floodrk@my-deja.com wrote:
[ snip problem & perl ]
What I have tended to do when I needed this was to use ssh and cat
to move files around. By no means perfect, but it worked for me.
I think that would then work... as ever YMMV
Julian
--
Julian King | There once was a limerick .sig | My opinions, all
Computer Officer | that really was not very big | mine. You can't
University of Cambridge | It was going quite fine | have them!
Unix Support | Till it reached the fourth line | P.S. It's a joke
------------------------------
Date: 7 Sep 1999 16:16:25 GMT
From: laird@freedom.ecn.purdue.edu (Kyler Laird)
Subject: Re: Automating Secure Copy using Perl
Message-Id: <7r3dop$1gr$1@mozo.cc.purdue.edu>
floodrk@my-deja.com writes:
>Recently, I've had a lot of problems with scp crashing out in the
>middle of large file transfers.
This alone would make me want to at least
investigate rsync (via ssh).
--kyler
------------------------------
Date: Tue, 7 Sep 1999 17:10:13 +0100
From: PeterW@freenet.co.uk (PeterW)
Subject: Re: Automating Secure Copy using Perl
Message-Id: <8E3AAEAAFPeterWfreenetcouk@reepicheep.logica.co.uk>
jpk28@cam.ac.uk (Julian King) wrote in <37D52C11.274D153@cam.ac.uk>:
>floodrk@my-deja.com wrote:
>[ snip problem & perl ]
>
>What I have tended to do when I needed this was to use ssh and cat
>to move files around. By no means perfect, but it worked for me.
>I think that would then work... as ever YMMV
>
>Julian
Would rsync (Andrew Tridgell's software) work over ssh?
Peter
------------------------------
Date: Tue, 7 Sep 1999 10:53:22 -0500
From: "Jason W. Kohlhoff" <jwk6@earthlink.net>
Subject: Re: case for open lang on win32 - fill in the table
Message-Id: <7r3cjb$i4e$1@oak.prod.itd.earthlink.net>
Well, Arved, it's your reality, and you can make believe what you want.
What I know has absolutely nothing to do with the what you think you know.
I just want you schmucks to put up or shut up for a change.
The only reason he posted the message in microsoft.public.scripting.wsh was
to piss us off, so I'm just returning the favor.
Arved Sandstrom <Arved_37@chebucto.ns.ca> wrote in message
news:Arved_37-0709990651190001@dyip-11.chebucto.ns.ca...
> In article <7r1lhb$fm6$1@ash.prod.itd.earthlink.net>, "Jason Kohlhoff"
> <jwk6@earthlink.net> wrote:
>
> > I have something to add...
> >
> > You Perl guys are all full of "open" shit...
> >
> > I doubt you could write a script for a Windows machine that could not be
> > done(possibly even better) with WSH and VBS, or JS.
> >
> > Jason Kohlhoff
> >
> No need to be so defensive, Jason. If the stuff you mention is all they
> taught during that short but expensive mail-order Windows programming
> course, be proud of what *you* learned.
>
> Arved
------------------------------
Date: Tue, 07 Sep 1999 15:11:19 GMT
From: mrbog@my-deja.com
Subject: Re: Case insensitive SQL query
Message-Id: <7r39tp$kdf$1@nnrp1.deja.com>
> Oh, you mean like ask a completely off-topic question?
Completely off topic quesiton!????????! You're going to tell me that
asking how to do something in sql VIA PERL is "completely off topic"?!!!
My god, if that's "completely off topic" then I wonder what the hell
you'd say if someone went to this group and asked about Pokeman trading
cards.
And now you're going to tell me how pokeman trading cards and sending
SQL commands via perl are equally "copletely off topic for this group"?
god what an idiot.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 07 Sep 1999 10:47:19 -0500
From: "Rogelio M. Ramos" <rmramos@aud.alcatel.com>
Subject: cgi-lib.pl ( writing to a file )
Message-Id: <37D53387.8C73B9@aud.alcatel.com>
What does cgi-lib.pl do with open files ?
#!/apps/gnu/bin/perl
#require("cgi-lib.pl");
open( FILE,">./testfile") || die ("Can't open file: $! \n");
print "Error: $!\n";
print FILE "hello world";
no error by commenting the cgi-lib.pl
Error:
#!/apps/gnu/bin/perl
#require("cgi-lib.pl");
open( FILE,">./testfile") || die ("Can't open file: $! \n");
print "Error: $!\n";
print FILE "hello world";
but when uncommented results are :
Error: No such file or directory
What i want to eventually do is:
#!/apps/gnu/bin/perl
require("cgi-lib.pl");
print &PrintHeader;
print "<html>\n";
print "<head> <title> Testing </title></head>\n";
print "<body>\n";
open( FILE,">./testfile") || die ("Can't open file: $! \n");
print "Error: $!\n";
print FILE "hello world";
print "</body>";
print "</html>";
But some how the cgi-lib.pl is not letting me.
------------------------------
Date: Tue, 07 Sep 1999 17:18:24 +0200
From: Olivier Maas <olivier.maas@at-lci.com>
Subject: convert word file -> text file
Message-Id: <37D52CBF.9D8EFC33@at-lci.com>
Hi,
Has anyone converted successfully a word file to a text file in a perl
script without using
the "application" Word. ie, is there a converter that would not really
"open" word to do the work?
thanks for any clue
blue skies and soft landings
olivier
please also mail answer to maas@ensae.fr
passme
------------------------------
Date: Tue, 07 Sep 1999 16:23:17 GMT
From: grymoire@my-deja.com
Subject: Re: Emacs Freezes Editing Perl Scripts
Message-Id: <7r3e57$nqd$1@nnrp1.deja.com>
In article <slrn7t9mpa.j3t.sholden@pgrad.cs.usyd.edu.au>,
sholden@cs.usyd.edu.au wrote:
> What functionality does emacs have that vi doesn't - for editing text,
I don't
> care about reading news, etc just editing text...
One of my favorite advantages (when programming)
is the ability to edit several dozen files simultaneously.
Then I press the keystrke bound to "make" and it saves all
unsaved files, optionally makes numbered backups, runs "make -k",
and shows you ALL of the compile errors/warnings. Then press
the Control-X `
key and emacs scans the make output, opens the file if
necessary, and moves the cursor to the line with the error/warning.
Fix that error, hit the keystroke again, and it goes to the NEXT error.
Repeat untill all of the errors/warnings are fixed. Then press the
"Make" function again. This really helps when you are fixing bugs in a
dozen files.
Alas, the syntax of Perl's error messages
isn't regular enough for this to work I guess.
I really miss this when I work with Perl.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 07 Sep 1999 16:48:49 GMT
From: Dan Sugalski <dan@tuatha.sidhe.org>
Subject: Re: fork?
Message-Id: <RlbB3.390$9v5.5433@news.rdc1.ct.home.com>
Dan Sugalski <dan@tuatha.sidhe.org> wrote:
> (And threads are *not* tough to program--they're really a snap. I don't
> understand the mental blocks folks have about 'em. OTOH, signals drive me
> loopy. To each his own...)
As I've had pointed out to me in private mail, this is defintely a matter
of opinion. Some folks (like me) find threads really easy to deal with.
And others don't. That I find them easy probably just means I'm weird...
Dan
------------------------------
Date: Tue, 07 Sep 1999 17:01:12 GMT
From: Dan Sugalski <dan@tuatha.sidhe.org>
Subject: Re: fork?
Message-Id: <sxbB3.391$9v5.5388@news.rdc1.ct.home.com>
meow <meowing@banet.net> wrote:
> Dan Sugalski <dan@tuatha.sidhe.org> wrote:
> {in response to my more or less panning Perl's threading implementation}
>> Now, now, it's not that bad. Threads work on any system that implements
>> either the POSIX draft4 or final thread spec, as well as Win32, OS/2, and
>> (I think) the Next.
> Up to a point. I wouldn't be at all surprised if the little ditties
> in the test directories behave the same way on all those machines;
> it's when real work is brought it.
If your vendor has a compliant thread library then behaviour will be the
same everywhere. If it's not, then you're screwed. This is no different
than having a broken libc break perl (As happened up until recently with
some vendor's sort routines)
>> The implementation's just fine, thanks,
> No, it hasn't been just fine at all. There have been problems with
> rather basic functions like open() and unlink(), variable scoping,
> memory usage piling up long after references should have been long
> dead.
Yes, there are outstanding bugs with threads, though the open and unlink
ones are new to me. The two biggies at the moment are regex match
variables and over-refcounting args passed to new threads. (The latter may
not be a thread problem, actually, as you can make it happen even without
a threaded build).
I should've said the interface is fine rather than the implementation, as
the implementation does have some bugs still.
> These problems variously appeared or didn't appear with the same
> applications running under the same versions of Perl under different
> platforms. The same old stuff recoded into both C and Python did not
> exhibit any such problems. It's been slop in Perl.
Doubt it, actually. I have, on more than one occasion, found bugs in the
thread libraries that did not exhibit themselves with C programs that
tried to duplicate them. The perl interpreter puts a huge stress on most
system libraries and does tend to scare up bugs that would otherwise lay
dormant.
>> though the
>> docs are definitely lacking at the moment. The only quirks you need to
>> work around are bugs,
> Yes, big hairy bugs that won't stay put. It's been possible to work
> around this stuff, but babysitting Perl was taking too much time away
> from working on the applications.
That is why it's labelled experimental...
>> and there are fewer of those with each release. 5.6
>> should see things nicely solid.
> That should be a relief for people trying to work out useful ideas
> with it in the future.
>> There's definitely no portability problems-- threaded perl runs the same on
>> all systems threaded perl builds on.
> That's simply not been the case. Crashes and memory leaks
> reproducible on some systems but not all are not portable.
Yes, but that probably means your vendor screwed up, not perl.
>> (And threads are *not* tough to program--they're really a snap.
> Absolutely, with good tools. To date, Perl has *not* been a good tool
> for programming with threads.
True enough. It's got the potential to be a good tool, potential that will
(hopefully) be realized in 5.6.
Dan
------------------------------
Date: 7 Sep 1999 11:43:39 -0500
From: churchyh@ccwf.cc.utexas.edu (Henry Churchyard)
Subject: Re: group script... AWK? PERL? SH?
Message-Id: <7r3fbr$73p@piglet.cc.utexas.edu>
In article <37D50F62.CAAFBAFA@england.com>, Y <yunus000@england.com> wrote:
> I need a csv file generated containing the unix groups that all unix
> users belong to. The file needs to look something like this:
> user_a:group1,,,group4
> user_b:,,group3,group4
> Obviously the position of the groupname in the csv file is
> important. Lets say that a template superuser having all the groups
> would look like this:
> superuser:group1,group2,group3,group4,group5,group6
> The /etc/group file gives a listing of all users in a group: eg.
> group1:user_a
> group3:user_b
> group4:user_a,user_b
> What is the easiest way to derive the csv file that I need. Can any
> AWK/PERL gurus out there think of a nifty script?
AWK script:
BEGIN{FS=":";nogr=0}
/:/{++nogr;
nous=split($NF,arrtmp,",");
for (i=1;i<=nous;++i) {userarr[arrtmp[i]]=1;arr[arrtmp[i],nogr]=$1}}
END{for (user in userarr) {printf "%s:",user;
for (j=1;j<=nogr;++j) {printf "%s,",arr[user,j]};
printf "\n"}}
--
Henry Churchyard churchyh@ccwf.cc.utexas.edu http://www.crossmyt.com/hc/
------------------------------
Date: Tue, 07 Sep 1999 16:44:00 GMT
From: "Thorsten" <thorsten_kuske@gmx.net>
Subject: How can two Perl programs exchange data directly?
Message-Id: <01bef951$16e62000$75a551d4@unbekanb>
Hello,
I am a Perl newcomer and I tried hard to find out how to exchange data
directly between two Perl programs running, but I did not get along with
this. So it would be really great if you could help me!
Thank you very much,
Thorsten Kuske
email: thorsten_kuske@gmx.net
------------------------------
Date: Tue, 07 Sep 1999 16:57:41 GMT
From: ryanngi@hotmail.com (Ryan Ngi)
Subject: How to handle with the Very Large Number to use in RSA algorithm !
Message-Id: <37d5438d.38640055@news.inet.co.th>
i try to do this
print 2**2000
the screen show
1.#INF
oh....... any suggestion to do this job?
any module can?
------------------------------
Date: Tue, 07 Sep 1999 18:35:07 +0200
From: Alex Rhomberg <rhomberg@ife.ee.ethz.ch>
To: Ryan Ngi <ryanngi@hotmail.com>
Subject: Re: How to handle with the Very Large Number to use in RSA algorithm !
Message-Id: <37D53EBB.FFF111D2@ife.ee.ethz.ch>
Ryan Ngi wrote:
>
> i try to do this
>
> print 2**2000
>
> the screen show
>
> 1.#INF
>
> oh....... any suggestion to do this job?
> any module can?
Take a look at
perldoc Math::BigInt
For RSA, Diffie-Hellmann etc., this could be enhanced by a "modmul"
function and by a "modexp" function using the russian peasant algorithm
(Or square and multiply)
A fixed modulo could be inverted once to get a faster modmul (eg. using
Barrett algorithm)
Don't expect too much speed. And don't tell anybody that the BigInt
module could be used for secure encryption, or it cannot be exported
from the US anymore. And hey, perl is used for it!
- Alex
------------------------------
Date: Tue, 07 Sep 1999 16:53:23 +0200
From: David Hiskiyahu <david.hiskiyahu@alcatel.be>
Subject: Re: How to view code as text in working cgi script
Message-Id: <37D526E3.34211E62@alcatel.be>
If this is your script, you could make a soft link on the
server with a filename extension of '*.txt'.
Example:
script file: http://www.somewhere.com/scripts/script.cgi
browsable source: http://www.somewhere.com/scripts/script.txt
% cd /www/scripts
% ls
-rwxr-xr-x ..... script.cgi
lrwxr-xr-x ..... script.txt
Bart Lateur wrote:
>
> Warren Bell wrote:
>
> >> No, you cannot steal CGI programs that way.
> >
> >I wasn't planning on it.
>
> Funny that people talk about "stealing code". The same people that say
> that you may not hide the source for your scripts.
>
> >You should really get a little more info before accusing someone. Just
> >because I want to SEE the code doesn't mean I'm going to steal it. And
> >who's to say I'm not doing some sort of experiment and the script in
> >question is on my own server.
>
> Do it through FTP. Or build in an option in the script, so that with one
> particular input parameter, the script shows itself.
>
> if ($ENV{PATH_INFO} and $ENV{PATH_INFO} =~ m[^/pencil]) {
> print "Content-type: text/plain\n\n";
> open 0; # this opens $0, i.e. the script itself
> print <0>;
> exit;
> }
>
> Call it as
>
> http://your.server.com/path/to/script.cgi/pencil.txt
>
> (where "script.cgi" is the script's name)
> Bart.
--
*** David Hiskiyahu, Alcatel SRD, 1 Fr.Wellesplein, Antwerp ***
*** Phone/Fax: +32 3 240 7965/9820, private +32 3 225 2712 ***
------------------------------
Date: Tue, 07 Sep 1999 11:53:42 -0500
From: "Keith G. Murphy" <keithmur@mindspring.com>
Subject: Re: HTML-to-Perl CGI converter
Message-Id: <37D54316.D728CC12@mindspring.com>
Jonathan Stowe wrote:
>
> On Fri, 03 Sep 1999 17:39:27 -0500 Keith G. Murphy wrote:
> > I'm wanting to convert a complex HTML file with a form to Perl code
> > (using CGI.pm or similar) that generates the same page w/form.
> >
>
> I think you are looking for something like:
>
> <http://www.stonehenge.com/merlyn/WebTechniques/col30.html>
>
That is exactly it! Thanks so much. I had it vaguely in mind that it
was one of TC's (I was probably thinking of the Demoronizer), but it is
of course by Randal Schwarz.
------------------------------
Date: 7 Sep 1999 11:01:06 -0500
From: rmfowler@raptor.mtc.ti.com (Rex Fowler)
Subject: multicast support in perl
Message-Id: <7r3cs2$nve@raptor.mtc.ti.com>
grepping through the source of perl5.005_61 I find no mention
of /muticast/ except for a "simulation" in perlipc.pod. Will multicast
support be available in a future version?
I am able to get it to work since my $^O supports it but I have to
manually set my own constants for IP_MULTICAST_LOOOP, IP_ADD_MEMBERSHIP,
and others. The values do vary in differing OSes.
In other words, I have to do this:
setsockopt(SOCK, 0x0, 0x12, pack("C",1)) or die $!;
Rather than
setsockopt(SOCK, IPPROTO_IP, IP_MULTICAST_LOOP, pack("C",1)) or die $!;
Will these constants and others be exported by Socket.pm in the near future?
Thanks,
--
Rex Fowler http://www.mtc.ti.com/~rmfowler
(972)927-5525 mailto:rmfowler@mtc.ti.com
Alpha Pager http://www.mtc.ti.com/cgi-bin/alpha_pager.cgi
------------------------------
Date: Tue, 07 Sep 1999 16:42:55 GMT
From: George Reese <borg@imaginary.com>
Subject: Re: mysql interview
Message-Id: <jgbB3.56$S5.2774@ptah.visi.com>
Andrew Johnson <andrew-johnson@home.com> wrote:
: ! ! All Americans speak French.
: ! ! I am American.
: ! ! Therefore I speak French.
: ! !
: ! ! As this argument follows from the premises, I have provided an
: ! ! argument with support. You can either choose to debate my premises or
: ! ! concede that I speak French.
: But then you also add this:
: ! You are bordering on ridiculous if you think you need to support your
: ! premises. Such an argument is an infinite regression.
: So, your argument is "supported" with whatever premises you put
: forward, and we can choose to debate your premises
It is easy to cut and paste clips of a conversation outside of their
context. I was making two separate points. The first being if you
agree with the premises, you either have to attack the logic or agree
with the conclusion. If you don't agree with the premises, then you,
as the person rebutting an argument, must explain which premises you
disagree with and why. The person putting forth the initial argument
must, at some point, present premises on which the argument is
based. It is absurd to require of someone putting forth an argument at
the start of an argument to provide support for all premises ad
inifinitum.
What is so hard about that for you to understand?
Using the example above, if I am going to argue that I speak
French, I have to have a starting point for my argument. In this case,
I choose the premises that "All Americans speak French" and "I am an
American". It is absurd off the bat for me to provide justifications
for those premises, and then justifications for the justifications,
and so on. It is up to you to disagree with the premises or the logic
of the argument and then provide reasons. I assume you would then come
up with something like "I am American, and I don't speak French". At
that point, the burden of proving the argument is shifted back to me.
Understand?
--
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: Tue, 07 Sep 1999 11:54:25 -0400
From: Steven Cruz <steve@nextopia.com>
Subject: Re: Perl and Threads
Message-Id: <37D53531.D54DB82B@nextopia.com>
This is a multi-part message in MIME format.
--------------8F6F865895F4DB869DA8769F
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Thank you for your reply.
I am using Linux. redhat 5.2 Has a similar problem on Rehat 6.0.
Yes I am also using SIGCHLD. The scripts leeson on a socket and when
recieves a new connection a dose a fork. Then the new proccess start a
few threads to look for data in different places. After enough data has
been found, then it prefroms a thread jon on all threads.
What do you mean be detaching threads? I thought they are created that
they are created detached.
I seen the dead and dechted threads show up as zombies and come and go.
:) Just that the odd the that dose not go. What makes it a problem is
that the script no longer lessons on that port and seems to hang. What I
have noticed is that every time this happens thier is zombie process.
Under redhat 6.0 they thread appears defuncted. Same problem.
Here is what the perl -v prodcues.
Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
Platform:
osname=linux, osvers=2.0.36, archname=i686-linux-thread
uname='linux remote.nextopia.com 2.0.36 #1 tue oct 13 22:17:11 edt
1998 i686
unknown '
hint=recommended, useposix=true, d_sigaction=define
usethreads=define useperlio=undef d_sfio=undef
Compiler:
cc='cc', optimize='-O2', gccversion=2.7.2.3
cppflags='-D_REENTRANT -Dbool=char -DHAS_BOOL'
ccflags ='-D_REENTRANT -Dbool=char -DHAS_BOOL'
stdchar='char', d_stdstdio=define, usevfork=false
intsize=4, longsize=4, ptrsize=4, doublesize=8
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
alignbytes=4, usemymalloc=n, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lpthread -lnsl -ldl -lm -lc -lposix -lcrypt
libc=, so=so, useshrplib=false, libperl=libperl.a
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'
Characteristics of this binary (from libperl):
Built under linux
Compiled at Aug 27 1999 10:03:47
@INC:
/usr/lib/perl5/5.00503/i686-linux-thread
/usr/lib/perl5/5.00503
/usr/lib/perl5/site_perl/5.005/i686-linux-thread
/usr/lib/perl5/site_perl/5.005
.
Thank you.
Dan Sugalski wrote:
>
> In comp.lang.perl.modules Steven Cruz <steve@nextopia.com> wrote:
>
> > I am have a problem when I use the threads with perl. I will get a
> > zombie thread once every 500 times or so. :( I was wonder what I should
> > be doing to fix this problem. Any suggests?
>
> What OS are you using? (I'm presuming Linux, but it's not at all clear)
> And do you have any signal handlers in your program? (SIGCHLD may mess up
> the way Linux does threads, I'm not 100% sure) And are you joining or
> detaching all your threads? (dead but unjoined threads could conceivably
> show as zombies the way linux does things)
>
> You also should go snag the latest thread libraries and patches for your
> OS, whatever it is. That may help too. (As would more details, like the
> output from perl -V...)
>
> Dan
--------------8F6F865895F4DB869DA8769F
Content-Type: text/x-vcard; charset=us-ascii;
name="steve.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Steven Cruz
Content-Disposition: attachment;
filename="steve.vcf"
begin:vcard
n:cruz';'steven
tel;home:416-516-4652 (work 2)
tel;work:416-364-9557-107
x-mozilla-html:TRUE
org:Nextopia Software
version:2.1
email;internet:steve@nextopia.com
title:Depends on what day
note:8-)
adr;quoted-printable:;;Current=0D=0Anextopia software corporation=0D=0A142 adelaide street east, 3rd floor=0D=0Atoronto, ontario=0D=0Am5c 1k9=0D=0A=0D=0ALong Term-=0D=0A116 lansdowne Ave Unit 3=0D=0AToronto ONT=0D=0AM6K 2C9=0D=0A;Toronto;Ontario;M6K 2C9;Canada
x-mozilla-cpt:;96
fn:'steven cruz'
end:vcard
--------------8F6F865895F4DB869DA8769F--
------------------------------
Date: Tue, 7 Sep 1999 15:42:39 GMT
From: ijg@connect.org.uk (I.J. Garlick)
Subject: Re: perl mail filter?
Message-Id: <FHp4z3.CB5@csc.liv.ac.uk>
In article <slrn7t9508.lt8.abigail@alexandra.delanet.com>,
abigail@delanet.com (Abigail) writes:
> @@ :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.
>
>
> I use a Perl program to generate my .procmailrc file.
I ask the same question as Dan did. Is there any point?
I know procmailrc scripts can get a bit fun and you have been kicking
around the net a lot longer than me but surely it's easier to just edit
the beast.
or am I missing something?
--
Ian J. Garlick
ijg@csc.liv.ac.uk
Am I ranting? I hope so. My ranting gets raves.
------------------------------
Date: 7 Sep 1999 11:40:36 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: perl mail filter?
Message-Id: <slrn7tag5c.mgi.abigail@alexandra.delanet.com>
I.J. Garlick (ijg@connect.org.uk) wrote on MMCXCVIII September MCMXCIII
in <URL:news:FHp4z3.CB5@csc.liv.ac.uk>:
^^ In article <slrn7t9508.lt8.abigail@alexandra.delanet.com>,
^^ abigail@delanet.com (Abigail) writes:
^^ > @@ :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.
^^ >
^^ >
^^ > I use a Perl program to generate my .procmailrc file.
^^
^^ I ask the same question as Dan did. Is there any point?
^^
^^ I know procmailrc scripts can get a bit fun and you have been kicking
^^ around the net a lot longer than me but surely it's easier to just edit
^^ the beast.
I used to have a 1000+ line .procmailrc on a different account. Editing
it wasn't much fun - it just became unwieldy.
With the Perl program, things become, IMO, easier.
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 07 Sep 1999 08:58:44 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Perl vs. Python as 1st language?
Message-Id: <m14sh63e8b.fsf@halfdome.holdit.com>
>>>>> "Abigail" == Abigail <abigail@delanet.com> writes:
Abigail> ^^ http://www.python.org/doc/essays/cp4e.html
Abigail> I think that Python is a good language for beginners, althought
Abigail> it could really need better and more descriptive error messages.
Yes, Python *is* a good language for beginners. I've always said that
people should learn at least one other language before Perl, so that
they appreciate the things that Perl got right. :)
Python - when you need training wheels on your motorcycle, you know
where to get them...
:-)
print "Just another Perl hacker,"
p.s. this post is mostly a joke. Python and Perl are both fine
languages for their respective niches. Perl just has a wider
niche. :-)
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Tue, 07 Sep 1999 15:39:07 GMT
From: cpierce1@ford.com (Clinton Pierce)
Subject: Re: Perl/Tk Installation
Message-Id: <37d530ff.932827354@news.ford.com>
[poster cc'd in e-mail]
On 07 Sep 1999 10:15:53 GMT, kjphilbr13@aol.com (KJPhilbr13) wrote:
>I am running version 5.005_03 built for i386-linux. (RedHat Linux version 6.0)
>
>After unpacking Tk800.015.tar, I have done the following in the distribution
>directory:
> Makefile.PL
> make
> make test
>And that went fine. Now what do I do?
Like the instrustructions say, "make install"
> There must be more to do because when I
>do the following: [...]
>Please email me directly as I don't get to check this newgroup as often as I
>would like. Thanks in advance for the help.
You ask in usenet, you get answers in usenet. AOL users. *sigh*
------------------------------
Date: Tue, 07 Sep 1999 16:47:04 GMT
From: jp_48504@my-deja.com
Subject: Re: Please help a newbe
Message-Id: <7r3fi3$oqk$1@nnrp1.deja.com>
In article <k0nd7w1el7u.fsf@ido.phys.ntnu.no>,
Joakim Hove <hove@ido.phys.ntnu.no> wrote:
> jp_48504@my-deja.com writes:
> perldoc -f open : Will tell how to open files for various actions.
>
> I don't know the most elegant way to implement "tail -20" in Perl, but
> maybe the special variable $. which holds the current line number of
> the last filehandle that was read.
>
> HTH - Joakim
>
> --
> === Joakim Hove www.phys.ntnu.no/~hove/ ======================
> # Institutt for fysikk (735) 93637 / 352 GF | Skøyensgate 10D #
> # N - 7034 Trondheim hove@phys.ntnu.no | N - 7030 Trondheim #
> =====================================================================
>
Thanks Joakim
I have been able to write to the file, but I ma still working on
getting the information read according to the last 20 entries. I'm
needing use this to configure some scores(such as bowling). The user
enters the scores and I need to figure their handicaps based on the
last 20 scores that were entered into their file. I am very new to
Perl, I am not sure which function I need to use to complete the task.
Are there any websites where I can get more information?
Thanks
JP
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 07 Sep 1999 15:24:16 GMT
From: rick@netleaf.com (Rick Fadler)
Subject: setrlimit functionality?
Message-Id: <7r3cs1$n3$1@nntp.Stanford.EDU>
Hi,
Does anyone know how to increase the maximum number of files you
can have open in a perl script? In C you can use setrlimit.
I downloaded BSD-Resource from CPAN and the README in the package
indicated that core perl allows you to increase the maximum
number of files open from the default, but doesn't say how to do
it.
I'd rather use core perl whenever possible.
Any ideas/advice?
Thank you,
--
Rick Fadler
NetLeaf, Inc
rick@netleaf.com
425-643-9610
------------------------------
Date: Tue, 07 Sep 1999 17:08:43 +0200
From: David Hiskiyahu <david.hiskiyahu@alcatel.be>
Subject: Re: suggestion to revise grep (another Q: reference comparison)
Message-Id: <37D52A7B.90CB714E@alcatel.be>
John,
...
The very fact that it's possible to write messy programs in Perl is also
what makes it possible to write programs that are cleaner in Perl than
they could ever be in a language that attempts to enforce cleanliness.
--Larry Wall
The guy knows what he is saying ...
It may seem anti-intuitive in the beginning, but once you get the
point of 'grep', you will see that your proposal leads to loss of
power of 'grep'.
John Lin wrote:
>
> Dear all,
>
> It happened on my careless bug.
>
> @friends=('Johnson','Mary','Tommy');
> $person='Johnson';
> if(grep($person,@friends)) { print "$person is my friend" }
>
> Hey, I got strange friends on those input values
>
> $person='John'; $person='Tom'; and even $person='son';
>
> Finally I know I should write
>
> grep(/^$person$/,@friends);
> or
> grep { $person eq $_ } @friends;
>
> But I think it is worthy to revise the grep function
> since "find an element in an array" is quite basic.
> For example, elements can be objects:
>
> @objects=($johnson,$mary,$tommy);
> $reference=$johnson;
> if(grep($reference,@objects)) { # simpler and clearer
> print $reference->{name}," is my friend";
> }
>
> (Here I got another question:
> How can we compare references?
> It's not documented in perlref.)
>
> Hey, the above code works fine!!!
>
> I guess it works because I luckily grep on the string
> "HASH(0xcb3d80)"
> among a list of strings
> ("HASH(0xcb3d80)","HASH(0xcb3d12)","HASH(0xcb3d34)");
>
> (Does it imply that
> in Perl, we use 'eq' for reference comparison?)
>
> Anyway, just like we have 2 kinds of split:
> split on regular expression and split on string,
> my suggestion is to revise grep
> so that we have 3 kinds of grep:
>
> grep on regular expression: grep /expression/,@array
> grep on computation: grep { block } @array
> grep to find an element: grep $scalar,@array
>
> It would be more clear and
> produce less invisible bugs (like I did).
>
> What do you think about it?
>
> Thank you for your advices.
>
> John Lin
--
*** David Hiskiyahu, Alcatel SRD, 1 Fr.Wellesplein, Antwerp ***
*** Phone/Fax: +32 3 240 7965/9820, private +32 3 225 2712 ***
------------------------------
Date: Tue, 07 Sep 1999 16:45:51 GMT
From: George Reese <borg@imaginary.com>
Subject: Re: teen angst.
Message-Id: <3jbB3.57$S5.2774@ptah.visi.com>
Martin <contact@nativetongues.com> wrote:
: PS: I'm relatively new to this group so I've not observed the previous
: "interesting" dialogues re: Mr Reese
: BUT THERE WERE TWO OTHER AUTHORS!!! Thought I'd point that little nugget
: out... :-)
Actually, three. And each of us wrote to our strengths. I to
object-oriented database programming and the administration of MySQL
and mSQL, Tim to database theory and design, and Randy to Perl, CGI,
PHP, and W3-mSQL. It worked out well that way, IMHO.
--
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: Tue, 07 Sep 1999 11:45:22 -0500
From: "Keith G. Murphy" <keithmur@mindspring.com>
Subject: Re: Y2K bugs on the Internet
Message-Id: <37D54122.1EF18A44@mindspring.com>
finsol@ts.co.nz wrote:
[cut]
> Any programming experts who would like to assist getting the message out
> there and help in fixing some of the problems, could:
> (a) Provide guidelines on what types of Y2K problems to look for in
> Perl, Java, C, C++, Javascript etc.
If you had inserted the word "programs" or "code" before "etc.", your
meaning would have been clearer and less potentially inflammatory.
Problems in the code written in a language are not the same as problems
in the language. Glossing over this distinction is something you have
been repeatedly taken to task for (by me among many others); I'm
surprised you're not more careful. Keep in mind that these newsgroups
are much-frequented by language advocates. Ummm, *sensitive* ones. :-)
At least the above sentence is ambiguous rather than simply incorrect.
And the following sentences would suppport the more forgiving
interpretation (that you meant some code instead of the language):
> (b) Write software to scan code for the more obvious errors and/or
> highlight where dates are manipulated in the code. To cover costs you
> could even (heaven forbid!) charge for the software
> (c) Acknowledge to readers in this forum that all mission critical code
> does need to be checked for Y2K problems, regardless of programming
> language.
>
[cut]
You're making progress. Pretty soon, you'll be able to post without
donning the old asbestos suit! (Well, unlikely, but one can hope).
I've posted only to comp.lang.perl.misc because if I'm going to be in
the middle of an OT flame war, I'd rather do it with people I know. ;-)
------------------------------
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 731
*************************************
