[16486] in Perl-Users-Digest
Perl-Users Digest, Issue: 3898 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Aug 3 06:05:25 2000
Date: Thu, 3 Aug 2000 03:05:11 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <965297111-v9-i3898@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 3 Aug 2000 Volume: 9 Number: 3898
Today's topics:
Re: Any perl web experts out there - please help (Rafael Garcia-Suarez)
Re: Copying from the web: Problems with a script mccaulba@my-deja.com
Re: Delete records in 2 weeks time <jaurangNOjaSPAM@crosswinds.net.invalid>
Emacs modules for Perl programming (Jari Aalto+mail.perl)
error logfile, HOWTO ? <squeek@club.brunssum.net>
Re: error logfile, HOWTO ? (Rafael Garcia-Suarez)
Re: Here's a tough one (relating to 500 error) (Rafael Garcia-Suarez)
Re: Here's a tough one (relating to 500 error) <debjit@oyeindia.com>
Re: How do I run CGIs on my desktop? (Rafael Garcia-Suarez)
Re: Impossible RegEx Problem <mauldin@netstorm.net>
Re: Impossible RegEx Problem <mauldin@netstorm.net>
NET::Finger causing error in Socket.pm? <nospam@nospam.com>
Re: non-blocking read from fifo <kenny_saltiel@icomverse.com>
open method <stewart_tranter@hp.com>
Re: open method <foo@bar.va>
Re: outputting a CGI script to another frame? <dominique.plu@ifrance.com>
Re: pattern matching across two lines <fabascal@gredos.cnb.uam.es>
Re: Producing a .gif file using a perl script <glodalec@yahoo.com>
Simple reg expression question <kennylim@techie.net>
Re: Simple reg expression question (Rafael Garcia-Suarez)
Re: splitting on spaces (Anno Siegel)
Re: Tk module for Windows NT <sebastien.cottalorda1@libertysurf.fr>
Re: Why does exists($hash{$key}) complain? <phrxy@csv.warwick.ac.uk>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 03 Aug 2000 07:06:19 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: Any perl web experts out there - please help
Message-Id: <slrn8oi6p0.3fc.rgarciasuarez@rafael.kazibao.net>
David Krainess wrote in comp.lang.perl.misc:
>Assuming this ludicrously simple perl code run in cgi-bin
>
>/usr/bin/perl -w
>use strict;
>print "content-type: application/octet-stream";
print "Content-Type: application/octet-stream\n\n";
>my $txt = "abcdefg";
>print $txt;
>
>
>What I want is to have a 'save as' box pop up in the client's web browser
>running this script that save "abcedfg" to a txt file on the client's hard
>drive. If I print a octet content type line before printing $txt, just an
>empty text file is saved. My goal is to have a dynamic text file sent
>directly to the browser.
--
Rafael Garcia-Suarez
------------------------------
Date: Thu, 03 Aug 2000 09:03:57 GMT
From: mccaulba@my-deja.com
Subject: Re: Copying from the web: Problems with a script
Message-Id: <8mbchs$ceu$1@nnrp1.deja.com>
In article <398914E7.1815C92F@va.mediaone.net>,
Jason Maggard <jmaggard@va.mediaone.net> wrote jeopardy-style:
> nobull@mail.com wrote:
> > Files corrupted on Windoze? Think: "binmode".
> Guess you wouldn't care to elaborate??
perldoc -f binmode
> As for the rest, I apologize that my subject line was not up to
> your liking, but my guess is that you still are not able to
> identify the problem.
Your guess is wrong. I could have told you that you need to put
binmode(FH) after open(FH,...) but if you'd read the manual on binmode
this would be obvious, and if I didn't succede in getting you read the
manual on binmode then you wouldn't really have been helped.
> 12 lines dedicated to a criticism of the subject line and no real
> attempt to assist with the problem...
Once more a hungry man claims that someone who tries to teach him to
fish rather than simply giving him a fish is making no real attempt to
assist with the problem.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 03 Aug 2000 01:14:16 -0700
From: Taurean <jaurangNOjaSPAM@crosswinds.net.invalid>
Subject: Re: Delete records in 2 weeks time
Message-Id: <1d341f80.465c781c@usw-ex0108-061.remarq.com>
I managed to rename the files. What I done was to swap the
file handles. The codes are shown below:
open(old, "<$base\\$dbold");
open(new, ">$base\\$dbnew");
flock(old, 2);
flock(new, 2);
select(new);
seek(old,0,0);
while (<old>)
{
($refdate = $_) =~ s/.*Reference: (\d+).*/$1/;
next if (($datenow - $refdate) > $elevendays);
print new $_;
}
close(old);
close(new);
open(new, "<$base\\$dbnew");
open(old, ">$base\\$dbold");
flock(new, 2);
flock(old, 2);
select(old);
seek(new,0,0);
while (<new>)
{
print old $_;
}
close(new);
close(old);
I know it is not efficient. Anyone have a better solution
other than the rename function which didn't work for me?
TIA.
Taurean
Tour Central - One-stop center for all your travel needs.
http://phobos.spaceports.com/~jaurean/
* Sent from AltaVista http://www.altavista.com Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping. Smart is Beautiful
------------------------------
Date: 03 Aug 2000 08:59:18 GMT
From: <jari.aalto@poboxes.com> (Jari Aalto+mail.perl)
Subject: Emacs modules for Perl programming
Message-Id: <perl-faq/emacs-lisp-modules_965293099@rtfm.mit.edu>
Archive-name: perl-faq/emacs-lisp-modules
Posting-Frequency: 2 times a month
URL: http://home.eu.org/~jari/ema-keys.html
Maintainer: Jari Aalto <jari.aalto@poboxes.com>
Announcement: "What Emacs lisp modules can help with programming Perl"
Preface
Emacs is your friend if you have to do anything comcerning software
development: It offers plug-in modules, written in Emacs lisp
(elisp) language, that makes all your programmings wishes come
true. Please introduce yourself to Emacs and your programming era
will get a new light.
Where to find Emacs
XEmacs/Emacs, is available to various platforms:
o Unix:
If you don't have one, bust your sysadm.
http://www.gnu.org/software/emacs/emacs.html
http://www.xemacs.org/
Emacs resources at http://home.eu.org/~jari/emacs-elisp.html
o W9x/NT:
http://www.gnu.org/software/emacs/windows/ntemacs.html
Emacs Perl Modules
Cperl -- Perl programming mode
.ftp://ftp.math.ohio-state.edu/pub/users/ilya/perl
.<olson@mcs.anl.gov> Bob Olson (started 1991)
.<ilya@math.ohio-state.edu> Ilya Zakharevich
Major mode for editing perl files. Forget the default
`perl-mode' that comes with Emacs, this is much better. Comes
starndard in newest Emacs.
TinyPerl -- Perl related utilities
.http://home.eu.org/~jari/tiny-tools-beta.zip
.http://home.eu.org/~jari/emacs-tiny-tools.html
If you ever wonder how to deal with Perl POD pages or how to find
documentation from all perl manpages, this package is for you.
Couple of keystrokes and all the documentaion is in your hands.
o Instant function help: See documentation of `shift', `pop'...
o Show Perl manual pages in *pod* buffer
o Load source code into Emacs, like Devel::DProf.pm
o Grep through all Perl manpages (.pod)
o Follow POD manpage references to next pod page with TinyUrl
o Coloured pod pages with `font-lock'
o Separate `tiperl-pod-view-mode' for jumping topics and pages
forward and backward in *pod* buffer.
o TinyUrl is used to jump to URLs (other pod pages, man pages etc)
mentioned in POD pages. (It's a general URL minor mode)
TinyIgrep -- Perl Code browsing and easy grepping
[TinyIgrep is included in the tgz mentioned above]
To grep from all installed Perl modules, define database to
TinyIgrep. There is example in the tgz (ema-tigr.ini) that shows
how to set up datatbases for Perl5, Perl4 whatever you have
installed
TinyIgrep calls Igrep.el to run the find for you, You can adjust
recursive grep options, ignored case, add user grep options.
You can get `igrep.el' module from <kevinr@ihs.com>. Ask for copy.
Check also ftp://ftp.ihs.com/pub/kevinr/
TinyCompile -- Browsing grep results in Emacs *compile* buffer
TinyCompile is minor mode for *compile* buffer from where
you can collapse unwanted lines, shorten the file URLs
/asd/asd/asd/asd/ads/as/da/sd/as/as/asd/file1:NNN: MATCHED TEXT
/asd/asd/asd/asd/ads/as/da/sd/as/as/asd/file2:NNN: MATCHED TEXT
-->
cd /asd/asd/asd/asd/ads/as/da/sd/as/as/asd/
file1:NNN: MATCHED TEXT
file1:NNN: MATCHED TEXT
End
------------------------------
Date: Thu, 3 Aug 2000 11:31:23 +0200
From: "Squeek" <squeek@club.brunssum.net>
Subject: error logfile, HOWTO ?
Message-Id: <965295110.239088@fermion.b.fw.brunssum.net>
Hya,
As being fairly new to Perl and CGI, I need to debug my scripts very often.
So now I hop someone can tell me how to activate the error-logging in a
script.
Is there a variable or command that tells the CGI to make an error-logfile.
This would help me a lot, Thnx !!!
Ronald.
------------------------------
Date: Thu, 03 Aug 2000 10:02:06 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: error logfile, HOWTO ?
Message-Id: <slrn8oih2j.402.rgarciasuarez@rafael.kazibao.net>
Squeek wrote in comp.lang.perl.misc:
>Hya,
>
>As being fairly new to Perl and CGI, I need to debug my scripts very often.
>So now I hop someone can tell me how to activate the error-logging in a
>script.
>Is there a variable or command that tells the CGI to make an error-logfile.
The standard error stream of CGI programs is redirected to the webserver
errorlog. You can do:
print STDERR "Hello\n";
in your CGI script and a line "Hello" will appear in the errorlog.
--
Rafael Garcia-Suarez
------------------------------
Date: Thu, 03 Aug 2000 07:18:43 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: Here's a tough one (relating to 500 error)
Message-Id: <slrn8oi7g8.3fc.rgarciasuarez@rafael.kazibao.net>
jcrist@my-deja.com wrote in comp.lang.perl.misc:
>This is a common problem, but this iteration of it has me baffled.
>
>I have a Perl script with very long lines in it. I edit it using
>Windows Word Pad, adding a few lines here and there and deleting a
>space or two from the one of the really long lines (like a couple
>thousand characters long - the script had all the line feeds removed so
>all the lines run together but it still runs okay). I upload to the
>UNIX Web Server in ASCII mode. It runs just fine.
>
>Now I edit it again and delete some of the code (more than just a space
>or two) from one of those really long lines. Upload to the server in
>ASCII mode. I get a 500 Internal Server Error now. Telnet in and run
>perl -c scriptname, syntax okay. Run perl scriptname or ./scriptname
>from shell, script runs okay. Check permission, 755, okay. Run Perl -
>w scriptname, no major warnings that seem would cause a problem. Still
>error 500 from web browser.
And what did the errorlog say?
>I can't load and resave in PICO because it wraps the lines and screws
>everything up. Besides, perl -c would say Illegal character \015
>(carriage return) at scriptname line x.
>
>Any suggestions?
Install an editor.
And, by the way, why is there in your script such long lines? To obfuscate
it?
--
Rafael Garcia-Suarez
------------------------------
Date: Thu, 3 Aug 2000 14:57:19 +0530
From: "Debjit" <debjit@oyeindia.com>
Subject: Re: Here's a tough one (relating to 500 error)
Message-Id: <8mcinm$kj7$1@news.vsnl.net.in>
use CGI::Carp qw(fatalsToBrowser);
+ run it at command line and see whether it is printing mime header properly
------------------------------
Date: Thu, 03 Aug 2000 07:09:27 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: How do I run CGIs on my desktop?
Message-Id: <slrn8oi6us.3fc.rgarciasuarez@rafael.kazibao.net>
jbr wrote in comp.lang.perl.misc:
>I'm just a humble html scripter and I started writing CGI scripts, but to
>try them out I upload them to my remote web server. This takes a lot of
>time because I keep having to alter them and upload them to see if it
>worked. So I got a copy of ActivePerl and installed it on my desktop.
>But I can't make my locally stored copies of my webpages call my locally
>stored CGI scripts. I'd very much value any good advice on how to do
>this - it must be simple, if you know how.
Install a webserver, such as apache (free, runs on many platforms, etc.)
--
Rafael Garcia-Suarez
------------------------------
Date: Thu, 03 Aug 2000 07:53:07 GMT
From: Jim Mauldin <mauldin@netstorm.net>
Subject: Re: Impossible RegEx Problem
Message-Id: <39892464.253732@netstorm.net>
Jim Mauldin wrote:
>
> Earthlink News wrote:
> >
>
> > Thanks for your help, though!
> >
>
> I've given you a workable solution twice, but since you refuse to test
> or study it (or test your own code)
> *PLONK*
My previous comments still apply (not listening, not testing), but there
is another solution closer to what you've been trying to do:
# assumes you've got the regex from parameter stripped of everything
# i.e. if you read $line = (<FILEHANDLE>)
# so that $line eq 'parameter: s%Rick%Rick is $cool%g'
# and extract the regex with something like
# ($p) = $line =~ /^.*?:\s+(.*)$/g;
# so that $p eq 's%Rick%Rick is $cool%';
# then do this
$cool = 'hard of hearing';
$doc = "This is what I think: Rick";
$p = '$doc=~' . "$p";
eval qq( $p );
print $doc;
For my own betterment.
-- Jim
------------------------------
Date: Thu, 03 Aug 2000 08:06:16 GMT
From: Jim Mauldin <mauldin@netstorm.net>
Subject: Re: Impossible RegEx Problem
Message-Id: <3989277B.BD7CE891@netstorm.net>
I wrote:
> $p = '$doc=~' . "$p";
> eval qq( $p );
Correction: even simpler
$p = '$doc=~' . $p;
eval "$p";
-- Jim
Wasting bandwidth but it's the wee hours
------------------------------
Date: 3 Aug 2000 08:33:26 GMT
From: The WebDragon <nospam@nospam.com>
Subject: NET::Finger causing error in Socket.pm?
Message-Id: <8mbaom$i19$0@216.155.33.86>
#!/usr/bin/perl -w
use diagnostics -verbose;
use Net::Finger;
use Getopt::Std;
use vars qw($opt_l);
getopts('l');
$x = finger('johnc@idsoftware.com', $opt_l);
if ($x) {
print $x;
} else {
die "error: $Net::Finger::error \n $!\n";
}
this gives me the error of :
-=-
# Uncaught exception from user code:
# error: Can't connect to idsoftware.com:
-=-
so I changed the line to
x = finger('johnc@idsoftware.com', 1);
and now I get this:
-=-
Welcome to id Software's Finger Service V1.5!
Sorry, we have no information available for '/W johnc'
-=-
anyone know why the /W is there, and what's up with this Net::Finger
module?
using MacPerl 520r4 (5.004) and $Net::Finger::VERSION = 1.05
--
send mail to mactech (at) webdragon (dot) net instead of the above address.
this is to prevent spamming. e-mail reply-to's have been altered
to prevent scan software from extracting my address for the purpose
of spamming me, which I hate with a passion bordering on obsession.
------------------------------
Date: Thu, 03 Aug 2000 11:05:45 +0300
From: Kenny Saltiel 5744 <kenny_saltiel@icomverse.com>
Subject: Re: non-blocking read from fifo
Message-Id: <398927D9.DE4A7AF8@icomverse.com>
Kenny Saltiel 5744 wrote:
> Hi.
>
> I'm trying to obtain the output of three external programs which I
> start-up from within a perl script
> using the Proc::simple module. The external programs write to 3
> named-pipes which I open filehandles for.
> The problem is that since the read from a filehandle blocks while
> waiting for input, I can not read the other fifo's until something comes
> in on the fifo I am waitng on.
>
> Is there anyway I can check the fifo before reading from it? Should I
> have the external programs send data in a
> different way. I'm using the Proc::Simple module since I need to run the
> external programs in the background
> while monitoring if they are alive, in addition to other things the perl
> script needs to do.
>
> Thanks
I found the solution to my problem.
Using sysopen() to open the FIFO's with the non-blocking flag O_RDWR, and
reading from the FIFO's
with sysread() solves the problem.
Kenny
------------------------------
Date: Thu, 03 Aug 2000 10:47:02 +0200
From: Stewart Tranter <stewart_tranter@hp.com>
Subject: open method
Message-Id: <39893186.C91D1774@hp.com>
Hi,
I am wondering if there is a limit on the amount of files you can open
using:
open (FILEHANDLE, "FILENAME");
Many thanks,
Stewart
------------------------------
Date: Thu, 03 Aug 2000 11:03:02 +0200
From: Marco Natoni <foo@bar.va>
Subject: Re: open method
Message-Id: <39893546.BD87DCFB@bar.va>
Stewart,
Stewart Tranter wrote:
> I am wondering if there is a limit on the amount of files you can
> open using:
> open (FILEHANDLE, "FILENAME");
It depends on your operating system.
Best regards,
Marco
------------------------------
Date: Thu, 3 Aug 2000 11:15:52 +0200
From: "Dominique PLU" <dominique.plu@ifrance.com>
Subject: Re: outputting a CGI script to another frame?
Message-Id: <8mbcr2$jkb$1@vega.worldonline.fr>
Hello,
What a strange answer for a newbies. you spend time to prevent that this is
not the good group, you must spend less time to help and say only
use target="name of destination frame" when calling your CGI" ==> please
refer to HTML group
if you are not sure recurse call to yourself and filter the calling
argument, it's works great
Dom a newbie ++ on Perl
BUCK NAKED1 <dennis100@webtv.net> a écrit dans le message :
17200-3988F78C-53@storefull-242.iap.bryant.webtv.net...
>>jeff@yoak.com (Jeff Yoak)
>>In article >>8mae0o$n06$1@nnrp1.deja.com, >>j555@my-deja.com wrote:
>>Hi, I've got a search mechanism in
>one frame (a form) and I'd like its output >>to go to another frame.
Can someone >>tell me how I go about doing that?
>This really doesn't have anything to
>do with Perl. You should consider an >HTML newsgroup if the
documentation >and FAQ that are available for HTML >don't address this.
>Cheers,
>Jeff
Hmmm.... this calls for extraction and returning input. HTML is static,
and does not do that. It sounds like either a CGI or Perl problem to me.
Maybe someone can direct you. I don't know Perl well enough to say, but
I do know HTML, and that HTML will not do it. --Dennis
------------------------------
Date: Thu, 03 Aug 2000 10:05:59 +0200
From: Federico Abascal <fabascal@gredos.cnb.uam.es>
Subject: Re: pattern matching across two lines
Message-Id: <398927E7.664697B2@gredos.cnb.uam.es>
Nitin wrote:
> How can I match patterns across two lines?
Hello, the simplest way I see is:
while(<>) {
if(/patternA/) {
$_ = <>;
if(/patternB/) {
#You have detected the pattern accross two lines
}
}
}
I hope this helps,
Federico
------------------------------
Date: Thu, 03 Aug 2000 09:39:46 +0200
From: Mouse <glodalec@yahoo.com>
Subject: Re: Producing a .gif file using a perl script
Message-Id: <398921C2.29DF@yahoo.com>
Johann Fuchs wrote:
>
> Hi everyone
>
> I'm trying to produce a gif file as out put from a perl script, so I can
> use it as a target for an <img src=hhhh.cgi> tag in an HTML file (cgi).
>
> Can anybody direct me to a sample, please?
>
> Thanks,
> Johann
#!/usr/local/bin/perl -w
use CGI qw/:standard/;
use GD;
print "Content-type: image/gif\n\n";
binmode STDOUT;
$im = new GD::Image(100,100);
$lightpurple=$im->colorAllocate(255,200,255);
$black=$im->colorAllocate(0,0,0);
$im->interlaced('true');
$im->line(10,10,30,30,$lightpurple);
$im->line(param('n1'),param('n2'),param('n3'),param('n4'),$black);
print $im->gif;
------------------------------
Date: Thu, 03 Aug 2000 07:23:37 GMT
From: "Kenny Lim" <kennylim@techie.net>
Subject: Simple reg expression question
Message-Id: <Z59i5.6057$Z6.250211@newsread1.prod.itd.earthlink.net>
Hi All,
Given the followng project name and version, how do I get the current
version and increment by one ? It would be nice to also keep track
of the number increment, ie. from 99 to 100 instead of going back to 0. ie.
90.
ETThread226
ETDB2UI52
Thanks in advance.
Kenny-
------------------------------
Date: Thu, 03 Aug 2000 08:08:28 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: Simple reg expression question
Message-Id: <slrn8oiadh.3oh.rgarciasuarez@rafael.kazibao.net>
Kenny Lim wrote in comp.lang.perl.misc:
>
>Hi All,
>
>Given the followng project name and version, how do I get the current
>version and increment by one ? It would be nice to also keep track
>of the number increment, ie. from 99 to 100 instead of going back to 0. ie.
>90.
>
>ETThread226
>ETDB2UI52
If I correcly understood your question:
$project_name =~ s/(\d+)$/1+$1/e;
See perlop, perlre.
--
Rafael Garcia-Suarez
------------------------------
Date: 3 Aug 2000 08:39:37 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: splitting on spaces
Message-Id: <8mbb49$kbg$1@lublin.zrz.tu-berlin.de>
Dilworth <dilworth@megsinet.net> wrote in comp.lang.perl.misc:
>Anno Siegel wrote:
>
>> Bob Dilworth <bdilworth@mco.edu> wrote in comp.lang.perl.misc:
>> >On 2 Aug 2000 14:22:40 -0000, anno4000@lublin.zrz.tu-berlin.de (Anno
>> >Siegel) wrote:
>> >
>> >[Posted and e-mailed as per the "rules"]
>> >
>> ><snip>
>> >
>> >>More grousing: Pleas keep your line length below 72 characters or so. And
>> >>don't Cc postings per email without clearly indicating that the same
>> >>message was also posted to the group. Both are rules that apply all
>> >>over Usenet and are by no means specific to this group.
>> >>
>> >Sorry but I've never heard of these "rules" before. Doesn't men they
>> >don't exist just that the other groups must be more forgiving of such
>> >sins.
>>
>> You haven't been around usenet for long, it appears.
>>
>
>No, I haven't been around THIS newsgroup for long.
Over-long lines and stealth Cs's are unpopular everywhere, for reasons
that don't depend on the purpose of any particular newsgroup.
BTW, your lines are longer than 80 characters again.
> I've not encountered the arrogance
>and meanness I've seen in this group in other groups I frequent. As a matter of fact
>folks seem to be rather nice in those other groups. You can't assume that my experience
>is like yours so please stop doing that.
You and me are walking along a street.
Me: Hey, watch out. We got a red traffic light.
You: Traffic light?
Me: You haven't been around for long, have you?
You: Don't assume your experience is like mine.
> Additionally, the fact that my experience is
>different also does not mean that I lack understanding, intelligence, or whatever else
>you might decide to throw my way.
I haven't commented on your intelligence or understanding yet, though
I'm beginning to have my doubts.
>> >>>also not familiar with the "jeopardectomy" metaphor and am curious as to what the
>> >>>heck it refers.
>> >>
>> >>Hang around a bit. The term "jeopardy posting" (and implicitly
>> >>"jeopardectomy") are explained about twice or three times a week.
>> >
>> >So ... there's not a simple explanation that your yourself could have
>> >provided? Such knowledge must be "earned" as part of some sort of
>> >initiation ritual?
>>
>> Well, in part, frankly yes. Most newsgroups of some standing develop
>> an array of in-jokes and what might be called shibboleths, whose use
>> shows that posters have done their required lurking before posting.
>>
>
>I didn't know that such a complex dance was required here. If there are requirements
>like these in the other groups I frequent then they're not as important as they
>apparently are in clpm. It seems like a whole lot of work you purity monitors have
>given yourselves. You really feel the heavy-duty obiesence to these "rules" is worth
>it?
Careful with those big words, they're tricky to handle. (Obeisance.)
No, you didn't know how things work around here, and you didn't bother
to find out before posting. So you get replies that tell you. Whether
the effort is worth it is for those to decide who undertake the effort.
[...]
>> In the face of an overwhelming influx of newbies, a newsgroup develops
>> defense mechanisms to maintain its identity. This is by no means
>> particular to clpm.
>
>Excuse me? Defense against newbies? What kind of arrogant claptrap is that?
It's the kind of arrogant claptrap that keeps a newsgroup functional for
a while.
> Why help
>folks when you can insult them instead, right? Wow! You guys are real pieces of work.
It isn't *the* purpose of clpm to help people with their Perl programs,
although we do it all the time, a lot of it. This is a place for people
with an interest in the Perl language to discuss pertinent issues. Not
much of that happens, because a vast majority of original postings are
questions (often very elementary questions) about how to do this or that
"in PERL". The arrogance is really on the side of people who believe
that a community of Perl experts (some of them world class) are obliged
to help and hold the hands of everyone who happens to barge in with
a question.
Anno
------------------------------
Date: Thu, 3 Aug 2000 09:32:22 +0100
From: "Sébastien Cottalorda" <sebastien.cottalorda1@libertysurf.fr>
Subject: Re: Tk module for Windows NT
Message-Id: <8mb75g$ml0$1@news6.isdnet.net>
Hi,
You can find what you're looking for at
http://www.activestate.com/PPMPackages
Hope this helps.
Sébastien
gopal_bhat@my-deja.com a écrit dans le message
<8mab18$ksd$1@nnrp1.deja.com>...
>Hi,
> I got Active-Perl(5.006) for WinNT and I wanted to install Tk module
> (perl -e 'use Tk' should work first). Please post a reply to this
> posting if any of you know a place on the net, where I can download
> compiled Tk module for Win NT.
> thanks
>
>
>
>
>Sent via Deja.com http://www.deja.com/
>Before you buy.
------------------------------
Date: Thu, 3 Aug 2000 10:41:31 +0100
From: "John J. Lee" <phrxy@csv.warwick.ac.uk>
Subject: Re: Why does exists($hash{$key}) complain?
Message-Id: <Pine.SOL.4.21.0008031028140.26558-100000@mimosa.csv.warwick.ac.uk>
On 1 Aug 2000, Abigail wrote:
> John J. Lee (phrxy@csv.warwick.ac.uk) wrote on MMDXXVII September
> MCMXCIII in <URL:news:Pine.SOL.4.21.0008011905050.10284-100000@mimosa.csv.warwick.ac.uk>:
> ,,
> ,, sub foo {
> ,, if (not exists($ignore{$col}) {
> ,, # stuff not involving %ignore goes here
> ,, return $something;
> ,, }
> ,, # stuff involving %ignore goes here
> ,, return $something_else;
> ,, }
> ,,
> ,, (where $col == 6), gives me a warning (Use of uninitialised value) with -w
> ,, in perl 5.005. The warning points to the 'if' line. Why should it warn
> ,, me about this when I'm testing exists() precisely so that I can *avoid*
> ,, using the uninitialised value?
>
>
> It looks like $col doesn't contain what you think $col contains.
Actually, it does. I just discovered that Perl is reporting the wrong
line number for the warning. Below is the whole sub in full (not that I
expect it matters, but the only thing I have changed is that the 6th line
of the listing below has been split into two to fit it into this
linewidth).
The error was reported on line 157, which is the first 'if'. The warning
actually occurs at line 158 (the next 'if'), and is reported as such in
the debugger if you step through it. The warning is actually about
$last_entries[$col], which is quite right - it is uninitialised. So why
does it give one (wrong) line number when run normally, and another
(right) line number when run with the debugger?
sub ignore {
my @entries = @{$_[0]};
my @last_entries = @{$_[1]};
if (not exists($ignore{$col})) {
if ( $col == COLS->{+DELTAE} and ($last_entries[$col] ==
$entries[$col]) ) {
return 1;
} else { return 0 }
}
if ($entries[$col] == $ignore{$col}) { return 1 }
else { return 0 }
}
I can send anyone the whole script if they are interested.
Thanks
John
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 3898
**************************************
