[13316] in Perl-Users-Digest
Perl-Users Digest, Issue: 726 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Sep 7 01:17:35 1999
Date: Mon, 6 Sep 1999 22:05:08 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 6 Sep 1999 Volume: 9 Number: 726
Today's topics:
Re: case for open lang on win32 - fill in the table <jwk6@earthlink.net>
Help! Newbie can't see print error in code <huang2@andrew.cmu.edu>
Re: mysql interview <uri@sysarch.com>
Re: mysql interview <borg@imaginary.com>
Re: mysql interview (Abigail)
Re: newbi needs help (Abigail)
Re: Parsing links in HTML files (Abigail)
Re: Password Protection? (Abigail)
Pattern substitution <berube@odyssee.net>
Re: perl mail filter? (Abigail)
Re: Perl vs. Python as 1st language? (Abigail)
Re: Problem with <!--#exec cgi=/scripts/script.pl%22--> (Abigail)
Re: Problem with <!--exec cgi="/scripts/script.pl"--> i (Abigail)
Re: Queries (Abigail)
Re: Question about installing modules <lincwils@teleport.com>
Re: Question about sendmail (Abigail)
Re: reading email (Abigail)
Re: Routine for normalising file paths <agray@infoscience.otago.ac.nz>
Re: un-importing names (Neko)
Re: using code written in C (anyone know about stemming (Ilya Zakharevich)
Re: Win95 Perl interpretor (elephant)
Writing Oracle SQL for DBD-Oracle? (Jamie Schrumpf)
Re: Writing Oracle SQL for DBD-Oracle? <rereidy@uswest.net>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 6 Sep 1999 19:22:10 -0500
From: "Jason Kohlhoff" <jwk6@earthlink.net>
Subject: Re: case for open lang on win32 - fill in the table
Message-Id: <7r1lhb$fm6$1@ash.prod.itd.earthlink.net>
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
<nielsenjf@my-deja.com> wrote in message news: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: Mon, 06 Sep 1999 21:32:56 -0400
From: Cathy Huang <huang2@andrew.cmu.edu>
Subject: Help! Newbie can't see print error in code
Message-Id: <37D46B48.CDF3430B@andrew.cmu.edu>
I can't figure out why after I run this portion of code, the file
paths.dat has been created, but is totally empty -
though volume3.dat is getting printed to fine. It's prob. something
obvious I can't see.
Thanks for any help!
Cathy
------------
# variables
@volume_record = (); # array of volume_records
$total_records = 0; # total number of volume_records in
volume_history
files
$total_vol = 0; # total number of volume_history files
$vol_data = "D:\\listen\\volume3.dat"; # volume_records data
$errors = "D:\\listen\\errors.dat"; # errors, ie. incorrect
volume_records
$record = "D:\\listen\\record.dat"; # list of volume_records
$paths = "D:\\listen\\paths.dat"; # paths to look under
$dirs = "D:\\listen\\dirs.dat"; # final dirs to look under
$missing = "D:\\listen\\missing.dat"; # list of missing folder names
$found = "D:\\listen\\found.dat"; # list of found folder names
$total_missing = 0; # total number of missing folder names
$total_found = 0; # total number of found folder names
open(VOLDATA, ">$vol_data") or die "Can't create file $vol_data: $!\n";
open(ERRORS, ">$errors") or die "Can't create file $errors: $!\n";
open(RECORD, ">$record") or die "Can't create file $record: $!\n";
open(PATHS, ">$paths") or die "Can't create file $paths: $!\n";
open(DIRS, ">$dirs") or die "Can't create file $dirs: $!\n";
open(MISSING, ">$missing") or die "Can't create file $missing: $!\n";
open(FOUND, ">$found") or die "Can't create file $found: $!\n";
print "Please enter 'y' to update shortcut paths, anything else to use
most recent paths.\n";
$update = <STDIN>;
if ($update =~ /^y/) {
shortcut_expander();
system ("del temp.txt");
}
($protocol,@directories) = directory_selector();
print VOLDATA "protocol = $protocol\n";
print VOLDATA "directories before = @directories\n\n";
@directories = map { add_share_path($_) } @directories;
#print PATHS "directories after = @directories\n";
print PATHS "what the heck???!!\n";
print VOLDATA "directories after = @directories\n";
############### PATHS empty!!!!!!!!!!
------------------------------
Date: 06 Sep 1999 23:12:56 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: mysql interview
Message-Id: <x7iu5no1mv.fsf@home.sysarch.com>
>>>>> "GR" == George Reese <borg@imaginary.com> writes:
GR> : Perl has no real use. If you have to do scripting or text
GR> processing, : use Python. Otherwise, use Java.
GR> That's a troll? No, it is an honest opinion in response to an honest
GR> question. The fact that it does not mesh with your world view is not
GR> my problem.
it's a troll because it come from you, an avowed idiot who hates
perl. so anything you post here is considered noise and trolling. if you
don't want to get flamed, stop sticking your nose in this group.
as for you obvious computer skills, your pathetic defense of your vies
in that last war, just shows how poorly your logic is wired. that is
independent of any programming language. you never showed us any code
(probably scared to) or showed any deeper understanding of software
engineering issues. it was just perl suck and i am right blather, spiced
with a few poorly spewed invectives. in fact i don't recall the perl
side ever got into the gutter like you did. so we know who has the
thinner skin and more fragile ego. you can now join the elite group of
"experts" which can get quoted and believed by people too stupid to know
better. your opinions carry no weight here since we can see youhave no
clothes or brains.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: Tue, 07 Sep 1999 03:24:58 GMT
From: George Reese <borg@imaginary.com>
Subject: Re: mysql interview
Message-Id: <eA%A3.376$96.26431@ptah.visi.com>
Uri Guttman <uri@sysarch.com> wrote:
:>>>>> "GR" == George Reese <borg@imaginary.com> writes:
: GR> : Perl has no real use. If you have to do scripting or text
: GR> processing, : use Python. Otherwise, use Java.
: GR> That's a troll? No, it is an honest opinion in response to an honest
: GR> question. The fact that it does not mesh with your world view is not
: GR> my problem.
: it's a troll because it come from you, an avowed idiot who hates
: perl.
Dude, that is called circular reasoning.
Here are a couple of facts for you:
* the original post in question was crossposted to the Java and Perl
newsgroups; I was posting from the Java newsgroups
* my post was an honest opinion in response to an honest question in
the Java newsgroup; by definition, that is not a troll
: so anything you post here is considered noise and trolling. if you
: don't want to get flamed, stop sticking your nose in this group.
It does not seem to work. I was being flamed without being in this
newsgroup.
: as for you obvious computer skills, your pathetic defense of your vies
: in that last war, just shows how poorly your logic is wired. that is
: independent of any programming language. you never showed us any code
: (probably scared to) or showed any deeper understanding of software
: engineering issues.
Has there ever been any need for me to present any code? If you really
want, http://www.imaginary.com/Java/Soul and download mSQL-JDBC. That
would be the single most widely-used piece of software I have
written. I am not hiding anything.
And as far as understanding of software engineering is concerned, I
think my track record of accomplishments in the field speaks for
itself. Your mindless judgment based on a disagreement about a
programming language hardly registers.
: it was just perl suck and i am right blather,
Actually, no, it was not. It was a "for anything you might want to do
in perl, python works and it is easier to maintain". I do not think
perl sucks as such, even though I will say it out of hand. I simply
think perl serves no purpose any more.
: spiced
: with a few poorly spewed invectives. in fact i don't recall the perl
: side ever got into the gutter like you did.
You would be wrong.
: so we know who has the
: thinner skin and more fragile ego. you can now join the elite group of
: "experts" which can get quoted and believed by people too stupid to know
: better. your opinions carry no weight here since we can see youhave no
: clothes or brains.
I really do not care if my opinions carry weight with you or
Abigail. You both clearly lack any reasoning skills. I am just trying
to point out your faulty reasoning for people who might actually find
my book useful for learning MySQL or mSQL except for your irrational
criticisms.
--
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: 6 Sep 1999 22:57:49 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: mysql interview
Message-Id: <slrn7t93f6.lt8.abigail@alexandra.delanet.com>
George Reese (borg@imaginary.com) wrote on MMCXCVIII September MCMXCIII
in <URL:news:eA%A3.376$96.26431@ptah.visi.com>:
%%
%% I really do not care if my opinions carry weight with you or
%% Abigail. You both clearly lack any reasoning skills. I am just trying
%% to point out your faulty reasoning for people who might actually find
%% my book useful for learning MySQL or mSQL except for your irrational
%% criticisms.
I'm just trying to prevent people from spending money to buy your books.
Abigail
--
perl -we 'print q{print q{print q{print q{print q{print q{print q{print q{print
qq{Just Another Perl Hacker\n}}}}}}}}}' |\
perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w
-----------== 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: 6 Sep 1999 20:25:07 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: newbi needs help
Message-Id: <slrn7t8qgs.log.abigail@alexandra.delanet.com>
Michael Godfred (mtg82814@ratheon.com) wrote on MMCXCIII September
MCMXCIII in <URL:news:37CE7186.50952329@ratheon.com>:
"" I have a form, that when submitted it brings up a new window which calls
"" a java applet. Is there a way to have the window controlling the applet
"" to be minimized automatically. I tried the javascript newsgroup to see
"" if they knew how to minimize a window, but all they told me was how to
"" close one.
Please ask in the newsgroup "comp.windows" for any windows related
questions.
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
-----------== 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: 6 Sep 1999 23:05:11 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Parsing links in HTML files
Message-Id: <slrn7t93t0.lt8.abigail@alexandra.delanet.com>
Neale Morison (nmorison@ozemail.com.au) wrote on MMCXCVI September
MCMXCIII in <URL:news:37D278A2.C746E8E0@ozemail.com.au>:
%% 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. I have found
%% mention of libwww and HTML::Parser. I have HTML::Parser but the
%% documentation is very terse and has no sample code. I think it wants me
%% to write callback functions to process particular tags, but I'm not sure
%% how to please it.
Well, the manual is quite clear what it wants. It doesn't have sample code
because it's a manual, not a tutorial. I don't think there's much wrong
with the documentation of HTML::Parser. However, what could be the case
is that you are unfamiliar with Perl's way of doing OO.
In which case you should study OO, then turn back to HTML::Parser.
%% Could anyone recommend the best module to use, and perhaps point me to
%% some sample code?
For your case, HTML::Parser would be the best module to use. Well, actually
you would prefer to use a module that really parses HTML, but I don't think
such a module is available.
There are some link checkers/modules out there, but I do not know whether
they work for you specific case.
Abigail
--
perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
-----------== 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: 6 Sep 1999 23:09:20 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Password Protection?
Message-Id: <slrn7t944p.lt8.abigail@alexandra.delanet.com>
Yellow Beetle (firebrand@mail.usa.com) wrote on MMCXCIII September
MCMXCIII in <URL:news:7qmj6u$b1f$1@garnet.nbnet.nb.ca>:
[]
[] I have a password that uses JavaScript, and I
[] don't like it. The reason is that when you go to:
[] http://[censor]/theromroom/ and
[] type in the password, it links you to:
[] http://[censor]/theromroom/index3.html
[]
[] Now anyone who has any brains can bookmark that site,
[] and never need the password again. Is there any Perl
[] script that is better and will prevent this?
A Perl program that prevents people from bookmarking a document?
There isn't. Try using a larger hammer.
[] Can anyone please help me?
HTTP has authentication. If you want to use authentication, use
it at the appropriate level.
Abigail
--
sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@);
print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.| |d)&&$llama."\n");
-----------== 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: Tue, 07 Sep 1999 04:05:18 GMT
From: "Benjamin Bérubé" <berube@odyssee.net>
Subject: Pattern substitution
Message-Id: <2a0B3.4324$FW3.4686@news21.bellglobal.com>
hi,
Suppose I have the following string :
$text = " I am writing (this) or again (that) ";
Now, I want to replace "(this)" by new = "new text"
If I do :
$text =~ s/(.*)/$new/;
it gives : " I am writing new text " instead of " I am writing new text or
again (that) "
What is wrong ? thanks in advance.
ben
------------------------------
Date: 6 Sep 1999 23:23:58 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: perl mail filter?
Message-Id: <slrn7t9508.lt8.abigail@alexandra.delanet.com>
revjack (revjack@radix.net) wrote on MMCXCVII September MCMXCIII in
<URL:news:7r0ghj$t2k$1@news1.Radix.Net>:
@@ 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.
I use a Perl program to generate my .procmailrc file.
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
-----------== 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: 6 Sep 1999 23:29:43 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Perl vs. Python as 1st language?
Message-Id: <slrn7t95b0.lt8.abigail@alexandra.delanet.com>
John Callender (jbc@shell2.la.best.com) wrote on MMCXCV September
MCMXCIII in <URL:news:37d173b5$0$207@nntp1.ba.best.com>:
^^ Apologies in advance for the done-to-death topic. I'm curious what some
^^ of the experts hereabouts would say in response to the arguments in
^^ Guido's proposal for the "Computer Programming for Everybody" project,
^^ at:
^^
^^ http://www.python.org/doc/essays/cp4e.html
I think that Python is a good language for beginners, althought
it could really need better and more descriptive error messages.
Abigail
--
sub f{sprintf'%c%s',$_[0],$_[1]}print f(74,f(117,f(115,f(116,f(32,f(97,
f(110,f(111,f(116,f(104,f(0x65,f(114,f(32,f(80,f(101,f(114,f(0x6c,f(32,
f(0x48,f(97,f(99,f(107,f(101,f(114,f(10,q ff)))))))))))))))))))))))))
-----------== 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: 6 Sep 1999 23:39:44 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Problem with <!--#exec cgi=/scripts/script.pl%22--> in IIS4
Message-Id: <slrn7t95tp.lt8.abigail@alexandra.delanet.com>
Lisa (lisa_mcnally@mail.crc.com) wrote on MMCXCI September MCMXCIII in
<URL:news:i3Qy3.193$Zd.115288@WReNphoon3>:
<> Hi -
<>
<> I am having a problem calling my perl script from an HTML document using the
<> %22exec cgi%22 statement. If I call the script directly by using
<> http://server/scripts/script.pl? it works fine (the counter increments and
<> the digits are displayed). However if I use the <!--exec
<> cgi=%22/scripts/script.pl%22--> from within a HTML document nothing happens.
<> I am running IIS 4 on an NT 4.0 SP 5 server. The script ran fine before we
<> upgraded the server from IIS 3. Any ideas?? This one really has me
<> baffled.
<>
Soooo... what is your Perl question? Or are you claiming the "nothing"
happens only happens with a Perl program, but everything happens with
an equivalent Eiffel program?
Abigail
--
perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n")}'
-----------== 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: 6 Sep 1999 23:41:14 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Problem with <!--exec cgi="/scripts/script.pl"--> in IIS4
Message-Id: <slrn7t960j.lt8.abigail@alexandra.delanet.com>
Lisa McNally (lisa_mcnally@mail.crc.com) wrote on MMCXCI September
MCMXCIII in <URL:news:7qgks4$jt0@hobbes.crc.com>:
<>
<> I am having a problem calling my perl script from an HTML document using the
<> "exec cgi" statement.
Someone named "McNally, Lisa" asked a similar question. Perhaps you
should read the newsgroup and see whether she got any responses.
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
-----------== 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: 6 Sep 1999 23:42:48 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Queries
Message-Id: <slrn7t963i.lt8.abigail@alexandra.delanet.com>
James Hensinger (ascot@aquafind.com) wrote on MMCXCI September MCMXCIII
in <URL:news:37CB4949.5698DB2F@aquafind.com>:
__ I have Linux Red Hat running MySQL and a database with multiple tables.
__ Is there a command I can use to stop when each page is full like in dos
__ the /p stopped when each screen page was full. Or where on the net can
__ I find the different commands?
And your Perl question is?
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
-----------== 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: Mon, 6 Sep 1999 19:48:35 -0700
From: "Dennis Wilson" <lincwils@teleport.com>
Subject: Re: Question about installing modules
Message-Id: <T7%A3.27176$FG4.1248544@news1.teleport.com>
Thanks for your time.
I found the part you pointed out. I was and still am unsure what the MD5
module does.
From your comments and some documentation I saw, I believe the MD5 module is
for security. It turns out that my ISP does not support it, I think. My
reason for that is
that I has to use the AUTH_MODE set to PASS to get the module to work.
The other thing I got from this was an incling of Perl's "dynamic" use of
modules.
Nifty that!!!!!!!
Thanks again.
elephant wrote in message ...
>Dennis Wilson writes ..
>>I have a question about using ppm. I am not sure if this is the right
forum,
>>or should I be asking the question of activestate.
>>
>>I used ppm to install Mail::POP3Client. It seemed like everything went
>>alright until I tried to run the perl script I had written. I got the
>>following message:
>>Can't locate MD5.pm in @INC (@INC contains: C:/Perl/lib C:/Perl/site/lib
.)
>>at C
>>:/Perl/site/lib/Mail/POP3Client.pm line 357. <GEN0> chunk 1.
>>
>>I obviously did not either run ppm correctly or I don't understand what
>>other things I need to install to get this to work.
>
>if you're loggin into an PO3 Server that uses APOP then POP3Client
>requires the MD5 module (which you can also get using ppm)
>
>if you're actually interested in learning then read on .. otherwise just
>type
>
> ppm install MD5
>
>at the command prompt and be on your way
>
>ok .. I just wanted to tell you how I worked this out (not complicated
>really) .. this might help you help yourself next time
>
>you see the error message say "Can't locate MD5.pm in @INC (@INC
>contains: C:/Perl/lib C:/Perl/site/lib .) at
>C:/Perl/site/lib/Mail/POP3Client.pm line 357. <GEN0> chunk 1."
>
>so .. you should go to your POP3Client.pm file and look at or near line
>357 .. in my POP3Client.pm I see the line
>
> require MD5;
>
>and it's in the procedure Login_APOP() .. and the comment directly above
>that is "login to the POP server using APOP (md5) authentication" .. so
>I'm guessing that POP3Client is clever enough to know if it's an APOP
>server and if it is then it does a require() on the MD5 module .. so
>obviously you'll have to install that before you can login to an MD5
>server
>
>--
> jason - elephant@squirrelgroup.com -
------------------------------
Date: 6 Sep 1999 23:46:42 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Question about sendmail
Message-Id: <slrn7t96ar.lt8.abigail@alexandra.delanet.com>
sobrien@id.jefferson.co.us (sobrien@id.jefferson.co.us) wrote on MMCXCI
September MCMXCIII in <URL:news:7qfiqg$gnh$1@news-2.csn.net>:
== Malcom: I really agree with your response to my sarcastic
== posting to Dan's question. A helpful response in any form
== is always welcome. However, immediately after your reasoned
== message was this much more typical posting from Abigal:
==
== "Well, that would depend on the value of `$mailprog', now, wouldn't it?
== Of course, what ever value `$mailprog' has, it's not a Perl question.
== Abigail"
==
== I just find this kind of answer most irritating, and I get
== so tired of reading message after message containing this
== supercilious attitude.
Care to indicate where my posting said something that was wrong?
Or is it the truth you cannot stand?
== Sorry for the grumpiness, I usually get to the point
== that I can't stand this news group after a few days and
== drop back out for awhile.
I can't stand people posting Jeopardy style, and they tend to end
up in my killfile.
Abigail
--
sub f{sprintf$_[0],$_[1],$_[2]}print f('%c%s',74,f('%c%s',117,f('%c%s',115,f(
'%c%s',116,f('%c%s',32,f('%c%s',97,f('%c%s',0x6e,f('%c%s',111,f('%c%s',116,f(
'%c%s',104,f('%c%s',0x65,f('%c%s',114,f('%c%s',32,f('%c%s',80,f('%c%s',101,f(
'%c%s',114,f('%c%s',0x6c,f('%c%s',32,f('%c%s',0x48,f('%c%s',97,f('%c%s',99,f(
'%c%s',107,f('%c%s',101,f('%c%s',114,f('%c%s',10,)))))))))))))))))))))))))
-----------== 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: 6 Sep 1999 23:49:46 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: reading email
Message-Id: <slrn7t96gk.lt8.abigail@alexandra.delanet.com>
Ronald E Jeffries (ronERASEjeffries@ERASEacm.org) wrote on MMCXCII
September MCMXCIII in <URL:news:37cd7383.27463743@news.det.ameritech.net>:
\\
\\ I'm trying to write a little script to hide in my cgi directory to let
\\ me read email from a web browser when I'm out of town. The ISP is
\\ running NT.
\\
\\ I gather that Net:POP3 would be one way to do it. I've been unable so
\\ far to find any documentation on that, or to get it downloaded and
\\ installed.
Net::POP3 comes with documentation. Of course that isn't very helpful
if you can't download it. But problems about you downloading something
is not a Perl issue.
As for what you want to archive, wouldn't using a web browser with
POP capabilities (like most well known browsers do) be a lot easier?
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
-----------== 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 13:04:16 +1200
From: Andrew Gray <agray@infoscience.otago.ac.nz>
Subject: Re: Routine for normalising file paths
Message-Id: <ud7vvedm7.fsf@infoscience.otago.ac.nz>
lr@hpl.hp.com (Larry Rosler) writes:
> In article <uaer0rgzp.fsf@infoscience.otago.ac.nz> on 06 Sep 1999
> 13:00:42 +1200, Andrew Gray <agray@infoscience.otago.ac.nz> says...
> > So you want to recursively remove any occurences of m!/\w*/\.\.!.
> That's what the example looks like, but filenames are by no means
> restricted to '\w' characters. As someone pointed out yesterday, on
> many systems the only invalid characters are '/' and "\0". So you
> should work on that assumption.
True. Me bad.
> Also, your regex would remove a pair of directories such as 'x/..y/',
> which is not wanted.
> What is wanted is to repeatedly remove any occurrences of m![^/]+/\.\./!
Except that then we have problems with that Windows thing (among
others). To me it almost seems worth having an escape sequence for
valid directory/filename characters and another for path separators
for the compiled platform. Or am I overlooking something
obvious/being too lazy here?
Cheers,
Andrew
------------------------------
Date: Tue, 07 Sep 1999 00:58:32 GMT
From: tgy@chocobo.org (Neko)
Subject: Re: un-importing names
Message-Id: <37d5604c.88924898@news.supernews.com>
On Mon, 6 Sep 1999 16:08:19 GMT, Gareth Rees <garethr@cre.canon.co.uk> wrote:
>Bill Moseley <moseley@best.com> wrote:
>> use CGI qw/:standard :html3/; # import symbols
>>
>> I forgot how to say "but, don't import symbol 'sub'". Where is it in
>> the docs?
>
>Look at the manpage for the Exporter module.
The CGI module doesn't use Exporter. If you are thinking about using
Exporter's '!foo' syntax to exclude 'foo', perhaps the following patch will
work:
--- CGI.pm~ Mon Sep 6 16:01:42 1999
+++ CGI.pm Mon Sep 6 16:23:11 1999
@@ -728,9 +728,11 @@
next;
}
+ my $remove = s/^!//;
+
foreach (&expand_tags($_)) {
tr/a-zA-Z0-9_//cd; # don't allow weird function names
- $EXPORT{$_}++;
+ $remove ? delete $EXPORT{$_} : $EXPORT{$_}++;
}
}
_compile_all(keys %EXPORT) if $compile;
--
Neko | tgy@chocobo.org | Will hack Perl for a moogle stuffy! =^.^=
------------------------------
Date: 7 Sep 1999 01:36:02 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: using code written in C (anyone know about stemming?)
Message-Id: <7r1q62$sfg$1@charm.magnus.acs.ohio-state.edu>
[A complimentary Cc of this posting was sent to Bill Moseley
<moseley@best.com>],
who wrote in article <MPG.123df2e0ef59df0398970d@nntp1.ba.best.com>:
> Example 4 uses a library instead of just including the C code in the .xs
> file itself. What I'm unclear on is when I need to use this library
> method vs just placing the code in the .xs file?
Mostly aesthetic.
> Can I just insert the my C function in the .xs file (just include the
> entire stemmer.c file, in this case)? Or are there reasons that I
> missed in the tutorial that means I need to build a library first?
If the C code conflicts with perl.h.
> And I'm a bit confused about argument passing. The routine I'm trying
> to build looks like:
>
> int
> Stem( word )
> char *word; /* in/out: the word stemmed */
>
> So Stem() returns an int, but also modifies word.
> It does an explicit return( 1 ) or return( 0 ). Would I need to modify
> the code and put in RETVAL = 1 or RETVAL = 0 above those statements, and
> then
>
> OUTPUT:
> word
> RETVAL
>
> To return both values?
Did you try
int
Stem( word )
char *word; /* in/out: the word stemmed */
OUTPUT:
word
RETVAL
> This stuff really makes me feel dumb.
Feel free to rewrite it when you get a grasp. It is not untouchable.
Ilya
------------------------------
Date: Tue, 7 Sep 1999 12:21:10 +1000
From: elephant@squirrelgroup.com (elephant)
Subject: Re: Win95 Perl interpretor
Message-Id: <MPG.123f219e53c8c14a989cb4@news-server>
Floyd Morrissette writes ..
>Jonathan Stowe wrote in message <37d3e783_2@newsread3.dircon.co.uk>...
>>Erik Jřrgensen <eri-joer@online.no> wrote:
>>> Where can I find the Win95 Perl interpretor?
>>>
>>
>><http://www.activestate.com>
>
>Its the one that says perl for win32 or something like that. Definitely says
>win32
1) please put your reply underneath what you're replying to
2) please check your posts before posting .. the only reference to
"win32" on the above web page is the Perl Resource Kit .. and yet you
say "Definitely" ??
3) to the originator (who has probably already been and gone .. on the
ActiveState web page mentioned above - simply click the obtusely named
"Get Perl!" link - QED)
--
jason - elephant@squirrelgroup.com -
------------------------------
Date: 7 Sep 1999 03:14:22 GMT
From: hatterasNOSPAM@hotbot.com (Jamie Schrumpf)
Subject: Writing Oracle SQL for DBD-Oracle?
Message-Id: <7r1vue$t8f$5@ash.prod.itd.earthlink.net>
Does anyone have any examples of using Perl to call Oracle SQL without using
procedures? All the examples from perldoc use them, and there must be a way to
pass SQL without having to use preset procs.
Examples or pointers to resources will be very much appreciated.
--
-------------------------------------------------------------------------------
Jamie Schrumpf http://home.earthlink.net/~moncominc
------------------------------
Date: Mon, 06 Sep 1999 22:58:21 -0600
From: Ron Reidy <rereidy@uswest.net>
Subject: Re: Writing Oracle SQL for DBD-Oracle?
Message-Id: <37D49B6D.94C529EF@uswest.net>
Jamie Schrumpf wrote:
> Does anyone have any examples of using Perl to call Oracle SQL without using
> procedures? All the examples from perldoc use them, and there must be a way to
> pass SQL without having to use preset procs.
>
> Examples or pointers to resources will be very much appreciated.
> --
> -------------------------------------------------------------------------------
> Jamie Schrumpf http://home.earthlink.net/~moncominc
The docs in the DBD (perldoc DBD::Oracle) module explain many Oracle specific
behaviors. It also shows many PL/SQL examples, I think because this is where there
is some confussion on using DBD/DBI to access PL/SQL objects (although these same
issues exist when using C with embedded SQL (Pro*C) or OCI to access PL/SQL
objects).
The DBI module explains in a general way how to use this module to issue SQL
commands against any SQL compliant RDBMS. Note the language warning about driver
specific implementations, especially concerning the use of bind variables.
You should also read the following docs from Oracle Corp.:
1. Oracle Call Interface Programmer's Guide
2. Oracle 8i Application Developes Guide (all 3 sections)
3. Pro*C/C++ Precompiler Programmer's Guide
4. Programmer's Guide to the Oracle Precompilers
These should be sufficient to give you all the information you need to get started
and answer any questions you may have.
--
Ron Reidy
Oracle DBA
Reidy Consulting, L.L.C.
------------------------------
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 726
*************************************
