[22547] in Perl-Users-Digest
Perl-Users Digest, Issue: 4768 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Mar 27 18:21:03 2003
Date: Thu, 27 Mar 2003 15:20:37 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 27 Mar 2003 Volume: 10 Number: 4768
Today's topics:
Re: How to use Net::FTP - FTP Client class through a Fi (Joe Kamenar)
Re: howto use shared object c++ libs from perl on linux <kalinabears@hdc.com.au>
Re: howto use shared object c++ libs from perl on linux <goldbb2@earthlink.net>
including subfunctions from another file <lance-news@augustmail.com>
Re: including subfunctions from another file <grazz@nyc.rr.com>
Re: Is there one module for 'rcp'? <pengtaoli@hotmail.com>
Re: Limited form of eval() - just a calculator <acm2@ukc.ac.uk>
Re: Mail::Sender - comma separated email address lists <nobull@mail.com>
Re: Mail::Sender - comma separated email address lists (Stefan Adams)
Re: Mail::Sender - comma separated email address lists <mgjv@tradingpost.com.au>
Re: Memory used by hashes ctcgag@hotmail.com
Millionaire at 31 ... on the Internet! Listen to how he <gaylarson@yahoo.com>
Re: more than one apache script directory ? <noreply@gunnar.cc>
need perl programmer with sql in toronto <cbell@interlog.com>
Re: need perl programmer with sql in toronto (Mike Stok)
Re: Need something to do Sendmail in reverse. <ian@WINDOZEdigiserv.net>
Re: Need something to do Sendmail in reverse. (Richard Byers)
Re: Need something to do Sendmail in reverse. <noreply@gunnar.cc>
Re: Newbie: how to use fork and daemonize in CGI scrip (Kathryn)
Perl and C++ <mail@annuna.com>
Re: Perl and C++ <mjcarman@mchsi.com>
Perl DBD::DB2 and security? <shah@typhoon.xnet.com>
perl generating bad html (Ernest)
Re: perl generating bad html <abigail@abigail.nl>
Re: perl generating bad html <kkeller-spammmm@wombat.san-francisco.ca.us>
Re: perl generating bad html <kkeller-spammmm@wombat.san-francisco.ca.us>
Re: perl generating bad html <mjcarman@mchsi.com>
Re: Perl to parse C++ code?? <jussij@zeusedit.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 27 Mar 2003 06:11:56 -0800
From: joey19020@aol.com (Joe Kamenar)
Subject: Re: How to use Net::FTP - FTP Client class through a Firewall
Message-Id: <fca4c27e.0303270611.78a38c6c@posting.google.com>
OK,
I tried this, using the following code:
use Net::FTP;
$ftp = Net::FTP->new("ftp.fund.xxxxx.com", Firewall =>
"ftp-gateway.xxxx.net", FirewallType => 5, Debug => 1) or die("Unable
to create ftp object");
$ftp->authorize("fundstn", "password");
$ftp->login("nationuser",'pass77');
$ftp->cwd("/pub");
$ftp->get("that.file");
$ftp->quit;
I get this as the initial reply:
Net::FTP: Net::FTP(2.56)
Net::FTP: Exporter(5.562)
Net::FTP: Net::Cmd(2.18)
Net::FTP: IO::Socket::INET(1.25)
Net::FTP: IO::Socket(1.26)
Net::FTP: IO::Handle(1.21)
Net::FTP=GLOB(0x1ab2cec)<<< 220-Secure Gateway FTP server
Net::FTP=GLOB(0x1ab2cec)<<< 220-Corporate Firewall Gateway.
Net::FTP=GLOB(0x1ab2cec)<<< 220 Ready
Net::FTP=GLOB(0x1ab2cec)>>> AUTH fundstn
Net::FTP=GLOB(0x1ab2cec)<<< 500 Syntax error, command unrecognized:
'AUTH fundstn
What is causing this error?
------------------------------
Date: Thu, 27 Mar 2003 14:42:30 +1100
From: "Sisyphus" <kalinabears@hdc.com.au>
Subject: Re: howto use shared object c++ libs from perl on linux?
Message-Id: <3e82740b$0$9241@echo-01.iinet.net.au>
"Henri Schomäcker" <henri.schomaecker@virtual-homes.de> wrote in message
news:b5rtfg$icd$04$1@news.t-online.com...
> Hi folks,
>
> I have a very big application written in perl and would like to use some
of
> my shared object c++ libs (.so) with it and would like to replace the
> perl-code part by part by c++.
>
> Is this possible and if yes, how? (I think on a win32 system I can use the
> win32::API for it, right?)
> If you have done that before, I'd be very thankful for some hints how to
> avoid common mistakes etc.
>
> Many thanks in advance,
> yours Henri
>
On MS Windows, Win32::API allows you to access shared lib functions from
perl. Afaik there is nothing like this for other operating systems.
SWIG, XS and Inline are 3 more options for gaining access to functions in
shared libs. (I *assume* that SWIG accommodates this - the other 2 options
certainly do.)
Take a look at the Inline modules from cpan, specifically Inline::CPP.
Cheers,
Rob
------------------------------
Date: Wed, 26 Mar 2003 23:39:54 -0500
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: howto use shared object c++ libs from perl on linux?
Message-Id: <3E82809A.9F02C34B@earthlink.net>
Sisyphus wrote:
> Henri Schomäcker wrote:
> > Hi folks,
> >
> > I have a very big application written in perl and would like to use
> > some of my shared object c++ libs (.so) with it and would like to
> > replace the perl-code part by part by c++.
> >
> > Is this possible and if yes, how? (I think on a win32 system I can
> > use the Win32::API for it, right?)
> > If you have done that before, I'd be very thankful for some hints
> > how to avoid common mistakes etc.
> >
> > Many thanks in advance,
> > yours Henri
> >
>
> On MS Windows, Win32::API allows you to access shared lib functions
> from perl. Afaik there is nothing like this for other operating
> systems.
Untrue. Go read the "new Perl feature request: call into shared libs"
thread, the most recent message of which was less than a week ago.
In short, though, there's C::DynaLib, which works on most *nix systems.
> SWIG, XS and Inline are 3 more options for gaining access to functions
> in shared libs. (I *assume* that SWIG accommodates this - the other 2
> options certainly do.)
>
> Take a look at the Inline modules from cpan, specifically Inline::CPP.
I would definitely agree that that's the way to go -- if you wanted to
try C::Dynalib, you'd have to deal with the name mangling that C++ does,
whereas with Inline::CPP, the compiler handles everything transparently.
--
$a=24;split//,240513;s/\B/ => /for@@=qw(ac ab bc ba cb ca
);{push(@b,$a),($a-=6)^=1 for 2..$a/6x--$|;print "$@[$a%6
]\n";((6<=($a-=6))?$a+=$_[$a%6]-$a%6:($a=pop @b))&&redo;}
------------------------------
Date: Thu, 27 Mar 2003 09:16:46 -0600
From: Lance Hoffmeyer <lance-news@augustmail.com>
Subject: including subfunctions from another file
Message-Id: <slrnb865fq.d8h.lance-news@buddha.hofflund.net>
Hello all,
I have one file called main.pl and another file called test.pl
How can I use the functions in test.pl while running main.pl?
test.pl
test{
print "This is only a test \n";
}
main.pl
use strict;
use warnings;
"" How do I call test.pl ? ""
call("test.pl");
include("test.pl");
?????
test();
--
Lance Hoffmeyer
lance@augustmail.com
-------------------------------------------------------------------------------
The natural progress of things is for liberty to yield and governments to gain ground.
-
Thomas Jefferson
------------------------------
Date: Thu, 27 Mar 2003 15:27:16 GMT
From: Steve Grazzini <grazz@nyc.rr.com>
Subject: Re: including subfunctions from another file
Message-Id: <oLEga.1583$yY.507652@twister.nyc.rr.com>
Lance Hoffmeyer <lance-news@augustmail.com> wrote:
>
> I have one file called main.pl and another file called test.pl
> How can I use the functions in test.pl while running main.pl?
>
> test.pl
> test{
> print "This is only a test \n";
> }
>
> main.pl
> use strict;
> use warnings;
> "" How do I call test.pl ? ""
[ snip guesses ]
require 'test.pl';
But this isn't the only way -- or the best way, IMO --
to reuse code. Have a look at
$ perldoc -f do
$ perldoc -f use
$ perldoc -f require
And then, if you're interested:
$ perldoc perlmod
$ perldoc Exporter
$ perldoc perlboot
HTH
--
Steve
------------------------------
Date: Thu, 27 Mar 2003 11:32:41 +0800
From: "Franklin Lee" <pengtaoli@hotmail.com>
Subject: Re: Is there one module for 'rcp'?
Message-Id: <b5trcv$7hk@netnews.proxy.lucent.com>
File::Remote is very interesting module.
It can satisfy my need.
Thank you all!
Franklin
------------------------------
Date: Wed, 26 Mar 2003 18:07:04 -0000
From: Tony McNulty <acm2@ukc.ac.uk>
Subject: Re: Limited form of eval() - just a calculator
Message-Id: <oprmnlx2q12czp9w@news.ukc.ac.uk>
On Wed, 26 Mar 2003 11:38:55 -0500, Ted Zlatanov <tzz@lifelogs.com> wrote:
> I think Parse::RecDescent comes with an example calculator, and it's
> very appropriate for what you are doing.
[snip]
On 25 Mar 2003 09:02:16 GMT, Tassilo v. Parseval <tassilo.parseval@rwth-
aachen.de> wrote:
> Use the Safe module. The little script below should only allow some
> mathematical operators:
[snip]
Thanks both of you for your replies, very much appreciated,
Tony
--------------------------------------
web: http://mercutio.digitalrice.com
email: mercutio at digitalrice dot com
--------------------------------------
------------------------------
Date: 26 Mar 2003 18:36:23 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: Mail::Sender - comma separated email address lists
Message-Id: <u9smtavuu0.fsf@wcl-l.bham.ac.uk>
David.Hiskiyahu@brinksinc.com (David Hiskiyahu) writes:
> I am using Mail::Sender module in an Active Perl script
> running on a Windows 2000 server.
>
> The script needs to send email messages to lists of addresses.
>
> As long as the list contains a single address, it works fine.
> Once I am trying to use a comma-separated list of multiple addresses,
> the script gives errors.
>
> The comma-separated lists of addresses have no newlines in them,
> and I tried to have them with and without spaces near the comma.
> I looked into the documentation of the module, found no useful
> hint there for my case.
> # The error message says:
> # 'user1@hismail.com, user2@hermail.com' unknown on
> # host "myServer.somewhere.com"
If you look at the source for Mail::Sender then you'll see that if any
of the addresses in the To, CC or BCC generate errors it always
generates the same error listing the whole 'To' field.
My advise, ditch this module, there are much better modules to send
mail on CPAN.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: 26 Mar 2003 13:02:03 -0800
From: stefan@borgia.com (Stefan Adams)
Subject: Re: Mail::Sender - comma separated email address lists
Message-Id: <dcc927de.0303261302.3e7522a6@posting.google.com>
David.Hiskiyahu@brinksinc.com (David Hiskiyahu) wrote in message news:<b07846ff.0303260759.7247ef93@posting.google.com>...
> As long as the list contains a single address, it works fine.
> Once I am trying to use a comma-separated list of multiple addresses,
> the script gives errors.
I would split the list on /\s*,\s*/ and wrap either the SendMessage
call or the code within the SendMessage function in a for loop.
Stefan
------------------------------
Date: Thu, 27 Mar 2003 02:03:30 GMT
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: Mail::Sender - comma separated email address lists
Message-Id: <slrnb84mvi.crt.mgjv@verbruggen.comdyn.com.au>
On 26 Mar 2003 07:59:38 -0800,
David Hiskiyahu <David.Hiskiyahu@brinksinc.com> wrote:
> #This one fails with an error:
> SendMyMessage ( 'myServer.somewhere.com',
> 'myFromEemail@myServer.somewhere.com',
> 'myReply@myserver.somewhere.com,
> 'user1@hismail.com, user2@hermail.com',
[snip]
> sub SendMyMessage {
> ($server, $sendFrom, $replyTo, $sendTo, $sendCC, $sendSubj, $sendMsg) = @_;
>
> eval {
> (new Mail::Sender)
> ->MailMsg({smtp => $server,
> from => $sendFrom,
> replyto => $replyTo,
> to => $sendTo,
The documentation says "This parameter may be either a comma separated
list of email addresses or a reference to a list of addresses." You're
passing it two addresses separated by a comma _and_ a space. Either
use
'user1@hismail.com,user2@hermail.com',
or
[ 'user1@hismail.com', 'user2@hermail.com' ],
Martien
--
|
Martien Verbruggen | For heaven's sake, don't TRY to be cynical.
Trading Post Australia | It's perfectly easy to be cynical.
|
------------------------------
Date: 27 Mar 2003 15:45:22 GMT
From: ctcgag@hotmail.com
Subject: Re: Memory used by hashes
Message-Id: <20030327104522.557$G4@newsreader.com>
Fr€d <nospam@euro.com> wrote:
> I am running a simple perl program that sums 5 variables over 100Gb of
> data. I have 5 hashes that use the same 12 character key. There are
> about 4 million keys. Basically the program is:
>
> while (<INPUT>) {
> $key =substr($_,0,12);
> extract 5 numbers from $_;
> $sum1{$key} ++;
> $sum2{$key} += $val;
> ... (for all 5 sums)
> }
>
> The job is currently running and is using about 685Mb of memory at about
> 2/3 the way thru the data. 80% of the keys have appeared by now I'd
> expect.
Only 80% of the keys have appeared at by the time you are 66% of the way
throught the data? It sounds like the keys appear in some order or
grouping, that maybe you could take advantage of.
> Can anyone explain why this is using so much memory? Even given that
> all variables are double precision, I can only come up with about 20% of
> what's being used.
Well, let's see. There are 5*4 million key value pairs,
at ~12 bytes per key and ~24 bytes per value (assuming you never
use the values in a stringy way), so that's ~720MB, which sounds
about right.
> I thought all hashes that used the same key were
> stored in one place;
They are, kind of. The key strings are only stored once, but there is
of course overhead (for pointers and such) to enable them to be shared.
That overhead is ~12 bytes per key/value pair. Since your keys are so
short to start with, you do not benefit much from this arrangement.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service New Rate! $9.95/Month 50GB
------------------------------
Date: Wed, 26 Mar 2003 18:21:49 GMT
From: Gay Larson <gaylarson@yahoo.com>
Subject: Millionaire at 31 ... on the Internet! Listen to how he is doing it.
Message-Id: <1dmga.986$HC1.788@news01.roc.ny.frontiernet.net>
Out of 5000 email subscribers, approximately $47,642.85 worth of orders can be made and 40 % goes to you = $19,057.14
Not bad for a 5 minute job!
Why will you make so much money for one single post?
By sending out this letter, your readers will gain free access to Stephan Ducharme’s new AUDIO ebook "Millionaire at 31 - Listen to How He is Doing It"
It is an interview with Stephan where he gives just enough marketing secrets to entice the reader to make them want to know ALL of Stephan's marketing secrets.
The free interview ebook will then have YOUR affiliate link at the end that will direct them to Stephan's incredible sales letter. (Several gurus say that it’s one of the best sales letter ever written. Each word and combination of words has been tested. Each sentence is based upon hypnotic hard-to-stop-reading positive and realistic matters.)
So a lot of your readers will buy Stephan Ducharme’s best-seller “How To Get 1 Million Visitors On Your Website Without Paying A Dime in Advertisement” for $197
5 out of 100 readers purchase. That’s 1 in 20 !!! It’s very high ratio.
40% commissions on your 1st tier
10% commissions on your 2nd tier
You could earn up to $70 a sale.
The third reason why your paycheck gets so high is that Stephan has built a series of awesome follow-ups that TRIPLE the orders over the weeks and you always touch your 40% commission on all those future sales.
So you make money each day you post this letter and also continue to make money day after day for a long time.
It took months to build this system, created from the mind and financed from the pockets of a self-made internet millionaire, so it is perfect. IT PAYS YOU A LOT.
Everything is taken care of by Stephan’s customer service and huge system, backed-up by 5 servers to keep up with the demand.
All you have to do is:
1.Click here to register for free to get your affilate ID and customized solo ad:
http://www.freeadguru.com/cgi-bin/i.pl?c=r&i=243447
Your link will then be placed within Stephan's new ebook
"Millionaire at 31... Listen to how he is doing it"
2. Send the above solo ad to your readers.
All you will have to do is give away the free ebook to your
list as a gift from you and let Stephan do the rest.
For 2nd tier commission, you will have a second link to build your downline and a this pre-written "Super-ad" ready to be sent to super-affiliates and list owners.
By forwarding this "Super-ad" message to all the list owners
you may know, you'll earn 10% on each and ALL of the
copies they sell to THEIR readers and visitors !!!
Get your affiliate ID here:
http://www.freeadguru.com/cgi-bin/i.pl?c=r&i=243447
To your success,
Gay Larson
---
MAF Anti-Spam ID: 20030324124244Y3l0WoS6
------------------------------
Date: Wed, 26 Mar 2003 23:34:32 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: more than one apache script directory ?
Message-Id: <b5t9ts$2cpp1u$1@ID-184292.news.dfncis.de>
Gunnar Hjalmarsson wrote:
> ebchang wrote:
>> One solution is to designate c:\usr as the installation directory
>> when you install the Perl interpreter. Then the location is in
>> fact /usr/bin/perl and the shebang line doesn't need to be changed.
>
> Does that really work? Wouldn't it rather result in the location
> C:/usr/bin/perl ?
It works! :) Actually, I kept my IndigoPerl installation as is; *all*
I did was to copy perl.exe to C:/usr/bin.
Thanks for the tip, EB, and sorry for questioning it. (Thought I had
tried just that previously - obviously not...)
/ Gunnar
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Wed, 26 Mar 2003 11:58:41 -0600
From: "Chris Bell" <cbell@interlog.com>
Subject: need perl programmer with sql in toronto
Message-Id: <W1lga.4628$062.663798@news20.bellglobal.com>
Does any one know the best way to source out
programmers in Toronto?
Chris
------------------------------
Date: Wed, 26 Mar 2003 17:23:00 GMT
From: mike@ratdog.stok.co.uk (Mike Stok)
Subject: Re: need perl programmer with sql in toronto
Message-Id: <Ullga.16622$Gc61.7375@news01.bloor.is.net.cable.rogers.com>
In article <W1lga.4628$062.663798@news20.bellglobal.com>,
Chris Bell <cbell@interlog.com> wrote:
>Does any one know the best way to source out
>programmers in Toronto?
Have you looked at http://jobs.perl.org/ or http://to.pm.org/
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | GPG PGP Key 1024D/059913DA
mike@exegenix.com | Fingerprint 0570 71CD 6790 7C28 3D60
http://www.exegenix.com/ | 75D2 9EC4 C1C0 0599 13DA
------------------------------
Date: Wed, 26 Mar 2003 17:06:06 GMT
From: "Ian.H [dS]" <ian@WINDOZEdigiserv.net>
Subject: Re: Need something to do Sendmail in reverse.
Message-Id: <80n38vkoor9dof2hev6851jb5s3v3c1i67@4ax.com>
Keywords: Remove WINDOZE to reply
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
In a fit of excitement on 26 Mar 2003 08:48:43 -0800,
richardbyers@talk21.com (Richard Byers) managed to scribble:
> My problem is working out how those "unsubscribe" type emails are
> actually handled.
>
> Can an email actually be sent to a server, which then activates a
> Perl script, which can then dis-assemble the contents of the email,
> Before opening and revising a database?
>
> Or are the emails simply stored and then processed later?
>
> Bit like using Sendmail in reverse - which I know doesn't work
>
> Rick.
_Normally_ the mail list would be handled by Majordomo. The lists are
stored as text files on the filesystem.. sending a mail such as:
To: majordomo@domain.com
Body: subscribe mailing_list_name_here
This would subscribe the 'From:' e-mail address to the mailing list
of which name you specified in the body. The same works for the
unsubscribing except 'subscribe' in the body is replaced with
'unsubscribe'.
Majordomo pipes info through the /etc/aliases file for the details it
added when the list was setup and configured.
Regards,
Ian
-----BEGIN xxx SIGNATURE-----
Version: PGP 8.0
iQA/AwUBPoHc4mfqtj251CDhEQLGQgCdFFplWEMt6BVzPVAgJgpUCR0E7XgAoJyV
9AqrCC1e7j+H4rTgi8PhYS9t
=Ozkn
-----END PGP SIGNATURE-----
--
Ian.H [Design & Development]
digiServ Network - Web solutions
www.digiserv.net | irc.digiserv.net | forum.digiserv.net
Scripting, Web design, development & hosting.
------------------------------
Date: 27 Mar 2003 01:12:17 -0800
From: richardbyers@talk21.com (Richard Byers)
Subject: Re: Need something to do Sendmail in reverse.
Message-Id: <22a01626.0303270112.6656e3ef@posting.google.com>
"Ian.H [dS]" <ian@WINDOZEdigiserv.net> wrote in message news:<80n38vkoor9dof2hev6851jb5s3v3c1i67@4ax.com>...
> -----BEGIN xxx SIGNED MESSAGE-----
> Hash: SHA1
>
> In a fit of excitement on 26 Mar 2003 08:48:43 -0800,
> richardbyers@talk21.com (Richard Byers) managed to scribble:
>
> > My problem is working out how those "unsubscribe" type emails are
> > actually handled.
>
Still quite excited - can you extract and use other info from the
email, other than subscribe/unsubscribe
Many thanks
Rick
------------------------------
Date: Thu, 27 Mar 2003 12:16:05 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Need something to do Sendmail in reverse.
Message-Id: <b5umhr$2delt7$1@ID-184292.news.dfncis.de>
Richard Byers wrote:
> Still quite excited - can you extract and use other info from the
> email, other than subscribe/unsubscribe
Yes. One simple (but insecure) way is to pipe a message to a Perl
script, which is invoced thereby, can read the whole message from
STDIN, and do with it whatever you 'tells' the Perl script to.
/ Gunnar
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 26 Mar 2003 12:24:27 -0800
From: kathryn@printingforless.com (Kathryn)
Subject: Re: Newbie: how to use fork and daemonize in CGI script
Message-Id: <182c49fd.0303261224.495a43ef@posting.google.com>
efflandt@xnet.com (David Efflandt) wrote in message news:<slrnb81vur.805.efflandt@typhoon.xnet.com>...
>
> Have you searched for daemonize in 'perldoc perlipc'? Basically you need
> to disassociate the child script that you want to continue from the CGI.
YES, and this is my code from that:
#!/usr/bin/perl
use CGI;
use POSIX;
$query = new CGI;
print $query->header;
exit unless $query->param();
my $q = select (STDOUT); # do flushable output
$| = 1;
select ($q);
#START THE FORK PROCESS
$kidpid = fork();
if (!defined($kidpid)) {
# failure of fork
print "Child Failed. Error message: $!";
} elsif ($kidpid) {
#PARENT PROCESS
#send email, create textfile, print HTML doc
} else {
#CHILD PROCESS
sleep 2;
$file1 = $query->param('file1');
&daemonize;
eval{$val = upload($file1,'file1')};
if (($@) && ($file1 ne "")) {
$uploadstatus = 0;
$failedfiles = "$file1";
}
#send email if upload successful
}
sub daemonize {
chdir '/' or die "Can't chdir to /: $!";
open STDIN, '/dev/null' or die "Can't read /dev/null: $!";
open STDOUT, '>/dev/null'
or die "Can't write to /dev/null: $!";
defined(my $pid = fork) or die "Can't fork: $!";
exit if $pid;
setsid or die "Can't start a new session: $!";
open STDERR, '>&STDOUT' or die "Can't dup stdout: $!";
}
If I have an upload that loses its connection, everything still fails.
------------------------------
Date: Thu, 27 Mar 2003 16:18:46 -0600
From: Joe Creaney <mail@annuna.com>
Subject: Perl and C++
Message-Id: <3E8378C6.5050302@annuna.com>
I have been trying to learn C++ and Perl. I like Perl more for
programming. It is much easier to do thingsin perl but I realy prefer
the way C++ creates objects and classes.
------------------------------
Date: Thu, 27 Mar 2003 16:46:04 -0600
From: Michael Carman <mjcarman@mchsi.com>
Subject: Re: Perl and C++
Message-Id: <b5vuvd$spm4@onews.collins.rockwell.com>
On 3/27/2003 4:18 PM, Joe Creaney wrote:
> I have been trying to learn C++ and Perl. I like Perl more for
> programming. It is much easier to do thingsin perl but I realy
> prefer the way C++ creates objects and classes.
That's nice. Did you have a Perl question?
-mjc
------------------------------
Date: Wed, 26 Mar 2003 17:34:10 +0000 (UTC)
From: Hemant Shah <shah@typhoon.xnet.com>
Subject: Perl DBD::DB2 and security?
Message-Id: <b5soai$of0$1@flood.xnet.com>
Folks,
While accessing DB2 database from perl, I have to connect to the
database using DBI->connect( "dbi:DB2:dbname", "user", "password");
The password is in plain ASCII text. Any one who can read the perl
script will be able to know the password of the user. I am concerned,
because the perl script will be running on the web server and access
the database on remote Linux system. If someone breaks into the web server
he/she can get the username and password from the perl script and try to
access/update the database.
Is there another way to connect to the database without using password
in plain text?
Thanks.
--
Hemant Shah /"\ ASCII ribbon campaign
E-mail: NoJunkMailshah@xnet.com \ / ---------------------
X against HTML mail
TO REPLY, REMOVE NoJunkMail / \ and postings
FROM MY E-MAIL ADDRESS.
-----------------[DO NOT SEND UNSOLICITED BULK E-MAIL]------------------
I haven't lost my mind, Above opinions are mine only.
it's backed up on tape somewhere. Others can have their own.
------------------------------
Date: 27 Mar 2003 14:06:24 -0800
From: forgoogle@yahoo.com (Ernest)
Subject: perl generating bad html
Message-Id: <77d5e055.0303271406.337fe66c@posting.google.com>
Hello. I have a perl shopping cart script. And it's generating code
with multiple <body> tags. The script works in Netscape, but not in
IE. We recently switched from a UNIX server, where it worked, to an NT
server, where we started having these problems. Any ideas? Thanks.
Ernest
------------------------------
Date: 27 Mar 2003 22:20:29 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: perl generating bad html
Message-Id: <slrnb86u9d.lrb.abigail@alexandra.abigail.nl>
Ernest (forgoogle@yahoo.com) wrote on MMMCDXCV September MCMXCIII in
<URL:news:77d5e055.0303271406.337fe66c@posting.google.com>:
:} Hello. I have a perl shopping cart script. And it's generating code
:} with multiple <body> tags. The script works in Netscape, but not in
:} IE. We recently switched from a UNIX server, where it worked, to an NT
:} server, where we started having these problems. Any ideas? Thanks.
There's a bug in line 17.
Abigail
--
Why on earth would you want to switch from Unix to NT anyway?
No wonder things break.
------------------------------
Date: Thu, 27 Mar 2003 14:30:20 -0800
From: Keith Keller <kkeller-spammmm@wombat.san-francisco.ca.us>
Subject: Re: perl generating bad html
Message-Id: <s1uv5b.hd3.ln@goaway.wombat.san-francisco.ca.us>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
In article <77d5e055.0303271406.337fe66c@posting.google.com>, Ernest wrote:
> Hello. I have a perl shopping cart script. And it's generating code
> with multiple <body> tags. The script works in Netscape, but not in
> IE. We recently switched from a UNIX server, where it worked, to an NT
> server, where we started having these problems. Any ideas? Thanks.
Post a short code snippet that replicates the problem.
- --keith
- --
kkeller-mmmspam@wombat.san-francisco.ca.us
(try just my userid to email me)
public key: http://wombat.san-francisco.ca.us/kkeller/kkeller.asc
alt.os.linux.slackware FAQ: http://wombat.san-francisco.ca.us/cgi-bin/fom
-----BEGIN xxx SIGNATURE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: For info see http://www.gnupg.org
iEYEARECAAYFAj6De3sACgkQhVcNCxZ5ID/g/gCfcW6OuQQrbchm3mQBSsjIq3OO
2g8An1oxJ0bfcL86pP7PnlT6GJB9z3kU
=AGqx
-----END PGP SIGNATURE-----
------------------------------
Date: Thu, 27 Mar 2003 14:32:50 -0800
From: Keith Keller <kkeller-spammmm@wombat.san-francisco.ca.us>
Subject: Re: perl generating bad html
Message-Id: <i6uv5b.hd3.ln@goaway.wombat.san-francisco.ca.us>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
In article <slrnb86u9d.lrb.abigail@alexandra.abigail.nl>, Abigail wrote:
> Why on earth would you want to switch from Unix to NT anyway?
> No wonder things break.
Can't this be haiku-ized?
Why would you want to
Switch from unix to NT?
No wonder things break.
(:
- --keith
- --
kkeller-mmmspam@wombat.san-francisco.ca.us
(try just my userid to email me)
public key: http://wombat.san-francisco.ca.us/kkeller/kkeller.asc
alt.os.linux.slackware FAQ: http://wombat.san-francisco.ca.us/cgi-bin/fom
-----BEGIN xxx SIGNATURE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: For info see http://www.gnupg.org
iEYEARECAAYFAj6DfBIACgkQhVcNCxZ5ID+aCgCdENw548E5ATJGt8s7Zc4xLZ3w
lK4AmwTNWnYrhrySiUQuIxGtT9srXxgB
=Jwtv
-----END PGP SIGNATURE-----
------------------------------
Date: Thu, 27 Mar 2003 16:39:37 -0600
From: Michael Carman <mjcarman@mchsi.com>
Subject: Re: perl generating bad html
Message-Id: <b5vuja$9u4@onews.collins.rockwell.com>
On 3/27/2003 4:06 PM, Ernest wrote:
> Hello. I have a perl shopping cart script. And it's generating code
> with multiple <body> tags. The script works in Netscape, but not in
> IE. We recently switched from a UNIX server, where it worked, to an NT
> server, where we started having these problems. Any ideas? Thanks.
Your vehilisnitzer is frezzledonked. Try upping the blugits for your
wibbler.
-mjc
------------------------------
Date: Fri, 28 Mar 2003 08:02:08 +1000
From: Jussi Jumppanen <jussij@zeusedit.com>
Subject: Re: Perl to parse C++ code??
Message-Id: <3E8374E0.7FC6@zeusedit.com>
Michael P. Broida wrote:
> I'm trying to setup a Perl tool that will parse some of our C++ code
> files (mostly .h files) and make a list of all the symbols (variables,
> enum names, #defines, etc) that it finds. This list will be used by
> another program or a later step of the tool.
I think you are tryinjg to re-invent the wheel :)
My suggestion would be to down load the Exuberant Ctags from
this link:
http://sourceforge.net/projects/ctags/
This tagger supports several programming langauges and will do
an excellent job of producing the oupput you describe.
Jussi Jumppanen
Author of: Zeus for Windows, Win32 (Brief, Emacs, etc) FTP Text Editor
"The C/C++, Java, HTML, FTP, Python, PHP, Perl programmer's editor"
Home Page: http://www.zeusedit.com
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.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 V10 Issue 4768
***************************************
