[19970] in Perl-Users-Digest
Perl-Users Digest, Issue: 2165 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Nov 20 14:10:37 2001
Date: Tue, 20 Nov 2001 11:10:14 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <1006283413-v10-i2165@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 20 Nov 2001 Volume: 10 Number: 2165
Today's topics:
Question about upgrading Perl on Linux <nospam!jklassen@biblesociety.ca>
Question about upgrading Perl on Linux <nospam!jklassen@biblesociety.ca>
Re: Question about upgrading Perl on Linux <vfoitzik@gmx.net>
Re: Question about upgrading Perl on Linux <nospam!jklassen@biblesociety.ca>
Re: Setting Cookie (Wiliam Stephens)
special chars <st@blink.net>
Special chars <derek@planetturf.ca>
Re: system call (Tad McClellan)
Re: TCPIP Delay <vfoitzik@gmx.net>
Template System (Wiliam Stephens)
Re: Template System <gamu829@yahoo.com>
Re: Template System (Wiliam Stephens)
using sendmail from perl <zkent@adelphia.net>
Re: using sendmail from perl <rereidy@indra.com>
Re: using sendmail from perl (reader of news)
Re: using sendmail from perl nobull@mail.com
Version of Perl at runtime <peterca@ukgateway.net>
Re: Version of Perl at runtime <ilya@martynov.org>
Re: Version of Perl at runtime <peterca@ukgateway.net>
Re: Version of Perl at runtime <bart.lateur@skynet.be>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 20 Nov 2001 10:50:58 -0500
From: "Jeff Klassen" <nospam!jklassen@biblesociety.ca>
Subject: Question about upgrading Perl on Linux
Message-Id: <pVuK7.5054$6o4.87515161@radon.golden.net>
We are interested in exploring a new application written in Perl. However
our server (Linux) is currently running Perl 5.005_03. According to the
specs for the application, we will need 5.6.x.
Can anyone tell me, can Perl be 'upgraded' to a newer version without
disabling the existing modules that have been installed in the current Perl.
There are a variety of CGI scripts running on the server that I do not want
to cause trouble for.
What is the correct upgrading path?
Thanks for any help
------------------------------
Date: Tue, 20 Nov 2001 10:51:35 -0500
From: "Jeff Klassen" <nospam!jklassen@biblesociety.ca>
Subject: Question about upgrading Perl on Linux
Message-Id: <pVuK7.5055$qc4.87293034@radon.golden.net>
We are interested in exploring a new application written in Perl. However
our server (Linux) is currently running Perl 5.005_03. According to the
specs for the application, we will need 5.6.x.
Can anyone tell me, can Perl be 'upgraded' to a newer version without
disabling the existing modules that have been installed in the current Perl.
There are a variety of CGI scripts running on the server that I do not want
to cause trouble for.
What is the correct upgrading path?
Thanks for any help
------------------------------
Date: Tue, 20 Nov 2001 17:09:49 +0100
From: Victor Foitzik <vfoitzik@gmx.net>
Subject: Re: Question about upgrading Perl on Linux
Message-Id: <MPG.16649eaa28c155f1989688@news.cis.dfn.de>
In article <pVuK7.5054$6o4.87515161@radon.golden.net>, Jeff Klassen
wrote:
> We are interested in exploring a new application written in Perl. However
> our server (Linux) is currently running Perl 5.005_03. According to the
> specs for the application, we will need 5.6.x.
>
> Can anyone tell me, can Perl be 'upgraded' to a newer version without
> disabling the existing modules that have been installed in the current Perl.
> There are a variety of CGI scripts running on the server that I do not want
> to cause trouble for.
>
> What is the correct upgrading path?
>
> Thanks for any help
You should perhaps first mention what Linux distribution you're using.
Many distros have their own packaging systems, so you can make your life
easier.
HTH
Vic
------------------------------
Date: Tue, 20 Nov 2001 11:32:31 -0500
From: "Jeff Klassen" <nospam!jklassen@biblesociety.ca>
Subject: Re: Question about upgrading Perl on Linux
Message-Id: <NvvK7.5067$RS4.87902321@radon.golden.net>
The distribution is Mandrake 7.0
"Victor Foitzik" <vfoitzik@gmx.net> wrote in message
news:MPG.16649eaa28c155f1989688@news.cis.dfn.de...
> In article <pVuK7.5054$6o4.87515161@radon.golden.net>, Jeff Klassen
> wrote:
>
> > We are interested in exploring a new application written in Perl.
However
> > our server (Linux) is currently running Perl 5.005_03. According to the
> > specs for the application, we will need 5.6.x.
> >
> > Can anyone tell me, can Perl be 'upgraded' to a newer version without
> > disabling the existing modules that have been installed in the current
Perl.
> > There are a variety of CGI scripts running on the server that I do not
want
> > to cause trouble for.
> >
> > What is the correct upgrading path?
> >
> > Thanks for any help
>
> You should perhaps first mention what Linux distribution you're using.
> Many distros have their own packaging systems, so you can make your life
> easier.
>
> HTH
> Vic
------------------------------
Date: 20 Nov 2001 07:08:56 -0800
From: wil@fbagroup.co.uk (Wiliam Stephens)
Subject: Re: Setting Cookie
Message-Id: <39e3e00a.0111200708.367b9e32@posting.google.com>
nobull@mail.com wrote in message news:<4dafc536.0111190451.4b87d734@posting.google.com>...
> wil@fbagroup.co.uk (Wiliam Stephens) wrote in message news:<39e3e00a.0111180824.7da8dcb7@posting.google.com>...
> > I'm trying to use the following sub to set a cookie to the browser.
> > However, for some reason the cookie never gets set and no error ever
> > gets returned?
> >
> > I'm calling the sub "set_cookie;" which should go and find a random
> > number and then set the cookie from $randid.
>
> I note that your set_cookie() calls CGI::header().
>
> Are you aware that CGI::header must only be called once per CGI script
> (before any other output)?
Yes, thanks. I'm calling use CGI; right at the beginning of my script.
What would I do without that? :-)
I figured out the problem was in the end to do with the subdomain the
site was testing from. It was something I completly overlooked.
Thanks
Wil Stephens
------------------------------
Date: Tue, 20 Nov 2001 11:50:07 -0800
From: "news.endirect.qc.ca" <st@blink.net>
Subject: special chars
Message-Id: <9RvK7.4345$u%1.408314@weber.videotron.net>
Hi,
I have a perl program running as sort of a socket server on a port on my web
server. This program recieves connections from php and then sends that info
out on another socket to a windows program. My problem is that all of the
french special chars don't show up on the windows machines. I know this is a
charset issue.
Can someone point me in the right direction?
Many thanks
------------------------------
Date: Tue, 20 Nov 2001 11:55:29 -0800
From: "Derek Vokey" <derek@planetturf.ca>
Subject: Special chars
Message-Id: <aWvK7.4380$u%1.410686@weber.videotron.net>
Hi,
I have a perl program running as sort of a socket server on a port on my web
server. This program recieves connections from php and then sends that info
out on another socket to a windows program. My problem is that all of the
french special chars don't show up on the windows machines. I know this is a
charset issue.
Can someone point me in the right direction?
Many thanks
------------------------------
Date: Tue, 20 Nov 2001 14:30:35 GMT
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: system call
Message-Id: <slrn9vkne4.k2h.tadmc@tadmc26.august.net>
Rafael Garcia-Suarez <rgarciasuarez@free.fr> wrote:
>Eric wrote in comp.lang.perl.misc:
>> $rtv = system ("cp $a $b") || die "copy failed: $!";
>
>Read the section on system() in perlfunc. system() returns 0 on success.
>So you should write :
> $rtv = system ("cp $a $b") == 0 or die "copy failed: $!";
>or better :
> $rtv = system ("cp",$a,$b) == 0 or die "copy failed: $!";
Neither of those do what was intended (making a guess that it is
intended that $rtv will contain system()'s return value).
The alternatives you offer put a "true" or "false" into $rtv,
not system's return value.
You lose valuable information with the above approach.
>You can use 'or' instead of '||', it has much lower precedence and will
>do what you meant. See the perlop manpage for details about Perl
>operators.
I think "and" is what's needed here, not "or"...
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 20 Nov 2001 17:28:20 +0100
From: Victor Foitzik <vfoitzik@gmx.net>
Subject: Re: TCPIP Delay
Message-Id: <MPG.1664a30cfa9dab9498968a@news.cis.dfn.de>
In article <MPG.16642051a3e4f2c6989718@news.siol.net>, Marvin wrote:
> Hi !
>
> I am using the following code, to send a message to a specified host,
> which runs a program for receiving and displaying messages.
[ code example ]
> If I run this script from Digital Unix machine, the host receives it
> within a second.
> Now, I need to run this script on a Solaris as well. No matter, that
> this script finishes imediately (like on Digital machine), the program
> detects connection after 8 seconds only, so all messages are very slow
> from Solaris box. I think that must be something with TCP delay, ( all
> packets being lost must not get in anymore, so wait a few sec..), and
> with default values of IO::Socket::INET method.
what exactly do you mean with TCP delay ? IO::Socket::INET doesn't
control or manipulate any of the low-level socket options (except
blocking for timeout), so a connection is equivalent to simply
telnetting that host.
Did you try a telnet 192.150.150.200 5000 to see how long it takes ? I
assume you have some other, non perl-related problem with your network.
HTH
Victor
------------------------------
Date: 20 Nov 2001 06:55:56 -0800
From: wil@fbagroup.co.uk (Wiliam Stephens)
Subject: Template System
Message-Id: <39e3e00a.0111200655.22504ba2@posting.google.com>
Hi
I'm now using a template based system. It all works great, except I'm
having a small problem, which I hope is easy to resolve.
The template system scans through HTML files looks for any tags that
look like <%..tag goes here...%> and replaces it with a scalar of the
same name as what is quoted within the <% %>. It then outputs the HTML
with the subitiuted tags.
I'm now trying to replace the tag <%tmpl_add_slct_skills%> with the
following:
$tmpl_add_slct_skills = qq!
print qq|<select name="res_skills" style="font-size=11px">|;
foreach $db_col_skill (@db_col_skills) {
print qq|<option>db_col_skill</option>|;
}
print qq|</select>|;
!;
However, the template system prints everything within the qq! !; to
thre browser instead of doing what it's suppose to do and output the
results.
How can I modify this to output the result of the operation instead of
the raw code?
Thanks!
------------------------------
Date: Tue, 20 Nov 2001 07:31:55 -0800
From: "Greg Muth" <gamu829@yahoo.com>
Subject: Re: Template System
Message-Id: <tvktrdlb3jh735@corp.supernews.com>
If what you're trying to do is get all the output into a scalar string, then
this should work:
$tmpl_add_slct_skills = qq!<select name="res_skills"
style="font-size=11px">|;
foreach $db_col_skill (@db_col_skills) {
$tmpl_add_slct_skills .= qq|<option>db_col_skill</option>|;
}
$tmpl_add_slct_skills .= qq|</select>|;
"Wiliam Stephens" <wil@fbagroup.co.uk> wrote in message
news:39e3e00a.0111200655.22504ba2@posting.google.com...
> Hi
>
> I'm now using a template based system. It all works great, except I'm
> having a small problem, which I hope is easy to resolve.
>
> The template system scans through HTML files looks for any tags that
> look like <%..tag goes here...%> and replaces it with a scalar of the
> same name as what is quoted within the <% %>. It then outputs the HTML
> with the subitiuted tags.
>
> I'm now trying to replace the tag <%tmpl_add_slct_skills%> with the
> following:
>
> $tmpl_add_slct_skills = qq!
>
> print qq|<select name="res_skills" style="font-size=11px">|;
>
> foreach $db_col_skill (@db_col_skills) {
> print qq|<option>db_col_skill</option>|;
> }
>
> print qq|</select>|;
>
> !;
>
> However, the template system prints everything within the qq! !; to
> thre browser instead of doing what it's suppose to do and output the
> results.
>
> How can I modify this to output the result of the operation instead of
> the raw code?
>
> Thanks!
------------------------------
Date: 20 Nov 2001 10:58:38 -0800
From: wil@fbagroup.co.uk (Wiliam Stephens)
Subject: Re: Template System
Message-Id: <39e3e00a.0111201058.5bd9e93d@posting.google.com>
Yes, thanks. My mind went blank there for a minute!
Cheers
"Greg Muth" <gamu829@yahoo.com> wrote in message news:<tvktrdlb3jh735@corp.supernews.com>...
> If what you're trying to do is get all the output into a scalar string, then
> this should work:
>
> $tmpl_add_slct_skills = qq!<select name="res_skills"
> style="font-size=11px">|;
> foreach $db_col_skill (@db_col_skills) {
> $tmpl_add_slct_skills .= qq|<option>db_col_skill</option>|;
> }
> $tmpl_add_slct_skills .= qq|</select>|;
>
>
> "Wiliam Stephens" <wil@fbagroup.co.uk> wrote in message
> news:39e3e00a.0111200655.22504ba2@posting.google.com...
> > Hi
> >
> > I'm now using a template based system. It all works great, except I'm
> > having a small problem, which I hope is easy to resolve.
> >
> > The template system scans through HTML files looks for any tags that
> > look like <%..tag goes here...%> and replaces it with a scalar of the
> > same name as what is quoted within the <% %>. It then outputs the HTML
> > with the subitiuted tags.
> >
> > I'm now trying to replace the tag <%tmpl_add_slct_skills%> with the
> > following:
> >
> > $tmpl_add_slct_skills = qq!
> >
> > print qq|<select name="res_skills" style="font-size=11px">|;
> >
> > foreach $db_col_skill (@db_col_skills) {
> > print qq|<option>db_col_skill</option>|;
> > }
> >
> > print qq|</select>|;
> >
> > !;
> >
> > However, the template system prints everything within the qq! !; to
> > thre browser instead of doing what it's suppose to do and output the
> > results.
> >
> > How can I modify this to output the result of the operation instead of
> > the raw code?
> >
> > Thanks!
------------------------------
Date: Tue, 20 Nov 2001 17:03:15 GMT
From: "Zachary Kent" <zkent@adelphia.net>
Subject: using sendmail from perl
Message-Id: <n1wK7.4246$XJ5.1146978@news1.news.adelphia.net>
Flame-throwers Ready! I can take it! (at least a little)
Hello, I am using Perl 5.005_03 and Sendmail 8.11.1 on a server I don't own
or have root access (your basic leased web account). I am calling Sendmail
via Perl in a CGI environment with the following commands:
open (MAIL, "|/usr/sbin/sendmail -t") or error("Can't open sendmail");
print MAIL ("To: $regEmail\n");
print MAIL ("From: $config{'helpEmail'}\n");
print MAIL ("Subject: Enrollment Confirmation (re: Biological Warfare
broadcast)\n\n");
print MAIL ("$ebody_w");
close MAIL;
The problem arises when someone has put an invalid character (comma, space,
or >) in their address. Instead of a graceful warning or something I get a
fatal error that kills my script and leaves the user in Limbo.
Is there some way to do this so that Sendmail dies gracefully on a bad
email? (remember I don't have root access and most likely can't configure
sendmail other than what it is).
Is there a general list of "bad" characters I can screen for? Currently I
am screening for commas and spaces, but that apparently ain't enough!
Any and all help/point-in-the-right-direction is appreciated.
Zach
------------------------------
Date: Tue, 20 Nov 2001 10:33:51 -0700
From: Ron Reidy <rereidy@indra.com>
Subject: Re: using sendmail from perl
Message-Id: <3BFA93FF.5B418F1D@indra.com>
Zachary Kent wrote:
>
> Flame-throwers Ready! I can take it! (at least a little)
>
> Hello, I am using Perl 5.005_03 and Sendmail 8.11.1 on a server I don't own
> or have root access (your basic leased web account). I am calling Sendmail
> via Perl in a CGI environment with the following commands:
>
> open (MAIL, "|/usr/sbin/sendmail -t") or error("Can't open sendmail");
> print MAIL ("To: $regEmail\n");
> print MAIL ("From: $config{'helpEmail'}\n");
> print MAIL ("Subject: Enrollment Confirmation (re: Biological Warfare
> broadcast)\n\n");
> print MAIL ("$ebody_w");
> close MAIL;
>
> The problem arises when someone has put an invalid character (comma, space,
> or >) in their address. Instead of a graceful warning or something I get a
> fatal error that kills my script and leaves the user in Limbo.
>
> Is there some way to do this so that Sendmail dies gracefully on a bad
> email? (remember I don't have root access and most likely can't configure
> sendmail other than what it is).
>
> Is there a general list of "bad" characters I can screen for? Currently I
> am screening for commas and spaces, but that apparently ain't enough!
>
> Any and all help/point-in-the-right-direction is appreciated.
>
> Zach
Put your sendmail code inside an eval { } block. Trap the error at the
end (see perldoc perlfunc).
--
Ron Reidy
Oracle DBA
Reidy Consulting, L.L.C.
------------------------------
Date: Tue, 20 Nov 2001 18:20:12 GMT
From: newsreader@mediaone.net (reader of news)
Subject: Re: using sendmail from perl
Message-Id: <slrn9vl7m5.k20.newsreader@ocean.universe>
On Tue, 20 Nov 2001 17:03:15 GMT,
Zachary Kent <zkent@adelphia.net> wrote:
>Flame-throwers Ready! I can take it! (at least a little)
>
>Hello, I am using Perl 5.005_03 and Sendmail 8.11.1 on a server I don't own
>or have root access (your basic leased web account). I am calling Sendmail
>via Perl in a CGI environment with the following commands:
>
>The problem arises when someone has put an invalid character (comma, space,
>or >) in their address. Instead of a graceful warning or something I get a
>fatal error that kills my script and leaves the user in Limbo.
>
Try
$ man perlsec
There is even a regular expression
which _should_ be to reject invalid
addresses
------------------------------
Date: 20 Nov 2001 18:26:43 +0000
From: nobull@mail.com
Subject: Re: using sendmail from perl
Message-Id: <u9elmts3h8.fsf@wcl-l.bham.ac.uk>
"Zachary Kent" <zkent@adelphia.net> writes:
> open (MAIL, "|/usr/sbin/sendmail -t") or error("Can't open sendmail");
> print MAIL ("To: $regEmail\n");
> The problem arises when someone has put an invalid character (comma, space,
> or >) in their address. Instead of a graceful warning or something I get a
> fatal error that kills my script and leaves the user in Limbo.
This seems highly improbable.
sendmail is being run in a separate process and being fed stuff down a
pipe. It is almost impossible for sendmail to harm your script except
by a deliberate malicious act.
Perhaps you should present us with the raw data from which you arrived
at the conclusion that an error in sendmail killed your script so that
we could provide an alternative interpretation.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Tue, 20 Nov 2001 14:12:38 +0000
From: Peter Cameron <peterca@ukgateway.net>
Subject: Version of Perl at runtime
Message-Id: <3bfa64c5$0$8505$cc9e4d1f@news.dial.pipex.com>
We need to use Perl 5.005 or later to run our scripts. I've found two Perl
variables that report the version: $] and $^V. The $] one is subject to
rounding errors being floating point, and $^V returns a string
representation of the version number. However, my playing with $^V results
in:
o On linux with perl 5.6.1, nothing is returned
o On Windows with ActiveState Perl 5.005, nothing is returned
o On AIX with Perl 5.005, nothing is returned
A simple script that prints the $^V between some text shows that nothing,
rather than blanks is being returned e.g.
#!/bin/perl
print "Version" . $^V . "of perl found\n";
Does $^V work, or am I missing something fundamental?
Cheers,
Peter
------------------------------
Date: 20 Nov 2001 17:27:32 +0300
From: Ilya Martynov <ilya@martynov.org>
Subject: Re: Version of Perl at runtime
Message-Id: <87u1vpqzzf.fsf@abra.ru>
>>>>> On Tue, 20 Nov 2001 14:12:38 +0000, Peter Cameron <peterca@ukgateway.net> said:
PC> We need to use Perl 5.005 or later to run our scripts. I've found two Perl
PC> variables that report the version: $] and $^V. The $] one is subject to
PC> rounding errors being floating point, and $^V returns a string
PC> representation of the version number. However, my playing with $^V results
PC> in:
PC> o On linux with perl 5.6.1, nothing is returned
PC> o On Windows with ActiveState Perl 5.005, nothing is returned
PC> o On AIX with Perl 5.005, nothing is returned
PC> A simple script that prints the $^V between some text shows that nothing,
PC> rather than blanks is being returned e.g.
PC> #!/bin/perl
PC> print "Version" . $^V . "of perl found\n";
PC> Does $^V work, or am I missing something fundamental?
$^V was introduced in 5.6.0 so it doesn't work in previous versions of
Perl. In Perl >= 5.6.0 it works but not like you are expecting.
$^V IS NOT a string like '5.6.0'. Let me quote 'perldoc perlvar':
$^V The revision, version, and subversion of the Perl
interpreter, represented as a string composed of
characters with those ordinals. Thus in Perl
v5.6.0 it equals "chr(5) . chr(6) . chr(0)" and
will return true for "$^V eq v5.6.0". Note that
the characters in this string value can poten-
tially be in Unicode range.
If you need string presentation of version something like
my $version = join '.', map ord, split '', $^V;
should do the trick.
--
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
| Ilya Martynov (http://martynov.org/) TIV.net (http://tiv.net/) |
| GnuPG 1024D/323BDEE6 D7F7 561E 4C1D 8A15 8E80 E4AE BE1A 53EB 323B DEE6 |
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
------------------------------
Date: Tue, 20 Nov 2001 14:41:26 +0000
From: Peter Cameron <peterca@ukgateway.net>
Subject: Re: Version of Perl at runtime
Message-Id: <3bfa6b84$0$8505$cc9e4d1f@news.dial.pipex.com>
Ilya Martynov wrote:
>> $^V IS NOT a string like '5.6.0'. Let me quote 'perldoc perlvar':
Thanks. I had read that, and it had obviously gone in one ear and out the
other, so to speak.
Looks like I'm stuck with $] for >=5.005.
Cheers,
Peter
------------------------------
Date: Tue, 20 Nov 2001 15:46:02 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Version of Perl at runtime
Message-Id: <8hukvt4mdcuo19ieadosv7433h0bldofsg@4ax.com>
Peter Cameron wrote:
>We need to use Perl 5.005 or later to run our scripts. I've found two Perl
>variables that report the version: $] and $^V.
Why don't you just use the snippet:
require 5.005;
in your script?
The simple
require 5.007;
thingy aborts a script with the message:
Perl v5.7.0 required--this is only v5.6.1, stopped at ...
--
Bart.
------------------------------
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 2165
***************************************
