[12361] in Perl-Users-Digest
Perl-Users Digest, Issue: 5961 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jun 11 12:07:20 1999
Date: Fri, 11 Jun 99 09:00:30 -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, 11 Jun 1999 Volume: 8 Number: 5961
Today's topics:
Re: adding and updating! (howto) (Marcel Grunauer)
Re: Alter name of an array? (Tad McClellan)
Re: ANSWER: Re: uninitialized value? what am i doing wr (Abigail)
comparing substrings of array values <h0444vcs@rz.hu-berlin.de>
Re: defined() and my variables (Tad McClellan)
Re: delete line ending with ) (Tad McClellan)
Re: dimensions of a jpg file <dscapin@harris.com>
Re: dimensions of a jpg file <dscapin@harris.com>
Re: dimensions of a jpg file <dscapin@harris.com>
Error using DBI package <R.Wiechmann@alcatel.de>
Re: Error using DBI package <craig@mathworks.com>
Re: File upload/download Web app. <paul.bunkham@synetica.com>
Re: fork for DNS lookup - help <delete.the.nospam.kayec@gov.ns.ca>
Re: Formmail with Credit Card Validation problems <upsetter@ziplink.net>
Help me please! alex@fire.elcom.ru
Re: if (my $a=1) { } print $a; Why do i get undef an no mikecard@my-deja.com
Re: Interpolation Question (Tad McClellan)
Re: Interpolation Question <ahumphr@c-s-k.de>
Re: Interpolation Question (Marcel Grunauer)
Re: know Perl to maintain Perl (was: Re: I pass an arra (Paul David Fardy)
Re: Linus Torvalds and Carmen Electra? (Marcel Grunauer)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 11 Jun 1999 14:19:17 GMT
From: marcel.grunauer@lovely.net (Marcel Grunauer)
Subject: Re: adding and updating! (howto)
Message-Id: <3768132a.21078969@enews.newsguy.com>
On Fri, 11 Jun 1999 09:46:02 +0200, "Bastiaan S van den Berg"
<office@asc.nl> wrote:
>hi
>
> i need to create a form that has several checkmarks you can click
That's nice.
> once you click them , a frame or a value in a box should be updated to show
>the new total
Lovely.
> i want to do this with perl
You want to do this with JavaScript.
>- is there a way to run perl programs on 'changes' in forms?
>- is there a way to let perl change values in forms?
>- is there a way to let perl change frames and / or frame contents?
Better ask this in some CGI group.
Marcel
------------------------------
Date: Fri, 11 Jun 1999 05:06:23 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Alter name of an array?
Message-Id: <fijqj7.7q6.ln@magna.metronet.com>
Paul Batt (pbatt@pop.agri.ch) wrote:
: Can you manipulate the name of an array? I'd need a way to continuously add
^^^^
: a number to the names of arrays while creating them.
You may *want* to do that, but you don't *need* to do that.
And you *shouldn't* want to do that.
: The name of the first
: array should be @array_1, the next one should be called @array_2, etc. Is
: that possibly somehow or is there any alternate way?
http://www.plover.com/~mjd/perl/varvarname.html
Use a hash-of-arrays instead. See perlref.pod.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 11 Jun 1999 09:26:22 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: ANSWER: Re: uninitialized value? what am i doing wrong?
Message-Id: <slrn7m27l2.37n.abigail@alexandra.delanet.com>
Bastiaan S van den Berg (office@asc.nl) wrote on MMCX September MCMXCIII
in <URL:news:7jqeo8$7kj$1@zonnetje.NL.net>:
** >$car = 0;
** >print "Car exists!\n" if ($car);
** >$car2 = "";
** >print "The other car exists!\n" if ($car2);
** >$car3 = "0";
** >print "The third car exists!\n" if ($car3);
**
** >Hmmm, that didn't print anything. Guess you're wrong. Thrice.
**
** well , i can't help it if it works for me , and not for you ..
**
** btw. i use :
** print "this works" if defined $working;
** not:
** print "this doesn't" if ($itdoesnt)
Reading is difficult, isn't?
Abigail
--
perl -wlpe '}$_=$.;{' file # Count the number of lines.
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Fri, 11 Jun 1999 16:53:50 +0200
From: Markus Banach <h0444vcs@rz.hu-berlin.de>
To: comp.lang.perl.misc@list.deja.com
Subject: comparing substrings of array values
Message-Id: <376122FD.DB42DF32@rz.hu-berlin.de>
Dear participants,
I have an array of string values and
I want to compare a substring of these strings.
# an @bernd array with string values exists
$y = 1;
for ($i = 0; $i <= $x ; $i++) {
if ( $bernd[$i] eq $bernd[$i+1] ) {
# at this stage the substrings instead of the whole string
# should be compared
# the substring starts with any single digit or letter and ends
# with the first space char, in other words :
# $_ =~ /^[a-zA-Z0-9]*\s/
# if true, $bernd[$i] and $bernd[$i+1] should get the same $y number
# (starting from 1) at the beginning
}
else {
#increase the $y
$y++;
# $bernd[$i+1] gets the new $y
# compare substrings of $bernd[$i+1] and $bernd[$i+2] ...
}
}
Does someone of you know how that works ?
Thank you very much for your consideration !
I' m looking forward to your response !
Markus Banach
------------------------------
Date: Fri, 11 Jun 1999 05:20:48 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: defined() and my variables
Message-Id: <gdkqj7.s07.ln@magna.metronet.com>
cmertz@my-deja.com wrote:
: Following is a little code that outlines a
: problem I'm encountering. The problem is that
: defined() is responding differently to blank
^^^^^^^
: input to a function based on whether or not any
: valid input was ever passed to the function.
: I expected %h to go completely out of scope when
: func() returns.
You should adjust your expectations to coincide with the
documented behavior of functions that you use.
perldoc -f defined
reveals:
---------------------
On the other hand, use
of C<defined()> upon aggregates (hashes and arrays) is not guaranteed to
produce intuitive results, and should probably be avoided.
..
Currently, using C<defined()> on an entire array or hash reports whether
memory for that aggregate has ever been allocated. So an array you set
to the empty list appears undefined initially, and one that once was full
and that you then set to the empty list still appears defined. You
should instead use a simple test for size:
if (@an_array) { print "has array elements\n" }
if (%a_hash) { print "has hash members\n" }
..
This counterintuitive behavior of C<defined()> on aggregates may be
changed, fixed, or broken in a future release of Perl.
---------------------
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 11 Jun 1999 05:01:03 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: delete line ending with )
Message-Id: <f8jqj7.7q6.ln@magna.metronet.com>
jimbob4334@my-deja.com wrote:
: How do I delect every line ending with ).
: This is what I have - trying to escape out the )
: perl -pi -e '/$\)//q' temp.file
^^
^^ that is a perl special variable. It is interpolated,
so the backslash does NOT escape the )
You are missing an 's' s///
There is no 'q' option
You have the dollar sign in the wrong place
: get: /)/: unmatched () in line 1
s/\)$//
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 11 Jun 1999 10:41:28 -0400
From: Deamon George Scapin <dscapin@harris.com>
To: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: dimensions of a jpg file
Message-Id: <37612018.7734037C@harris.com>
--------------0552A8540EECE79FF57FA97E
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
I have Image::Size. I put
use Image::Size;
but when I try to use it, I get an error that reads:
C:\Program Files\sambar42\cgi-bin>perl image.pl
Can't locate Image/Size.pm in @INC (@INC contains: C:\PERL\lib\site
C:\PERL\lib
c:\perl\lib c:\perl\lib\site c:\perl\lib\site .) at image.pl line 3.
BEGIN failed--compilation aborted at image.pl line 3.
So that makes me think the program can't find Size.pm because it is trying to
look in a directory Image for Size.pm. So I change the use statement to
read.
use Size;
I get the following error:
C:\Program Files\sambar42\cgi-bin>perl image.pl
Undefined subroutine &main::imgsize called at image.pl line 17.
line 27 of image.pl states the following.
($x, $y) = imgsize($imageName);
As far as the browser, I am trying to suite the needs for IE and Netscape. I
will follow your advice and look at the documentation.
When I am refering to the screen, I am talking about the viewable computer
screen settings. If the user has 1024 x 768 or 800 x 600, or whatever the
case may be...
Thanks.
Tom Phoenix wrote:
> On Thu, 10 Jun 1999, Deamon George Scapin wrote:
>
> > I am writing a perl script and need to find a way to get several
> > dimensions. I need the dimensions of
> >
> > 1) An image
>
> Use Image::Size from CPAN.
>
> > 2) The viewer window
> > 3) The screen size setting.
>
> What viewer? What window? What screen? :-) If you're needing to
> interrogate a remote device, such as a browser, you should check with the
> docs, FAQs, and newsgroups about browsers and the protocols used with
> them.
>
> Cheers!
>
> --
> Tom Phoenix Perl Training and Hacking Esperanto
> Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
--------------0552A8540EECE79FF57FA97E
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
I have Image::Size. I put
<p><b><font size=-2>use Image::Size;</font></b>
<p>but when I try to use it, I get an error that reads:
<p><b><font face="Courier New,Courier"><font size=-2>C:\Program Files\sambar42\cgi-bin>perl
image.pl</font></font></b>
<br><b><font face="Courier New,Courier"><font size=-2>Can't locate Image/Size.pm
in @INC (@INC contains: C:\PERL\lib\site C:\PERL\lib</font></font></b>
<br><b><font face="Courier New,Courier"><font size=-2>c:\perl\lib c:\perl\lib\site
c:\perl\lib\site .) at image.pl line 3.</font></font></b>
<br><b><font face="Courier New,Courier"><font size=-2>BEGIN failed--compilation
aborted at image.pl line 3.</font></font></b>
<p>So that makes me think the program can't find Size.pm because it is
trying to look in a directory Image for Size.pm. So I change the
use statement to read.
<p><font face="Courier New,Courier"><font size=-2>use Size;</font></font>
<p>I get the following error:
<p><font face="Courier New,Courier"><font size=-2>C:\Program Files\sambar42\cgi-bin>perl
image.pl</font></font>
<br><font face="Courier New,Courier"><font size=-2>Undefined subroutine
&main::imgsize called at image.pl line 17.</font></font>
<p>line 27 of image.pl states the following.
<p><font face="Courier New,Courier"><font size=-2>($x, $y) = imgsize($imageName);</font></font>
<p>As far as the browser, I am trying to suite the needs for IE and Netscape.
I will follow your advice and look at the documentation.
<br>When I am refering to the screen, I am talking about the viewable computer
screen settings. If the user has 1024 x 768 or 800 x 600, or whatever
the case may be...
<p>Thanks.
<br>
<p>Tom Phoenix wrote:
<blockquote TYPE=CITE>On Thu, 10 Jun 1999, Deamon George Scapin wrote:
<p>> I am writing a perl script and need to find a way to get several
<br>> dimensions. I need the dimensions of
<br>>
<br>> 1) An image
<p>Use Image::Size from CPAN.
<p>> 2) The viewer window
<br>> 3) The screen size setting.
<p>What viewer? What window? What screen? :-) If you're needing to
<br>interrogate a remote device, such as a browser, you should check with
the
<br>docs, FAQs, and newsgroups about browsers and the protocols used with
<br>them.
<p>Cheers!
<p>--
<br>Tom Phoenix Perl Training and Hacking
Esperanto
<br>Randal Schwartz Case: <a href="http://www.rahul.net/jeffrey/ovs/">http://www.rahul.net/jeffrey/ovs/</a></blockquote>
</html>
--------------0552A8540EECE79FF57FA97E--
------------------------------
Date: Fri, 11 Jun 1999 10:40:01 -0400
From: Deamon George Scapin <dscapin@harris.com>
To: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: dimensions of a jpg file
Message-Id: <37611FC0.541B8E82@harris.com>
--------------0F45AFEB973B90C3E2C27630
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
I have Image::Size. I put
use Image::Size;
but when I try to use it, I get an error that reads:
C:\Program Files\sambar42\cgi-bin>perl image.pl
Can't locate Image/Size.pm in @INC (@INC contains: C:\PERL\lib\site
C:\PERL\lib
c:\perl\lib c:\perl\lib\site c:\perl\lib\site .) at image.pl line 3.
BEGIN failed--compilation aborted at image.pl line 3.
So that makes me think the program can't find Size.pm because it is trying to
look in a directory Image for Size.pm. So I change the use statement to
read.
use Size;
I get the following error:
C:\Program Files\sambar42\cgi-bin>perl image.pl
Undefined subroutine &main::imgsize called at image.pl line 17.
line 27 of image.pl states the following.
($x, $y) = imgsize($imageName);
As far as the browser, I am trying to suite the needs for IE and Netscape. I
will follow your advice and look at the documentation.
When I am refering to the screen, I am talking about the viewable computer
screen settings. If the user has 1024 x 768 or 800 x 600, or whatever the
case may be...
Thanks.
Tom Phoenix wrote:
> On Thu, 10 Jun 1999, Deamon George Scapin wrote:
>
> > I am writing a perl script and need to find a way to get several
> > dimensions. I need the dimensions of
> >
> > 1) An image
>
> Use Image::Size from CPAN.
>
> > 2) The viewer window
> > 3) The screen size setting.
>
> What viewer? What window? What screen? :-) If you're needing to
> interrogate a remote device, such as a browser, you should check with the
> docs, FAQs, and newsgroups about browsers and the protocols used with
> them.
>
> Cheers!
>
> --
> Tom Phoenix Perl Training and Hacking Esperanto
> Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
--------------0F45AFEB973B90C3E2C27630
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
I have Image::Size. I put
<p><b><font size=-2>use Image::Size;</font></b>
<p>but when I try to use it, I get an error that reads:
<p><b><font face="Courier New,Courier"><font size=-2>C:\Program Files\sambar42\cgi-bin>perl
image.pl</font></font></b>
<br><b><font face="Courier New,Courier"><font size=-2>Can't locate Image/Size.pm
in @INC (@INC contains: C:\PERL\lib\site C:\PERL\lib</font></font></b>
<br><b><font face="Courier New,Courier"><font size=-2>c:\perl\lib c:\perl\lib\site
c:\perl\lib\site .) at image.pl line 3.</font></font></b>
<br><b><font face="Courier New,Courier"><font size=-2>BEGIN failed--compilation
aborted at image.pl line 3.</font></font></b>
<p>So that makes me think the program can't find Size.pm because it is
trying to look in a directory Image for Size.pm. So I change the
use statement to read.
<p><font face="Courier New,Courier"><font size=-2>use Size;</font></font>
<p>I get the following error:
<p><font face="Courier New,Courier"><font size=-2>C:\Program Files\sambar42\cgi-bin>perl
image.pl</font></font>
<br><font face="Courier New,Courier"><font size=-2>Undefined subroutine
&main::imgsize called at image.pl line 17.</font></font>
<p>line 27 of image.pl states the following.
<p><font face="Courier New,Courier"><font size=-2>($x, $y) = imgsize($imageName);</font></font>
<p>As far as the browser, I am trying to suite the needs for IE and Netscape.
I will follow your advice and look at the documentation.
<br>When I am refering to the screen, I am talking about the viewable computer
screen settings. If the user has 1024 x 768 or 800 x 600, or whatever
the case may be...
<p>Thanks.
<br>
<p>Tom Phoenix wrote:
<blockquote TYPE=CITE>On Thu, 10 Jun 1999, Deamon George Scapin wrote:
<p>> I am writing a perl script and need to find a way to get several
<br>> dimensions. I need the dimensions of
<br>>
<br>> 1) An image
<p>Use Image::Size from CPAN.
<p>> 2) The viewer window
<br>> 3) The screen size setting.
<p>What viewer? What window? What screen? :-) If you're needing to
<br>interrogate a remote device, such as a browser, you should check with
the
<br>docs, FAQs, and newsgroups about browsers and the protocols used with
<br>them.
<p>Cheers!
<p>--
<br>Tom Phoenix Perl Training and Hacking
Esperanto
<br>Randal Schwartz Case: <a href="http://www.rahul.net/jeffrey/ovs/">http://www.rahul.net/jeffrey/ovs/</a></blockquote>
</html>
--------------0F45AFEB973B90C3E2C27630--
------------------------------
Date: Fri, 11 Jun 1999 10:42:23 -0400
From: Deamon George Scapin <dscapin@harris.com>
Subject: Re: dimensions of a jpg file
Message-Id: <3761204F.93ED0DA1@harris.com>
--------------890CD6F4EAB4340C238A6B8E
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
I have Image::Size. I put
use Image::Size;
but when I try to use it, I get an error that reads:
C:\Program Files\sambar42\cgi-bin>perl image.pl
Can't locate Image/Size.pm in @INC (@INC contains: C:\PERL\lib\site
C:\PERL\lib
c:\perl\lib c:\perl\lib\site c:\perl\lib\site .) at image.pl line 3.
BEGIN failed--compilation aborted at image.pl line 3.
So that makes me think the program can't find Size.pm because it is trying to
look in a directory Image for Size.pm. So I change the use statement to
read.
use Size;
I get the following error:
C:\Program Files\sambar42\cgi-bin>perl image.pl
Undefined subroutine &main::imgsize called at image.pl line 17.
line 27 of image.pl states the following.
($x, $y) = imgsize($imageName);
As far as the browser, I am trying to suite the needs for IE and Netscape. I
will follow your advice and look at the documentation.
When I am refering to the screen, I am talking about the viewable computer
screen settings. If the user has 1024 x 768 or 800 x 600, or whatever the
case may be...
Thanks.
Tom Phoenix wrote:
> On Thu, 10 Jun 1999, Deamon George Scapin wrote:
>
> > I am writing a perl script and need to find a way to get several
> > dimensions. I need the dimensions of
> >
> > 1) An image
>
> Use Image::Size from CPAN.
>
> > 2) The viewer window
> > 3) The screen size setting.
>
> What viewer? What window? What screen? :-) If you're needing to
> interrogate a remote device, such as a browser, you should check with the
> docs, FAQs, and newsgroups about browsers and the protocols used with
> them.
>
> Cheers!
>
> --
> Tom Phoenix Perl Training and Hacking Esperanto
> Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
--------------890CD6F4EAB4340C238A6B8E
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
I have Image::Size. I put
<p><b><font size=-2>use Image::Size;</font></b>
<p>but when I try to use it, I get an error that reads:
<p><b><font face="Courier New,Courier"><font size=-2>C:\Program Files\sambar42\cgi-bin>perl
image.pl</font></font></b>
<br><b><font face="Courier New,Courier"><font size=-2>Can't locate Image/Size.pm
in @INC (@INC contains: C:\PERL\lib\site C:\PERL\lib</font></font></b>
<br><b><font face="Courier New,Courier"><font size=-2>c:\perl\lib c:\perl\lib\site
c:\perl\lib\site .) at image.pl line 3.</font></font></b>
<br><b><font face="Courier New,Courier"><font size=-2>BEGIN failed--compilation
aborted at image.pl line 3.</font></font></b>
<p>So that makes me think the program can't find Size.pm because it is
trying to look in a directory Image for Size.pm. So I change the
use statement to read.
<p><font face="Courier New,Courier"><font size=-2>use Size;</font></font>
<p>I get the following error:
<p><font face="Courier New,Courier"><font size=-2>C:\Program Files\sambar42\cgi-bin>perl
image.pl</font></font>
<br><font face="Courier New,Courier"><font size=-2>Undefined subroutine
&main::imgsize called at image.pl line 17.</font></font>
<p>line 27 of image.pl states the following.
<p><font face="Courier New,Courier"><font size=-2>($x, $y) = imgsize($imageName);</font></font>
<p>As far as the browser, I am trying to suite the needs for IE and Netscape.
I will follow your advice and look at the documentation.
<br>When I am refering to the screen, I am talking about the viewable computer
screen settings. If the user has 1024 x 768 or 800 x 600, or whatever
the case may be...
<p>Thanks.
<br>
<br>
<br>
<p>Tom Phoenix wrote:
<blockquote TYPE=CITE>On Thu, 10 Jun 1999, Deamon George Scapin wrote:
<p>> I am writing a perl script and need to find a way to get several
<br>> dimensions. I need the dimensions of
<br>>
<br>> 1) An image
<p>Use Image::Size from CPAN.
<p>> 2) The viewer window
<br>> 3) The screen size setting.
<p>What viewer? What window? What screen? :-) If you're needing to
<br>interrogate a remote device, such as a browser, you should check with
the
<br>docs, FAQs, and newsgroups about browsers and the protocols used with
<br>them.
<p>Cheers!
<p>--
<br>Tom Phoenix Perl Training and Hacking
Esperanto
<br>Randal Schwartz Case: <a href="http://www.rahul.net/jeffrey/ovs/">http://www.rahul.net/jeffrey/ovs/</a></blockquote>
</html>
--------------890CD6F4EAB4340C238A6B8E--
------------------------------
Date: Fri, 11 Jun 1999 17:20:39 +0200
From: Ralph Wiechmann <R.Wiechmann@alcatel.de>
Subject: Error using DBI package
Message-Id: <37612947.671ECEDB@alcatel.de>
Hi Perl lovers
i get following error:
install_driver(Oracle) failed: Can't load
'/tools/perl5/lib/site_perl/5.005/sun4-solaris/auto/DBD/Oracle/Oracle.so'
for module DBD::Oracle: ld.so.1: /usr/local/bin/perl: fatal:
libclntsh.so.1.0: open failed: No such file or directory at
/tools/perl5/lib/5.00502/sun4-solaris/DynaLoader.pm line 168.
using the syntax
> use DBI;
> $dbh = DBI->connect("DBI:Oracle:DES2000",$sqluid,$sqlpw, {PrintError => 1, > RaiseError => 1})
im my script.
Anybody an idea ?
kind regards
Ralph
------------------------------
Date: Fri, 11 Jun 1999 11:56:45 -0400
From: Craig Ciquera <craig@mathworks.com>
Subject: Re: Error using DBI package
Message-Id: <376131BD.D9B63540@mathworks.com>
What do you get from:
ls -l /tools/perl5/lib/site_perl/5.005/sun4-solaris/auto/DBD/Oracle/Oracle.so
Is the Oracle DBD installed on your system??
Craig
Ralph Wiechmann wrote:
> Hi Perl lovers
> i get following error:
>
> install_driver(Oracle) failed: Can't load
> '/tools/perl5/lib/site_perl/5.005/sun4-solaris/auto/DBD/Oracle/Oracle.so'
> for module DBD::Oracle: ld.so.1: /usr/local/bin/perl: fatal:
> libclntsh.so.1.0: open failed: No such file or directory at
> /tools/perl5/lib/5.00502/sun4-solaris/DynaLoader.pm line 168.
>
> using the syntax
> > use DBI;
> > $dbh = DBI->connect("DBI:Oracle:DES2000",$sqluid,$sqlpw, {PrintError => 1, > RaiseError => 1})
> im my script.
>
> Anybody an idea ?
>
> kind regards
> Ralph
------------------------------
Date: Fri, 11 Jun 1999 16:15:21 +0100
From: Paul Bunkham <paul.bunkham@synetica.com>
Subject: Re: File upload/download Web app.
Message-Id: <37612809.2C7928A2@synetica.com>
Jonathan Stowe wrote:
>
> Paul Bunkham <paul.bunkham@synetica.com> wrote:
> > Why don't people actually help in this newsgroup? Jen here, may have
> > posted to the wrong place, but that is no reason to not pass on
> > information if you have it.
> >
>
> I suppose you think we should pass on our recipes for doughnuts as well
> if someone asks ?
>
Yes, why not? All the other threads in this group that have got moans
about the "perl community" and everything being open source, and you
shouldn't help people if they want to keep their information. Why don't
you listen to what your saying? If I had been using this group for a
long time I would no doubt get more upset with the ridiculous number of
messages posted saying just "And where's your perl question?", than I
would with reading off topic posts by new users and helping people with
other knowledge that I can share.
I am not suggesting that you let off topic threads become the backbone
of the group, but can't you politely help if you can, and point them in
the right direction for future reference. There are so many newsgroups,
it is very hard to understand exactly where those grey area topics are
supposed to be posted, and simply posting unhelpful replies is not going
to stop these messages getting posted to the wrong place.
Surely a miscellaneous newsgroup on perl language topics can cater for
the odd (hopefully related) question about CGI or copyright information,
or anything else people need to know, including recipes for doughnuts if
that is what's needed.
Sorry, I'm probably well out of line here, and I have just added (rather
ironicly) to the multitude of off topic discussions, but I just wanted
to get it off my chest.
Thanks for listening,
Paul.
--
*****************************************
Paul Bunkham
Developer
Synetica Knowledge Technologies
*****************************************
------------------------------
Date: Fri, 11 Jun 1999 11:03:01 -0300
From: "kayec" <delete.the.nospam.kayec@gov.ns.ca>
Subject: Re: fork for DNS lookup - help
Message-Id: <xF883.1294$aP5.52056@sapphire.mtt.net>
Tried it and it worked !!
I ended up putting both of your suggestions in:
$rr->print unless ($seen{$rr->name}++ | $rr->type eq "CNAME");
kayec
kayec wrote in message <80883.1288$aP5.51823@sapphire.mtt.net>...
>Thanks for the info and possible fix... I'll give that a try asap !
>
>
>
>Michael Fuhr wrote in message <7jr0go$d7u@flatland.dimensional.com>...
>>
>>1. Add the following line near the top of the script:
>>
>> my %seen;
>>
>>2. Replace the two "$rr->print" lines with this:
>>
>> $rr->print unless $seen{$rr->name}++;
>>
>>You should also be aware that some records are CNAME records (aliases),
>>so you can end up with something like this:
>
>
>
------------------------------
Date: Fri, 11 Jun 1999 14:26:39 GMT
From: Scratchie <upsetter@ziplink.net>
Subject: Re: Formmail with Credit Card Validation problems
Message-Id: <z0983.2859$nn.846715@news.shore.net>
elklabone@my-deja.com wrote:
[snip]
Rather than posting 1,300 lines of code, why don't you post the part
you're having trouble with? If you want someone to debug this whole thing
for you you'll probably need to hire a consultant.
--Art
--
--------------------------------------------------------------------------
National Ska & Reggae Calendar
http://www.agitators.com/calendar/
--------------------------------------------------------------------------
------------------------------
Date: Fri, 11 Jun 1999 14:05:41 GMT
From: alex@fire.elcom.ru
Subject: Help me please!
Message-Id: <7jr53d$gh5$1@nnrp1.deja.com>
How I can get using CGI the list of files stored at remote FTP
directory?
help me please!
mail me at alex@fire.elcom.ru
thanx for advance!
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Fri, 11 Jun 1999 14:23:15 GMT
From: mikecard@my-deja.com
Subject: Re: if (my $a=1) { } print $a; Why do i get undef an not "1" ??
Message-Id: <7jr646$gu5$1@nnrp1.deja.com>
Janning Vygen <janning@vygen.de> wrote:
> if (my $a=1) {
if you want to check to see if $a is equal to 1 you need to write if
$a==1 when you say if $a = 1 i believe you are assigning $a the value
of 1.
mike cardeiro
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Fri, 11 Jun 1999 04:52:53 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Interpolation Question
Message-Id: <5piqj7.7q6.ln@magna.metronet.com>
Aidan Humphreys (ahumphr@c-s-k.de) wrote:
: > AH> $foo = <<'__ETX';
: >
: >remove the '' from the here token. where did you see that being used and
: >why did you do that? ... ...
: Sorry, I explained the problem very badly. The purpose of the program is to
: retrieve a string from a source -external- to the program (database file
: etc) and to expand the string with information know only at runtime.
: I could do this by substitution operations, but a more elegant solution
: occured to me. If the string contains substrings of the form $xyz
: then is it not possible to trigger interpolation on the string after it is
: read in?
Perl FAQ, part 4:
"How can I expand variables in text strings?"
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 11 Jun 1999 16:12:04 +0200
From: "Aidan Humphreys" <ahumphr@c-s-k.de>
Subject: Re: Interpolation Question
Message-Id: <7jr5ea$549$1@newsread.f.de.uu.net>
Jonathan Feinberg schrieb in Nachricht ...
>"Aidan Humphreys" <ahumphr@c-s-k.de> writes:
>
>If I understand you correctly, then what you're asking is a FAQ,
>perlfaq4, "How can I expand variables in text strings?"
Except that I was explicitly looking for a solution not using the s///
function, rather using the eval function.
How would I do this with eval ?
Aidan.
------------------------------
Date: Fri, 11 Jun 1999 14:19:19 GMT
From: marcel.grunauer@lovely.net (Marcel Grunauer)
Subject: Re: Interpolation Question
Message-Id: <376d1719.22085256@enews.newsguy.com>
On Fri, 11 Jun 1999 09:28:25 +0200, "Aidan Humphreys"
<ahumphr@c-s-k.de> wrote:
>Its maybe clearer to say:
>
>#!/bin/perl
>#
>@param("My", "Title");
>
>#
># Read a string of the form:
># <HTML><HEAD><TITLE> $param[0] $param[1]</TITLE></HEAD></HTML>
>$foo = <>;
>
>#
># Interpolate $param[0] within the string using eval.
># ??? ??? ???
>
># Print the expanded string
>print $foo;
>
>#End
>
>
>Obviously if the string was known prior to running the program then you
>could use standard Perl interpolation.
>
>@param("Mytitle");
>$foo = "<HTML><HEAD><TITLE>$param[0]</TITLE></HEAD></HTML>";
>print $foo;
>
>But since it is read from an external source the standard interpolation
>mechanism will not occur.
If the string contains $param[0] etc. it doesn't matter where you read
it from.
But if you are looking for a more complex way of filling in templates
with tokens that need to be replaced by real values at runtime, have
a look at the Text::Template module (on CPAN, of course).
HTH
Marcel
------------------------------
Date: 11 Jun 1999 14:45:45 GMT
From: pdf@morgan.ucs.mun.ca (Paul David Fardy)
Subject: Re: know Perl to maintain Perl (was: Re: I pass an array...)
Message-Id: <7jr7ep$c5j$1@coranto.ucs.mun.ca>
Jonathan Feinberg <jdf@pobox.com> writes:
>> Is there a word or phrase missing from that sentence?
Tom Christiansen <tchrist@mox.perl.com> writes:
> Yes, there is, but I'm now too far away to check the right version.
Perhaps I should attribute the many grammatical mistakes to your source
and editting. I found myself wishing the author had spent less time on
his vocabulary and more time on his grammar. I think, for several
sentences, I'd find the structure awkward even if the (typographical?)
errors were fixed.
Perhaps the critic misjudged the writer and his readers. The critic
may be wrong, but that doesn't mean the writer is right. One should
write for one's readers and I'm inclined to believe that the use of
"energumen" does not serve the readers. Without the original material,
I can't clearly see why some use of "demoniac", "fanatic", or/and
"zealot", for example, would not suffice. However, while I'm wary,
I'd reserve judgement until I'd actually read the original text.
I'm not sure what to make of your quotation in the context of the
current debate. It could support the argument that one should not
undervalue one's readers. It could also exemplify yet another writer
who seeks to justify his obfuscation rather than conceed that there are
better ways of expressing his ideas. In the words of Henry Spencer:
"... for thy creativity is better used in solving problems
than in creating beautiful new impediments to understanding."
In the spirit of this expression, one should also be willing to
leave behind archaic usage when it, too, impedes understanding.
Paul Fardy
------------------------------
Date: Fri, 11 Jun 1999 14:19:21 GMT
From: marcel.grunauer@lovely.net (Marcel Grunauer)
Subject: Re: Linus Torvalds and Carmen Electra?
Message-Id: <376e1aa5.22993542@enews.newsguy.com>
On Fri, 11 Jun 1999 07:58:45 -0400, "John Bjorgen"
<john.bjorgen@cplc.com> wrote:
>They have absolutely nothing in common.
>Now that I have everyone's attention - heres's my question -
Congratulations on getting yourself killfiled.
Marcel
------------------------------
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 5961
**************************************
