[9456] in Perl-Users-Digest
Perl-Users Digest, Issue: 3049 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jul 3 16:16:54 1998
Date: Fri, 3 Jul 98 13:05:13 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 3 Jul 1998 Volume: 8 Number: 3049
Today's topics:
Larry 1 Bill 0 <ward.kaatz@pss.boeing.com>
Re: Larry 1 Bill 0 <joneil@cks.ssd.k12.wa.us>
Learning Perl ? What's wrong with this code? <radenjava@javaisland.com>
Re: Learning Perl ? What's wrong with this code? (James W. Sandoz)
Re: Learning Perl ? What's wrong with this code? <Tony.Curtis+usenet@vcpc.univie.ac.at>
Re: Learning Perl ? What's wrong with this code? (John Harper)
Re: Learning Perl ? What's wrong with this code? (Mike Wescott)
Re: Learning Perl ? What's wrong with this code? <radenjava@javaisland.com>
Re: Linked list and a code challenge <jdporter@min.net>
Re: Linked list and a code challenge (Mark-Jason Dominus)
Listen error <sofian@ti.com>
Re: Listen error <rra@stanford.edu>
MacPerl::Ask <sprigen687@pop.dnvr.uswest.net>
Re: making my string lowercase <tobbe@perrier.bmc.uu.se>
Manipulating @INC for module include path <ulf.wendel@kiel.netsruf.de>
Re: Manipulating @INC for module include path <westmj@esvax.dnet.dupont.com>
Re: Manipulating @INC for module include path <ulf.wendel@kiel.netsruf.de>
Re: matching second word in a line (Ronald J Kimball)
Re: matching second word in a line (Patrick Timmins)
modules <ulf.wendel@kiel.netsruf.de>
Re: modules (Craig Berry)
msqlperl for standard perl <josri@postoffice.pacbell.net>
Re: msqlperl for standard perl (brian d foy)
Re: msqlperl for standard perl <josri@postoffice.pacbell.net>
NEED HELP: forwarding email to PERL script GSoup@yahoo.com
Re: NEED HELP: forwarding email to PERL script (Greg Campbell)
Need some help <cullain@chaffee.net>
Re: Need some help (Bob Trieger)
needed: contract perl programmer kelly@centermedia.com
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 2 Jul 1998 20:14:39 GMT
From: Ward Kaatz <ward.kaatz@pss.boeing.com>
Subject: Larry 1 Bill 0
Message-Id: <359BEA2F.2D69@pss.boeing.com>
About ready to dash out for the holiday weekend, catching up on c.l.p.m
and thought I'd post a success, or at least something flame-retardent
:-) perhaps even put a smile on a few faces.
My latest assignment (I chose to accept it with an ear-to-ear smile) is
to port/migrate(slay with extreme predjudice?) an Active Server->MS
Access(on NT) web application to Perl->Oracle (on a Sun box).
The Active Server stuff was created by some dudes referred to as
'wizards'. I'm not sure who they really are, but I'd never hire em for
further web work... (and I seriously doubt they know any perl, the poor
suckers)
life is good, hope you all have a fantastic weekend!
Ward Kaatz
------------------------------
Date: Thu, 02 Jul 1998 14:28:19 -0700
From: Jerome O'Neil <joneil@cks.ssd.k12.wa.us>
Subject: Re: Larry 1 Bill 0
Message-Id: <359BFB73.2122115E@cks.ssd.k12.wa.us>
Ward Kaatz wrote:
>
> About ready to dash out for the holiday weekend, catching up on c.l.p.m
> and thought I'd post a success, or at least something flame-retardent
> :-) perhaps even put a smile on a few faces.
>
> My latest assignment (I chose to accept it with an ear-to-ear smile) is
> to port/migrate(slay with extreme predjudice?) an Active Server->MS
> Access(on NT) web application to Perl->Oracle (on a Sun box).
Man, can I work for you?
I recently amazed some poor COBOL slaves with a magic regular expression
and formatted print statment.
Now they all want to do it.
> The Active Server stuff was created by some dudes referred to as
> 'wizards'. I'm not sure who they really are, but I'd never hire em for
> further web work... (and I seriously doubt they know any perl, the poor
> suckers)
Thats the curse of Microsoft. Everyone thinks they are experts.
Jerome "An ex is a has-been, and a spurt is a drip under pressure"
O'Neil
------------------------------
Date: Thu, 02 Jul 1998 03:50:52 -0400
From: radenjava <radenjava@javaisland.com>
Subject: Learning Perl ? What's wrong with this code?
Message-Id: <359B3BDB.A08909@javaisland.com>
I'm just starting to learn Perl, but I have difficulty to understand
this function:
The lesson wants me to type:
print "Your name?";
$name = <STDIN>;
chomp ($name);
print "Hello, $name!\n";
When I try to execute the code by typing perl name.pl , this message
appear:
syntax error in file name.pl at line 4, next 2 tokens "chomp ("
Execution of perl1 aborted due to compilation errors.
I am using Perl under FreeBSD 3.0, can anyone tell me what's wrong with
this?
Thank you very much.
------------------------------
Date: 2 Jul 1998 05:00:33 -0400
From: sandoz@umbc.edu (James W. Sandoz)
Subject: Re: Learning Perl ? What's wrong with this code?
Message-Id: <6nfi7h$bn5@umbc7.umbc.edu>
Your code works fine on my system.
What version of Perl are you using. Chomp doesn't work in v4.
To find the version you're using, type "perl -v" at the command line.
If you have version4, change the chomp to chop. Chop isn't as 'safe' as
chomp - it removes the last character, and that's usually just fine from
standard input (last character will be a newline).
I'm pretty new to perl myself. The system administrators here installed
version 5.xxx but retained version 4 since not all v4 code works in v5,
and there's lots of code in v4 on the machine here. I had the same problem,
but found out Perl 5 can be invoked by specifically calling it:
#!/usr/bin/perl5 -w (or whatever path applies to your script. There's
a different path here to perl5.)
Ask your system administrator.
--
Mr. James W. Sandoz, Instructor, UMBC Dept of Biol Sciences,
1000 Hilltop Circle
Catonsville, MD 21250
voice: (410) 455-3497; fax: 455-3875; net: sandoz@umbc.edu
------------------------------
Date: 02 Jul 1998 09:55:01 +0200
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: Learning Perl ? What's wrong with this code?
Message-Id: <7xhg10adre.fsf@fidelio.vcpc.univie.ac.at>
Re: Learning Perl ? What's wrong with this code?, radenjava
<radenjava@javaisland.com> said:
radenjava> print "Your name?"; $name = <STDIN>; chomp
radenjava> ($name); print "Hello, $name!\n";
radenjava> syntax error in file name.pl at line 4, next 2
radenjava> tokens "chomp (" Execution of perl1 aborted due
radenjava> to compilation errors.
perl -v says something about perl4 I expect. The above
code is for perl5. You need to/should upgrade to the latest
version of perl.
hth
tony
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien, AT | http://www.vcpc.univie.ac.at/
"You see? You see? Your stupid minds! Stupid! Stupid!" ~ Eros, Plan9 fOS.
------------------------------
Date: 02 Jul 1998 10:32:33 -0400
From: harper@banks.scar.utoronto.ca (John Harper)
Subject: Re: Learning Perl ? What's wrong with this code?
Message-Id: <glww9wtjb2.fsf@banks.scar>
In article <359B3BDB.A08909@javaisland.com> radenjava <radenjava@javaisland.com> writes:
> I'm just starting to learn Perl, but I have difficulty to understand
> this function:
> The lesson wants me to type:
>
> print "Your name?";
> $name = <STDIN>;
> chomp ($name);
> print "Hello, $name!\n";
>
> When I try to execute the code by typing perl name.pl , this message
> appear:
>
> syntax error in file name.pl at line 4, next 2 tokens "chomp ("
> Execution of perl1 aborted due to compilation errors.
>
> I am using Perl under FreeBSD 3.0, can anyone tell me what's wrong with
> this?
> Thank you very much.
Try typing perl -v and see what it says. If your Perl version is 5.xxx
then it should work, if it's 4.036 then it will abort with that
message (my old Perl does) because chomp() is a function new to Perl 5
and does not exist in Perl 4. You can get it to work by replacing
chomp with chop, but you should upgrade to Perl 5 if you can.
John Harper
------------------------------------
Academic Computing Coordinator
University of Toronto at Scarborough
harper@scar.utoronto.ca
www.scar.utoronto.ca/~harper/
------------------------------
Date: 02 Jul 1998 10:54:12 -0400
From: wescott@cygnus.ColumbiaSC.NCR.COM (Mike Wescott)
To: radenjava <radenjava@javaisland.com>
Subject: Re: Learning Perl ? What's wrong with this code?
Message-Id: <x4ww9we223.fsf@cygnus.ColumbiaSC.NCR.COM>
[ cc email sent ]
In article <359B3BDB.A08909@javaisland.com> radenjava <radenjava@javaisland.com> writes:
> I have difficulty to understand this function:
> print "Your name?";
> $name = <STDIN>;
> chomp ($name);
> print "Hello, $name!\n";
> When I try to execute the code by typing perl name.pl , this message
> appear:
> syntax error in file name.pl at line 4, next 2 tokens "chomp ("
> Execution of perl1 aborted due to compilation errors.
> I am using Perl under FreeBSD 3.0, can anyone tell me what's wrong with
> this?
Are you using perl 4? "perl -v" will tell you the version of perl being used.
It should be version 5, preferably 5.004_04 or later.
--
-Mike Wescott
mike.wescott@ColumbiaSC.NCR.COM
------------------------------
Date: Thu, 02 Jul 1998 17:05:09 -0400
From: radenjava <radenjava@javaisland.com>
Subject: Re: Learning Perl ? What's wrong with this code?
Message-Id: <359BF604.CAADB894@javaisland.com>
Okay, I just installed Perl 5. But how can set the following argument?
perl: warning: Setting locale failed.
perl: warning: Please check that your locale setting:
LC_ALL = (unset),
LANG = "us"
are supported and installed on you system
perl: warning: Falling back to the standard locale ("C").
This is perl, version 5.004_04 built for i386-freebsd
Thank you.
Mike Wescott wrote:
> [ cc email sent ]
>
> In article <359B3BDB.A08909@javaisland.com> radenjava <radenjava@javaisland.com> writes:
>
> > I have difficulty to understand this function:
>
> > print "Your name?";
> > $name = <STDIN>;
> > chomp ($name);
> > print "Hello, $name!\n";
>
> > When I try to execute the code by typing perl name.pl , this message
> > appear:
>
> > syntax error in file name.pl at line 4, next 2 tokens "chomp ("
> > Execution of perl1 aborted due to compilation errors.
>
> > I am using Perl under FreeBSD 3.0, can anyone tell me what's wrong with
> > this?
>
> Are you using perl 4? "perl -v" will tell you the version of perl being used.
> It should be version 5, preferably 5.004_04 or later.
>
>
>
> --
> -Mike Wescott
> mike.wescott@ColumbiaSC.NCR.COM
------------------------------
Date: Thu, 02 Jul 1998 15:58:50 GMT
From: John Porter <jdporter@min.net>
Subject: Re: Linked list and a code challenge
Message-Id: <359BAFF9.6780@min.net>
Mark-Jason Dominus wrote:
>
> In article <6n0fk9$8d0$1@supernews.com>,
> Snowhare <snowhare@devilbunnies.org> wrote:
> >...
> >You can't express more
> >complex relationships like c->a->b->e->f
> > ^ |
> > | |
> > d<----
> >
> >without the use of the concepts of linked lists.
>
> Yes, it can.
>
> %follower = (
> 'a' => 'b',
> 'b' => 'e',
> 'c' => 'a',
> 'd' => 'b',
> 'e' => 'f',
> 'f' => 'b',
> );
>
> In fact, in your puzzle below, you chose this representation rather
> than a linked list representation, which does not do much to support
> your contention that the list form is useful....
I disagree with you that representations such as %follower (above)
are not linked lists. The "memory space" and "pointers" are
defined within the context of a hash, rather than, say, references
or actual ram pointers, but that's essentially irrelevant.
It's the same as if I implemented a heap inside a single C array,
using indexes into the array, rather than pointers to separately
allocated structures.
--
John Porter
------------------------------
Date: 2 Jul 1998 20:47:32 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Linked list and a code challenge
Message-Id: <6nh9n4$cs8$1@monet.op.net>
In article <6n70on$k78$1@xmission.xmission.com>,
Snowhare <snowhare@xmission.xmission.com> wrote:
>Can't get much more precise than running code.
I misunderstood your explanation. Thanks for the clarification.
------------------------------
Date: Fri, 03 Jul 1998 10:37:29 +0800
From: Sofian Taha <sofian@ti.com>
Subject: Listen error
Message-Id: <359C43E8.A0E1199C@ti.com>
Hello,
Another desperado newbie looking for answers here.
Listen returns the following error: Operation not supported on transport
endpoint.
What does this mean?
Regards,
Sofian Taha
------------------------------
Date: 02 Jul 1998 19:59:39 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: Listen error
Message-Id: <m3d8bniqqs.fsf@windlord.Stanford.EDU>
Sofian Taha <sofian@ti.com> writes:
> Listen returns the following error: Operation not supported on transport
> endpoint. What does this mean?
It means that you created a socket of a type that isn't supported by
listen(). Are you sure that you have a SOCK_STREAM?
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: Thu, 02 Jul 1998 18:04:41 -0600
From: sprigen687 <sprigen687@pop.dnvr.uswest.net>
Subject: MacPerl::Ask
Message-Id: <359C200F.BE597D2D@pop.dnvr.uswest.net>
I'm curious about the MacPerl::Ask and MacPerl::Answer functions. Can I
use them to give input to the script? If there is a page about this,
could you send me a link? Thank you.
------------------------------
Date: Thu, 02 Jul 1998 18:02:51 +0200
From: Tobias Nenkert <tobbe@perrier.bmc.uu.se>
Subject: Re: making my string lowercase
Message-Id: <359BAF2B.AA7EFAC1@perrier.bmc.uu.se>
--------------848646514E03F29483113ADF
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
- wrote:
> Could anyone tell me how to make a skring of UPPERCASE or MiXed-caSE
> chars into a lowercase string?
>
> Thanks
>
> /Blockmar
An easy way:
lc("StRinG");
/Tobias
--------------848646514E03F29483113ADF
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<HTML>
<TT>- wrote:</TT>
<BLOCKQUOTE TYPE=CITE><TT>Could anyone tell me how to make a skring of
UPPERCASE or MiXed-caSE</TT>
<BR><TT>chars into a lowercase string?</TT><TT></TT>
<P><TT>Thanks</TT><TT></TT>
<P><TT>/Blockmar</TT></BLOCKQUOTE>
<TT> An easy way:</TT>
<BR><TT> lc("StRinG");</TT><TT></TT>
<P><TT> /Tobias</TT></HTML>
--------------848646514E03F29483113ADF--
------------------------------
Date: Thu, 02 Jul 1998 11:12:08 +0200
From: Ulf Wendel <ulf.wendel@kiel.netsruf.de>
Subject: Manipulating @INC for module include path
Message-Id: <359B4EE7.652296D1@kiel.netsruf.de>
Hi all,
I would like to look my perl script in the current working directory for
mudules. The background is:
My maschine runs under WInNT and I'm using the CPAN Perl Version which
works fine. But my internet provider runs the ActiveState Perl Version
which is quite "poor" when it comes to modules.
So I do have the extra modules in my (virtual) working path on that
maschine. I need HTML::Entities, Win32::Odbc and CGI.
Well I got the ActiveState Version and put it on my maschine. I put the
above modules in the directory c:/perl/bin and put there a script
similar to:
a.)
push @INC,"c:/perl/bin";
use HTML qw(entities);
b.)
use Cwd; # standard
$cwd=getcwd;
use lib "$cwd/....";
use HTML qw(entities);
Both versions break with:
Can't locate HTML.pm at @INC.
Why? In my CPAN installation .../lib/ I can't find a html.pm. There is
only a subdirectory which I copied.
Thanks for answering the newbie questin!
Ulf Wendel
Can't find
------------------------------
Date: 2 Jul 1998 15:18:47 GMT
From: Mike West <westmj@esvax.dnet.dupont.com>
Subject: Re: Manipulating @INC for module include path
Message-Id: <6ng8cn$r4n@topgun.es.dupont.com>
Try
use HTML::Entities qw(entities);
to use Entities.pm in the directory HTML along the path
in @INC.
(YMMV: I use a Mac or Unix....
In article <359B4EE7.652296D1@kiel.netsruf.de> Ulf Wendel,
ulf.wendel@kiel.netsruf.de writes:
>So I do have the extra modules in my (virtual) working path on that
>maschine. I need HTML::Entities, Win32::Odbc and CGI.
>
> use HTML qw(entities);
>
>Both versions break with:
> Can't locate HTML.pm at @INC.
>
>Why? In my CPAN installation .../lib/ I can't find a html.pm. There is
>only a subdirectory which I copied.
>
------------------------------
Date: Thu, 02 Jul 1998 19:11:49 +0200
From: Ulf Wendel <ulf.wendel@kiel.netsruf.de>
Subject: Re: Manipulating @INC for module include path
Message-Id: <359BBF55.96397592@kiel.netsruf.de>
Mike West schrieb:
> Try
>
> use HTML::Entities qw(entities);
It looks good. But now perl complains:
Global symbol "..." requieres expicit package name at html/entities.pm at
...
:(.
Thanks for advice!
Ulf
------------------------------
Date: Thu, 2 Jul 1998 21:17:29 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: matching second word in a line
Message-Id: <1dbk53c.1te9aqalopoa8N@bay1-197.quincy.ziplink.net>
Patrick Timmins <ptimmins@netserv.unmc.edu> wrote:
> while (<>) {
> (/^\s*\S+?\s+(\S+)/) && print "The second word is $1\n";
> }
Useless use of non-greedy matching; \S and \s match disjoint sets of
characters. Trying to match as few \S characters as possible is
pointless when you know you have to match all of them anyway in order
for the \s match to succeed.
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Fri, 03 Jul 1998 07:18:12 GMT
From: ptimmins@netserv.unmc.edu (Patrick Timmins)
Subject: Re: matching second word in a line
Message-Id: <6ni0jk$c3i$1@nnrp1.dejanews.com>
In article <1dbk53c.1te9aqalopoa8N@bay1-197.quincy.ziplink.net>,
rjk@coos.dartmouth.edu (Ronald J Kimball) wrote:
>
> Patrick Timmins <ptimmins@netserv.unmc.edu> wrote:
>
> > while (<>) {
> > (/^\s*\S+?\s+(\S+)/) && print "The second word is $1\n";
> > }
>
> Useless use of non-greedy matching; \S and \s match disjoint sets of
> characters. Trying to match as few \S characters as possible is
> pointless when you know you have to match all of them anyway in order
> for the \s match to succeed.
>
I know that, and yet, there it is. I have no explanation. I left it off
the last \S+ because I knew this would match everything up to (and not beyond)
the next white space. Why I didn't "believe" this just a few bytes earlier
is a mystery to me.
I can tell you that I have been under alot of pressure lately. My "time off"
at work is turning out to be not so much of a vacation. I was actually
scheduled to be off three weeks ago. On my last Friday morning just prior to
being off, we got a call out of the blue for a major extension to an ongoing
project. So instead of being off, I was working literally 18 to 20 hours a day
for about 8 consecutive days.
Then just when I was about to be "off" again, the cumulative effects of all
the rain we'd been having (something like 16 or 17 consecutive days) flooded
out most of the main access roads in our area, as well as the basement of my
home. No laundry for 3 days is a major problem when you have 4 kids 5 years
old and under.
Well we finally got the basement pumped out and the washer and dryer back up,
and here I am looking pretty good for finally getting my time off. We've got
our tickets, the kids are pumped, and now, what's this? The whole damn Disney
World is on fire! So what if the tickets are non-refundable. Mickey doesn't
want me or my family in his smoky "small world".
So all I'm left with is laying around the house, going through c.l.p.m., and
now here I've blown that as well. It may just look like a small non-greedy
question mark to you, but to me it's a filthy, retched, disgusting vast bowl
of puss. And I hate it! I hate it! It makes me mad! Oh! The war wound! The war
wound!
Patrick Timmins
U. Nebraska Medical Center
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Thu, 02 Jul 1998 22:13:42 +0200
From: Ulf Wendel <ulf.wendel@kiel.netsruf.de>
Subject: modules
Message-Id: <359BE9F6.449C8327@kiel.netsruf.de>
(Sorry for posting again but I really need this information)
Hi!
How can I tell a script to use the modules in the working path? I wrote:
BEGIN {
use Cwd;
$cwd=getcwd;
}
use lib $cwb;
use Html qw(entities);
When I use this chunk of code, Perl complains:
Can't find html.pm...
I copied the subdirectory .../lib/html from my perl installation to the
current working directory of the above script. But I coudn't copy
.../lib/html.pm because there is no
html.pm.
The scripts works fine when using the normal @INC paths but not in the
above case (that's what it will look like on an internet server - WinNT,
ActiveState)
Why? What's wrong?
Thanks for advice!
Ulf Wendel
------------------------------
Date: 2 Jul 1998 21:11:33 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: modules
Message-Id: <6ngt25$kt5$1@marina.cinenet.net>
Ulf Wendel (ulf.wendel@kiel.netsruf.de) wrote:
: How can I tell a script to use the modules in the working path? I wrote:
Do you mean 'in the current working directory'? That's in @INC by
default, you know.
: BEGIN {
: use Cwd;
: $cwd=getcwd;
: }
:
: use lib $cwb;
use lib '.';
has the same effect, with less typing. Again, though, on a standard
installation the only effect will be to move . to be the first place
searched rather than the last.
: use Html qw(entities);
Are you sure you don't mean
use HTML::Entities;
? Case is significant (if not where you are now, for the sake of
portability), and there is no HTML.pm (that I know of, anyway). There
*is* an HTML::Entities.pm, though.
: When I use this chunk of code, Perl complains:
: Can't find html.pm...
Not surprising. :)
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Thu, 02 Jul 1998 09:04:00 -0700
From: josri <josri@postoffice.pacbell.net>
Subject: msqlperl for standard perl
Message-Id: <359BAF70.D45485C5@postoffice.pacbell.net>
Hi
I am able to find msqlperl module for Activestate Perl and YeP-perl and
why not for standard Perl?
Regards
Josri
------------------------------
Date: Thu, 02 Jul 1998 12:25:18 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: msqlperl for standard perl
Message-Id: <comdog-ya02408000R0207981225180001@news.panix.com>
Keywords: from just another new york perl hacker
In article <359BAF70.D45485C5@postoffice.pacbell.net>, josri@pacbell.net posted:
>Hi
>I am able to find msqlperl module for Activestate Perl and YeP-perl and
>why not for standard Perl?
there are a couple of modules to handle mSQL:
Msql.pm, found in Msql-Mysql-modules-1.1831.tar.gz
and the DBI interface
DBD::mSQL, found in (ta-da!) Msql-Mysql-modules-1.1831.tar.gz
look in CPAN under
/modules/by-module/Msql/
good luck :)
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers T-shirts! <URL:http://www.pm.org/tshirts.html>
------------------------------
Date: Thu, 02 Jul 1998 12:57:46 -0700
From: josri <josri@postoffice.pacbell.net>
To: brian d foy <comdog@computerdog.com>
Subject: Re: msqlperl for standard perl
Message-Id: <359BE63A.537DDB52@postoffice.pacbell.net>
Hi brian
Thanks for your response. And sorry for not specifying the platform. Actually I want
msqlperl for windows 95 with standard perl.
> >Hi
> >I am able to find msqlperl module for Activestate Perl and YeP-perl and
> >why not for standard Perl?
>
> there are a couple of modules to handle mSQL:
>
> Msql.pm, found in Msql-Mysql-modules-1.1831.tar.gz
>
> and the DBI interface
>
> DBD::mSQL, found in (ta-da!) Msql-Mysql-modules-1.1831.tar.gz
>
> look in CPAN under
>
> /modules/by-module/Msql/
>
> good luck :)
>
> --
> brian d foy <comdog@computerdog.com>
> CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
> Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
> Perl Mongers T-shirts! <URL:http://www.pm.org/tshirts.html>
------------------------------
Date: Fri, 03 Jul 1998 01:23:44 GMT
From: GSoup@yahoo.com
Subject: NEED HELP: forwarding email to PERL script
Message-Id: <6nhbr0$fgf$1@nnrp1.dejanews.com>
The following is an example I found in the newsgroups for retrieving email
messages from a POP email account, and based on the subject write the body of
the message to a file, or save the email in the email account's mailbox.
The saving messages with a certain subject line works great. The problem
arises when it reads a message that should be put back in the mailbox. I wind
up with several email messages being grouped together as one long message the
next time I check my email with Eudora.
'/var/mail/newton' is where I can find the messages of my email.
Can someone give me some advice on what I could be doing wrong.
Thanks in advance.
Greg Campbell
---------------------------
#! /usr/local/bin/perl5
$header = '';
$body = '';
&GetEmail;
if (CheckSubject($fields{'Subject:'}) == 0) {
open (OUT, ">>testfile.txt");
print OUT $body;
print OUT "\n\n";
close OUT;
}
else {
open (PASSTHRU, ">>/var/mail/newton");
foreach $header (@headers) {
print PASSTHRU "$header";
}
print PASSTHRU "\n$body\r\n";
close PASSTHRU;
}
exit 0;
sub GetEmail {
while (<>) {
last if /^$/;
push (@headers,$_);
$header .= $_;
($field, $value) = /^(\S*)\s*(.*)/;
if (length($field) > 1) {
$fields{$field} = $value;
}
else {
$fields{$field} .= " $value";
}
}
while (<>) {
$body .= $_;
}
}
sub CheckSubject {
my $local_subject = shift(@_);
if ($local_subject =~ /PERL TEST/) {
return 0;
}
else {
return 1;
}
}
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Fri, 03 Jul 1998 01:44:13 GMT
From: gsoup@yahoo.com (Greg Campbell)
Subject: Re: NEED HELP: forwarding email to PERL script
Message-Id: <359c3727.3819779@news.anet-stl.com>
In case it matters, I am using a .forward file to send the email
messages to the PERL script.
Thanks,
On Fri, 03 Jul 1998 01:23:44 GMT, GSoup@yahoo.com wrote:
>The following is an example I found in the newsgroups for retrieving email
>messages from a POP email account, and based on the subject write the body of
>the message to a file, or save the email in the email account's mailbox.
>
>The saving messages with a certain subject line works great. The problem
>arises when it reads a message that should be put back in the mailbox. I wind
>up with several email messages being grouped together as one long message the
>next time I check my email with Eudora.
>
>'/var/mail/newton' is where I can find the messages of my email.
>
>Can someone give me some advice on what I could be doing wrong.
>
>Thanks in advance.
>Greg Campbell
>---------------------------
>#! /usr/local/bin/perl5
>
>$header = '';
>$body = '';
>&GetEmail;
>if (CheckSubject($fields{'Subject:'}) == 0) {
> open (OUT, ">>testfile.txt");
> print OUT $body;
> print OUT "\n\n";
> close OUT;
>}
>else {
> open (PASSTHRU, ">>/var/mail/newton");
> foreach $header (@headers) {
> print PASSTHRU "$header";
> }
> print PASSTHRU "\n$body\r\n";
> close PASSTHRU;
>}
>
>exit 0;
>
>sub GetEmail {
> while (<>) {
> last if /^$/;
> push (@headers,$_);
> $header .= $_;
> ($field, $value) = /^(\S*)\s*(.*)/;
> if (length($field) > 1) {
> $fields{$field} = $value;
> }
> else {
> $fields{$field} .= " $value";
> }
> }
> while (<>) {
> $body .= $_;
> }
>}
>
>sub CheckSubject {
> my $local_subject = shift(@_);
> if ($local_subject =~ /PERL TEST/) {
> return 0;
> }
> else {
> return 1;
> }
>}
>
>-----== Posted via Deja News, The Leader in Internet Discussion ==-----
>http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Thu, 2 Jul 1998 23:27:19 -0600
From: "Cullain" <cullain@chaffee.net>
Subject: Need some help
Message-Id: <6nhpo4$iv6@news.dx.net>
I am a begginer to perl, I am trying to make a mail form but it doesn't seem
to be working, the sysop at my ISP says that it doesn"t have to be in the
cgi-bin directory, although I have heard that it does. When I use the -w
switch I get the error that I have uninitialized values, they pertian to
this line
read(STDIN, $message, $ENV{'CONTENT_LENGTH'});
But, it still runs my program and will mail a blank message to me. When I
try to use it with the HTML though, it just shows my program code on the
screen and I get nothing in my inbox. Any ideas would be greatly
appreciated. Thnks
------------------------------
Date: Fri, 03 Jul 1998 13:30:51 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: Need some help
Message-Id: <6nimia$8oq$2@strato.ultra.net>
[ posted and mailed ]
"Cullain" <cullain@chaffee.net> wrote:
-> I am a begginer to perl, I am trying to make a mail form but it doesn't seem
-> to be working, the sysop at my ISP says that it doesn"t have to be in the
-> cgi-bin directory, although I have heard that it does. When I use the -w
-> switch I get the error that I have uninitialized values, they pertian to
-> this line
Your ISP sounds pretty clueless to me.
-> read(STDIN, $message, $ENV{'CONTENT_LENGTH'});
You'd be much better off using CGI.pm.
-> But, it still runs my program and will mail a blank message to me. When I
-> try to use it with the HTML though, it just shows my program code on the
-> screen and I get nothing in my inbox. Any ideas would be greatly
-> appreciated. Thnks
You don't have a perl problem and c.l.p.m is not the appropriate place to find
the help you need. The directory you run cgi from has to be configured in the
http server. You need to call the clueless ISP and ask him which directory is
appropriate for you or to configure one for you.
HTH
Bob Trieger
sowmaster@juicepigs.com
" Cost a spammer some cash: Call 1-800-286-0591
and let the jerk that answers know that his
toll free number was sent as spam. "
------------------------------
Date: Thu, 02 Jul 1998 20:14:03 GMT
From: kelly@centermedia.com
Subject: needed: contract perl programmer
Message-Id: <6ngpmb$nf5$1@nnrp1.dejanews.com>
Hello Everyone,
I hope someone out there can help us out. We are developing a web site
for a large financial firm and have an immediate need for a perl
programmer. We estimate its about 2-4 days of programming. Feel free to
contact Jon Sachs if you are interested in the details.
617-451-9902 ext.114
jsachs@centermedia.com
Thanks so much in advance!
-Kelly
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". 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". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 3049
**************************************
