[10999] in Perl-Users-Digest
Perl-Users Digest, Issue: 4599 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jan 8 23:01:10 1999
Date: Fri, 8 Jan 99 20:00:14 -0800
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, 8 Jan 1999 Volume: 8 Number: 4599
Today's topics:
"Email this page to a friend" script (Christopher Schulte)
Re: Beginner problem (Larry Rosler)
Calling Perl from C, C from Perl <perl_writer@hotmail.com>
How to do an exact comparison? <luc2@travelpod.com>
Re: How to do an exact comparison? <chub@healtheon.com>
Re: How to do an exact comparison? <craig.berbling@pobox.com>
newbie <bigsalmon@sprynet.com>
Re: newbie (Matthew Bafford)
Perl/CGI base Development (Thana Letchumi)
Re: Perl/CGI base Development <chub@healtheon.com>
Sprite.pm field name problem <j@galaxystar-nospam.com>
viewing Perl data structures <burton@mcs.net>
Wrapping around DBI <chub@healtheon.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 09 Jan 1999 02:21:44 GMT
From: usenet@schulte.org (Christopher Schulte)
Subject: "Email this page to a friend" script
Message-Id: <369dbce8.258308513@news.schulte.org>
Does anyone know of a script that will allow a website user to:
1) be viewing a specific html file
2) click on a link that says "email this page to a friend"
3) enter their address, the friend's, and possibly a message
4) have the page be sent to the specified person, with a static
message added to the end of the email
news.com has this option, on their news stories. But I was curious if
some kind of cgi system has been written to do this too?
I have looked at various resource pages, but to no avail.
Many thanks for any replies!
--
Christopher Schulte
Replace usenet with chris to send mail.
Mail sent to usenet@schulte.org
will *never* get to me. I hate spam!
------------------------------
Date: Fri, 8 Jan 1999 18:48:52 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Beginner problem
Message-Id: <MPG.1100636faaa4a17c989980@nntp.hpl.hp.com>
In article <775gc0$g7f@panix.com> on 8 Jan 1999 12:47:44 -0500, Clay
Irving <clay@panix.com> says...
> In <3695B07C.582BFDA2@netvigator.com> Alex <ex5316@netvigator.com> writes:
...
> >#!/usr/local/bin/perl
> >print "content-type: text/plain\n\n";
> Content-type:
I doubt that this is the problem. From RFC 2068:
"literal"
Quotation marks surround literal text. Unless stated otherwise, the
text is case-insensitive.
...
Content-Type = "Content-Type" ":" media-type
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sat, 9 Jan 1999 11:46:58 +0800
From: "Perl Writer" <perl_writer@hotmail.com>
Subject: Calling Perl from C, C from Perl
Message-Id: <776ja6$7ld$1@imsp009a.netvigator.com>
Hi there,
I need to write a perl module which will invoke a C++ function. This C++
function will then invoke a perl module. Things seem to work fine along the
way. However, I got segmentation fault when the C++ function (xs function)
returns. When I used dbx to trace, it seems that the perl stack or some
control structures are shared by the perl interpreters in the first perl
module and the last one, and have been manipulated by the last perl
interpreter instance. I guess setting the PL_perl_destruct_level may be
useful. However, how can I access this variable? Can anybody give any hint
to me please as I have been stuck here for quite a while?
Thanx.
Chloe
------------------------------
Date: Fri, 8 Jan 1999 21:19:15 -0500
From: "news.rogers.ca" <luc2@travelpod.com>
Subject: How to do an exact comparison?
Message-Id: <776fnq$7dc$1@news.on>
Hello,
This may sound like a stupid question but I know if I do...
if ( $variable =~ /test/ )
it will return true if "test" is in $variable but how do I format the if
statement if I want it to return true only if the string in $variable is
exactly "test" and not "mytest" or "test123"...
Help!
Thanks,
Luc Levesque
luc2@travelpod.com
------------------------------
Date: Fri, 08 Jan 1999 18:50:32 -0800
From: Bruce Chu <chub@healtheon.com>
Subject: Re: How to do an exact comparison?
Message-Id: <3696C3F8.A472A3C8@healtheon.com>
if ($variable eq "test") # for string comparisons
if ($variable == 10) # for numerical comparisons
"news.rogers.ca" wrote:
> Hello,
>
> This may sound like a stupid question but I know if I do...
>
> if ( $variable =~ /test/ )
>
> it will return true if "test" is in $variable but how do I format the if
> statement if I want it to return true only if the string in $variable is
> exactly "test" and not "mytest" or "test123"...
>
> Help!
> Thanks,
>
> Luc Levesque
> luc2@travelpod.com
------------------------------
Date: Sat, 09 Jan 1999 03:48:54 +0000
From: Craig Berbling <craig.berbling@pobox.com>
Subject: Re: How to do an exact comparison?
Message-Id: <3696D1A6.6355A66A@pobox.com>
Bruce Chu wrote:
>
> if ($variable eq "test") # for string comparisons
> if ($variable == 10) # for numerical comparisons
>
> "news.rogers.ca" wrote:
>
> > Hello,
> >
> > This may sound like a stupid question but I know if I do...
> >
> > if ( $variable =~ /test/ )
> >
> > it will return true if "test" is in $variable but how do I format the if
> > statement if I want it to return true only if the string in $variable is
> > exactly "test" and not "mytest" or "test123"...
> >
> > Help!
> > Thanks,
> >
> > Luc Levesque
> > luc2@travelpod.com
Or
if ( $variable =~ /^test$/ )
--
Craig
------------------------------
Date: Fri, 8 Jan 1999 21:22:10 -0500
From: "Ron Spisak" <bigsalmon@sprynet.com>
Subject: newbie
Message-Id: <776eic$qns$1@juliana.sprynet.com>
I am new to programming, I was hoping that some here could help me. I am
looking for a GOOD wbe site to down-load perl manual(s) from. PLEASE emai
me, as I DO NOT monitor the news group. E-mail me at bigsalmon@sprynet.com
------------------------------
Date: Fri, 8 Jan 1999 21:45:00 -0500
From: dragons@scescape.net (Matthew Bafford)
Subject: Re: newbie
Message-Id: <MPG.11008cbabe2a4d398977b@news.scescape.net>
[
You might want to take a little more time choosing the subject for
your next post.
]
In article <776eic$qns$1@juliana.sprynet.com>, bigsalmon@sprynet.com
pounded in the following:
-> I am new to programming, I was hoping that some here could help me. I
-> am looking for a GOOD wbe site to down-load perl manual(s) from.
http://reference.perl.com
Also, the documentation that comes with Perl is very good! It can be
accessed using the perldoc command (perldoc perldoc for more info).
-> PLEASE emai me,
$read{from} = 'here' if ( $post{to} eq 'here' );
(or something like that)
-> as I DO NOT monitor the news group. [snip]
Oh my, I guess you won't get this, then. :(
Hope This Help(s|ed)!
--Matthew
------------------------------
Date: 9 Jan 1999 02:47:11 GMT
From: kthl@msg.ti.com (Thana Letchumi)
Subject: Perl/CGI base Development
Message-Id: <776fvf$nq$1@tilde.csc.ti.com>
Hi,
My team is going to develop a system which includes database. Our main
platform will be Unix Sun Solaris. We want to create web base applicatio using
perl/cgi. My questions are :-
1) Is perl/cgi capable for a user friendly GUI base Web Design
Interface ?.
2) What tools and how do I communicate perl/cgi with Oracle Database ?. Is
the tools freeware ? Is it reliable ?.
The System to develop is a multi-user system and need a very high reliability
platform/software as it is suppose to run 24 hours daily. Therefore data
locking and excessive database communication will be necessary.
Is perl/cgi with oracle will provide the right and reliable solution for this
kind of development ?.
I really need some advice on this matter.
Thank You. Appreciate your help.
Regards,
Thana
------------------------------
Date: Fri, 08 Jan 1999 19:11:28 -0800
From: Bruce Chu <chub@healtheon.com>
Subject: Re: Perl/CGI base Development
Message-Id: <3696C8E0.1988CE1B@healtheon.com>
Thana Letchumi wrote:
> Hi,
>
> My team is going to develop a system which includes database. Our main
> platform will be Unix Sun Solaris. We want to create web base applicatio using
> perl/cgi. My questions are :-
>
> 1) Is perl/cgi capable for a user friendly GUI base Web Design
> Interface ?.
Of course! But it will only be user friendly if Perl is told the right user
friendly interface to output. I would suggest looking at CGI.pm to start with.
>
>
> 2) What tools and how do I communicate perl/cgi with Oracle Database ?. Is
> the tools freeware ? Is it reliable ?.
Take a look at DBI and DBD::Oracle. I've used DBI and DBD::Informix and have them
to be very reliable so far.
>
>
> The System to develop is a multi-user system and need a very high reliability
> platform/software as it is suppose to run 24 hours daily. Therefore data
> locking and excessive database communication will be necessary.
>
> Is perl/cgi with oracle will provide the right and reliable solution for this
> kind of development ?.
> I really need some advice on this matter.
>
> Thank You. Appreciate your help.
>
> Regards,
> Thana
------------------------------
Date: 9 Jan 1999 03:49:04 GMT
From: "Joe" <j@galaxystar-nospam.com>
Subject: Sprite.pm field name problem
Message-Id: <01be3b81$4df6ea40$c5cb9895@brignola-jm>
I've upgraded to the 3.21 version of Sprite.pm and I'm having a problem
with the select clause with a where statement. It seems if your field name
starts with 'LE' like in a field name 'LEASE' and you use it in a where
statement, the select clause never works. I'm wondering if anyone ran into
this problem? I think it is related to the translation of 'LE' to '<=' but
don't know how to fix?
Any help would be appreciated.
Joe....
--
----
Take out '-nospam' in domain above to reply
------------------------------
Date: Fri, 08 Jan 1999 20:47:27 -0600
From: Burton Kent <burton@mcs.net>
Subject: viewing Perl data structures
Message-Id: <3696C33F.C25216BD@mcs.net>
How do you make Perl dump a complex data structure?
(Basically, A hash of hashes of arrays of hashes).
Since perl usually seems to know what type of variable
it's accessing, I imagine there's a module or command to
do this.
I haven't found it on CPAN. (Devel::Peek doesn't seem
to traverse the structure.) Any ideas?
Burton
------------------------------
Date: Fri, 08 Jan 1999 19:08:42 -0800
From: Bruce Chu <chub@healtheon.com>
Subject: Wrapping around DBI
Message-Id: <3696C83A.AC6FD297@healtheon.com>
I wrote a wrapper (has a) around DBI to match database connections. We
use this wrapper to get the database handles.
It turns out that I need to modify each query based on my company's
security validation scheme, so being the enterprising fella that I am, I
modified each call to the DBI wrapper to return a wrapper to a database
handle. The database handle wrapper class defers all calls to the
original db handle unless a query is involved, in which case it calls
the security routine used to modify the query and then delegates that
call to the original db handle.
Everything seems cool until I realize that $dbh->{RaiseError} is
actually being set on my wrapper and not the original DBI::db handle
(which makes a very nice case for data encapsulation). I've thought of
inheriting from DBI or DBI::db, but these seem awful complicated.
Any suggestions on a clean way out of this predicament? We already have
a pretty large existing code base using DBI::db directly, so I would
prefer not to have to change $dbh->{RaiseError} = 1 to a function call.
thanks,
bruce
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 4599
**************************************
