[11509] in Perl-Users-Digest
Perl-Users Digest, Issue: 5109 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Mar 11 10:07:19 1999
Date: Thu, 11 Mar 99 07:00:28 -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 Thu, 11 Mar 1999 Volume: 8 Number: 5109
Today's topics:
Re: BigInt: Decimal to Hex <sb@sdm.de>
Re: converting unix perl to win32? <horizon@internetexpress.com.au>
Re: converting unix perl to win32? <dtbaker@bus-prod.com>
Re: DBI docs? (Steve Linberg)
Re: DBI docs? <yfang@gte.com>
FAQ 3.31: When I tried to run my script, I got this mes <perlfaq-suggestions@perl.com>
FAQ 3.32: What's MakeMaker? <perlfaq-suggestions@perl.com>
flock parameters <mymail@nospam.com>
Re: formatting QUERY_STRING (Jonathan Stowe)
HTML, RTF, XML and CGI rouchyg@gatwick.geco-prakla.slb.com
Re: I want to know where I can get a sendmail program t (Jonathan Stowe)
Re: I want to know where I can get a sendmail program t emarkert@my-dejanews.com
Re: input from file or from buffer (Bart Lateur)
Re: MAKE utility for Windows98 <dturley@pobox.com>
Module to find duplicate files? <Philip.Newton@datenrevision.de>
Mysql question (John )
Objects: overriding a constructor <H.van.der.Breggen@opleidingen.capgemini.nl>
Re: Objects: overriding a constructor <Tony.Curtis+usenet@vcpc.univie.ac.at>
Perl + Mysql/sql - NEED FAQ <grey.cloud@usa.net>
Re: Perl scripts written for UNIX. Will they work on NT <dturley@pobox.com>
Re: PerlTk for Win32 ? <dturley@pobox.com>
Pitfalls installing CPAN modules on DOS <lowella@serv.net>
Re: please help (Jonathan Stowe)
Re: Problems with File::Find and links <jacklam@math.uio.no>
Re: Sending Attachment with perl (Dan Wilga)
signal handling - 'IGNORE' vs 'sub {}' <Alex.Davies@tiuk.ti.com>
signal handling - 'IGNORE' vs 'sub {}' <Alex.Davies@tiuk.ti.com>
Socket programming problem <Mr.unix@mail.excite.com>
use diagnostics problem? <horizon@internetexpress.com.au>
using variables in patterns olmert@netvision.net.il
Re: Why 'use CGI' syntax works offline but not online? emarkert@pace.edu
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 11 Mar 1999 10:04:03 GMT
From: Steffen Beyer <sb@sdm.de>
Subject: Re: BigInt: Decimal to Hex
Message-Id: <7c84ej$oo9$1@solti3.sdm.de>
In comp.lang.perl.misc Jerome O'Neil <jeromeo@atrieva.com> wrote:
> I have been unsuccessful in attempting to convert large decimal integers
> (>20 digits) to their hexadecimal equivalents.
> SCO drops core with printf("%x"), and Math::BigInt doesn't support
> conversions. Where else might I look for big_dec2hex conversion code?
Use the module "Bit::Vector" - see my sig below for URLs where you can
find it.
Converting to/from hex and decimal is one of the modules easiest feats... :-)
Hope this helps.
I guess this module should be mentioned in the FAQs by now, but I'm
afraid it isn't...
Tom, what about including mention of this module in the FAQs, just as
the Date::Calc module is mentioned in the FAQs about date calculation
problems?
I'm tired to answer these really FREQUENTLY asked questions several
times a week...
Thanks a lot! :-)
Best regards,
--
Steffen Beyer <sb@engelschall.com>
http://www.engelschall.com/u/sb/download/ (Free Perl and C Software
http://www.perl.com/CPAN/authors/id/STBEY/ for Download)
New: Build'n'Play 2.1.0 (all-purpose Unix batch installation tool)
http://www.oreilly.de/catalog/perlmodger/bnp.html
------------------------------
Date: Thu, 11 Mar 1999 23:25:51 +1100
From: Mick <horizon@internetexpress.com.au>
Subject: Re: converting unix perl to win32?
Message-Id: <36E7B64F.F539080B@internetexpress.com.au>
Instead of #!/usr/bin/perl you need to give the path to your perl.exe file eg.
#!C:\PERL\5.00502\BIN\MSWin32-x86-object\perl
You don't need to 'give permissions' to a perl script in win32
Mick
Thrawn5 wrote:
> if I'm writing a perl script for win32 instead of unix what do I put in place
> of:
> #!/usr/bin/perl
>
> how do I give permissions to a perl script in win32?
--
----------------------------------------------------------------
HORIZON Software Solutions
Visit Site - http:www.deakin.edu.au/~bellears/horizon/index.html
e-mail - mailto:horizon@internetexpress.com.au
----------------------------------------------------------------
------------------------------
Date: Thu, 11 Mar 1999 08:11:53 -0600
From: Dan Baker <dtbaker@bus-prod.com>
Subject: Re: converting unix perl to win32?
Message-Id: <36E7CF29.8D5E015D@bus-prod.com>
Thrawn5 wrote:
>
> if I'm writing a perl script for win32 instead of unix what do I put in place
> of:
> #!/usr/bin/perl
>
> how do I give permissions to a perl script in win32?
-----------
depends on your web server... most actually ignore the #!/usr/bin/perl
line, so you can leave it in. The web server I use (Xitami from
http://www.imatix.com) just requires that you put scripts in the right
subdirectory. The only other thing you may need to do is create a new
.pl file type and define it to open with c:\...wherever...\perl.exe
The only stuff you will probably have to recode are any file pathnames,
and system calls
Dan
------------------------------
Date: Thu, 11 Mar 1999 13:52:50 GMT
From: slinberg@crocker.com (Steve Linberg)
Subject: Re: DBI docs?
Message-Id: <slinberg-1103990852510001@cc11620-a.lwmrn1.pa.home.com>
In article <36e7a49a.37587900@news.freeserve.net>,
John@melon17.freeserve.co.uk wrote:
> Is there anywhere where I can
> get some good documentation
> on DBI?
Um, how about the DBI distribution on CPAN?
------------------------------
Date: Thu, 11 Mar 1999 09:28:38 -0500
From: Yu Fang <yfang@gte.com>
Subject: Re: DBI docs?
Message-Id: <36E7D316.5D3ABCB7@gte.com>
You may want to try
http://www.arcana.co.uk/technologia/perl/DBI/
However, my experience shows that there is no doc talking about
EVERYTHING about DBI. The way I do is read the doc + join the mailing
list + read the source code.
John wrote:
>
> Is there anywhere where I can
> get some good documentation
> on DBI?
>
> John
--
Frank Yu Fang
GTE Internetworking
40 Sylvan Road
Waltham, MA 02451-1128
Phone: 781-466-3351
Fax: 781-466-2650
Pager: 1-800-759-8888 PIN# 1619895 or 1619895@skytel.com
------------------------------
Date: 11 Mar 1999 05:17:05 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 3.31: When I tried to run my script, I got this message. What does it mean?
Message-Id: <36e7b441@csnews>
(This excerpt from perlfaq3 - Programming Tools
($Revision: 1.33 $, $Date: 1998/12/29 20:12:12 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq3.html
if your negligent system adminstrator has been remiss in his duties.)
When I tried to run my script, I got this message. What does it
mean?
the perldiag manpage has a complete list of perl's error messages
and warnings, with explanatory text. You can also use the splain
program (distributed with perl) to explain the error messages:
perl program 2>diag.out
splain [-v] [-p] diag.out
or change your program to explain the messages for you:
use diagnostics;
or
use diagnostics -verbose;
--
Documentation is the castor oil of programming. Managers know it must
be good because the programmers hate it so much.
------------------------------
Date: 11 Mar 1999 07:47:13 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 3.32: What's MakeMaker?
Message-Id: <36e7d771@csnews>
(This excerpt from perlfaq3 - Programming Tools
($Revision: 1.33 $, $Date: 1998/12/29 20:12:12 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq3.html
if your negligent system adminstrator has been remiss in his duties.)
What's MakeMaker?
This module (part of the standard perl distribution) is designed
to write a Makefile for an extension module from a Makefile.PL.
For more information, see the ExtUtils::MakeMaker manpage.
--
"... an initial underscore already conveys strong feelings of
magicalness to a C programmer."
--Larry Wall in <1992Nov9.195250.23584@netlabs.com>
------------------------------
Date: Thu, 11 Mar 1999 08:00:05 -0500
From: JPAH-FLA <mymail@nospam.com>
Subject: flock parameters
Message-Id: <36E7BE55.8703CB66@nospam.com>
Tom Christiansen posted an item "DEMO: File locking " in which he
illustrates flocking with a number of examples. In each case, flock()
has a filehandle as arg1, but what is arg2? According to camel, arg2 is
an integer. In this example below, it appears that (in the absence of
"use strict;" which produces a bareword error) Tom's arg2 in flock() is
a string. I tried the example on my system and "use strict;" flagged it
as an error, so I didn't get very far.
I also tried, roughly following Camel:
sysopen(FH,MYFILE,RD_ONLY);
$LOCK_SH = 1;
flock(FH, $LOCK_SH);
which, instead of locking the file, immediately exited the script.
A little help? Thanks.
Cheers!
---------------------------------------------------------------------------------------------------------------------------
use 5.004;
use Fcntl qw(:DEFAULT :flock);
open(FH, "< filename") or die "can't open filename: $!";
flock(FH, LOCK_SH) or die "can't lock filename: $!";
# now read from FH
------------------------------
Date: Thu, 11 Mar 1999 12:14:34 GMT
From: gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: formatting QUERY_STRING
Message-Id: <36e7b223.10206490@news.dircon.co.uk>
On Wed, 10 Mar 1999 22:43:10 -0500, Aaron Walker <amwalker@gate.net>
wrote:
>hello,
>
>I am writing a perl script to assist another perl script.
>The first perl script calls the second one by the user clicking on a
>link..
>
>example:
>
>first perl script:
>
>... (I skipped the above code, cause it wasn't necessary for my example)
>
><html><body>
><a href="/cgi-bin/second_script.pl?file=$filename">$filename</a>
>...
>
>second perl script:
> --begin--
>#!/usr/bin/perl
>print "Content-type: text/html\n\n";
>read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
>@pairs = split(/&/, $buffer);
>
<snip the rest of the broken code>
>
>why doesn't the above work? it is the code I usually use when I am
>using forms.
>It should still work here, too right?
Wrong.
When you have a link to a CGI like you have here then you are using
the 'GET' method - your code only deals with the POST method.
Read the CGI specification:
http://hoohoo.ncsa.uiuc.edu
Use the module CGI.pm and read the documentation for it.
Read the CGI FAQ
http://www3.pair.com/webthing/docs/cgi/faqs/cgifaq.shtml
Read the Idiot's Guide to solving CGI problems
http://language.perl.com/CPAN/doc/FAQs/cgi/idiots-guide.html
/J\
------------------------------
Date: Thu, 11 Mar 1999 12:58:36 GMT
From: rouchyg@gatwick.geco-prakla.slb.com
Subject: HTML, RTF, XML and CGI
Message-Id: <7c8elp$sdr$1@nnrp1.dejanews.com>
I would like to build a kind of "on-line writing tool" for specific documents.
The idea is the following:
- Information is gathered via HTML form
- A cgi script build the the HTML and RTF documents by filling some template
files (respectively HTML and RTF)with the information coming from the form.
The idea would be to build only one XML instance that would allow then the
generation of the HTML, the RTF or whatever.
My question is what language is the most apropriate to implement my cgi script
knowing that I must deal with:
- Lexical analysor and important string manipulation
- CGI functionnalities to access data
- XML manipulation tool to manage XML doc
C++ ? Java ? perl ?
Thanks for your help.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 11 Mar 1999 11:51:01 GMT
From: gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: I want to know where I can get a sendmail program that will work with NT.
Message-Id: <36e7ad60.8987399@news.dircon.co.uk>
On Wed, 10 Mar 1999 17:24:55 -0500, "Rollo Lawson" <rollo@enter.net>
wrote:
>Iam a new programmer to perl, and I was wondering where I can get a simple
>program that sends mail
>in an NT web environment. Does anybody have a Url or ftp that has one that
>will work please help
>
There is a port of 'sendmail' to NT available at:
ftp://ftp.microsoft.com/developr/drg/UNIX-to-Windows/Ports/Sendmail/SM1121.ZIP
However you probably want to check out perlfaq9 specifically the
section entitled 'How do I send mail ?'
/J\
------------------------------
Date: Thu, 11 Mar 1999 13:47:08 GMT
From: emarkert@my-dejanews.com
Subject: Re: I want to know where I can get a sendmail program that will work with NT.
Message-Id: <7c8hgp$usq$1@nnrp1.dejanews.com>
Download the Mail::Sendmail module.
Works like a champ.
In article <36e6f07a.0@news3.enter.net>,
"Rollo Lawson" <rollo@enter.net> wrote:
> Iam a new programmer to perl, and I was wondering where I can get a simple
> program that sends mail
> in an NT web environment. Does anybody have a Url or ftp that has one that
> will work please help
>
> rollo lawson
> rollo@enter.net
>
>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 11 Mar 1999 12:54:27 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: input from file or from buffer
Message-Id: <36e8b993.1900020@news.skynet.be>
Daniel Grisinger wrote:
>bart.lateur@skynet.be (Bart Lateur) writes:
>
>> It was still on my news server. Thanks, I'll study it.
>
>It had a mistake, though. There is no need to create the
>filehandle before tying. Just tying a glob will work fine.
I noticed that. But it's not the only thing wrong with it that I found.
I'll post a follow-up in (at most) a few days. I think it's interesting
for other people too, not only so that they immediately find an improved
version in Dejanews if they look for it, but also because it can
demonstrate typical pitfalls for Perl as a programming language, even if
used by experienced Perlers.
>If you could mail me offgroup to tell me what you're having a hard
>time with I'll try to help. I honestly don't see what is too
>difficult about perltie as it is currently written (and it does
>have examples for each datatype that can be tied).
I no longer have problems with it, thank you.
What I need, in general, is DUMB and complete(!) examples. The examples
in the docs make perfect sense once you know the stuff, but what I would
like is to be able to simply copy code snippets and make them run,
without me having to provide an extra testing framework first. Just to
see what it's supposed to do. Once you've seen it in action, what you
read, suddenly makes a lot more sense. Otherwise, it's just talk in the
wind.
A simple example: stat().
This is all what the docs used to say about stat() (I see it has been
extended a lot, with an explanation of the fields):
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks)
= stat($filename);
Now, unless you already know what to do with the fields, how would you
know how to incorporate it into an existing project? You can't. You have
to build an example project first, get a filename, apply stat(), and
print out the fields, preferably properly formatted. That's at least 5
to 10 minutes of extra work, if you get it right first time. Even that
is doubtful, since you don't know what to expect!
EVERYBODY had to do that at least once. So a complete working example
would have saved everybody some time. And that's just one function.
>I know that when I first started using tied objects my biggest problem
>was that I had convinced myself that it was hard, even though it
>isn't.
That goes for everybody, I guess. Once you get a feel for it, there
isn't much that is really hard in Perl. Complete working examples would
certainly help to get a quick feel.
You could try checking the modules for examples, but more often than
not, module code isn't clear. You see several "tricks" thrown together
in a few lines, and it's difficult to unscramble them, in order to
learn.
p.s. There IS a complete example in PERLTIE for using tied filehandles,
but since it is marked as "caution: gotcha!" that isn't too inviting as
a first introduction. You have to get a feel for what it does, when it
is doing what is generally expected.
Bart.
------------------------------
Date: Thu, 11 Mar 1999 12:55:05 GMT
From: David Turley <dturley@pobox.com>
Subject: Re: MAKE utility for Windows98
Message-Id: <7c8ef6$sbl$1@nnrp1.dejanews.com>
In article <7c7r6c$cch$1@nnrp1.dejanews.com>,
witless@my-dejanews.com wrote:
> Where can I get the 'make' utility to execute the 'make install' line? I am
> using Windows98 and ActiveState Perl.
>
Youc an get nmake from Microsoft's site, if you can find your way around it.
You can also use dmake. For a download, and soem hopefully helpful hints on
using it:
http://www.binary.net/dturley/dmake.html
--
David Turley
dturley@pobox.com
http://www.binary.net/dturley
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 11 Mar 1999 15:18:03 +0100
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Module to find duplicate files?
Message-Id: <36E7D09B.D27B75DC@datenrevision.de>
Hi there,
how would I go about finding duplicate files under a certain directory?
Is there a module to do that already? A quick glance through CPAN didn't
bring up anything which sounded as if it would work.
Would this work:
use File::Find;
use File::Basename;
use Cwd;
my %seen;
sub wanted {
$seen{$_}->[0]++; # basename
push @{$seen{$_}->[1]}, $File::Find::name; # full path name
push @{$seen{$_}->[2]}, $File::Find::dir; # directory
}
find \&wanted, getcwd;
foreach (sort keys %seen) {
if ($seen{$_}->[0] > 1) { #duplicate
print "File $_ was seen in the following directories: [",
join ('] [', @$seen{$_}->[2]), "]\n";
}
}
Cheers,
Philip
------------------------------
Date: Thu, 11 Mar 1999 14:41:16 GMT
From: John@melon17.freeserve.co.uk (John )
Subject: Mysql question
Message-Id: <36e7d546.50049681@news.freeserve.net>
As a "newbie" i wondered if someone could
answer the following:
If i want to download/backup the database/tables i have
created, how do i do that?
Does the tables/database created via a telnet session show up
in my web site (i.e.can you see it using ftp)?
john
------------------------------
Date: Thu, 11 Mar 1999 13:07:54 +0100
From: Herald van der Breggen <H.van.der.Breggen@opleidingen.capgemini.nl>
Subject: Objects: overriding a constructor
Message-Id: <36E7B21A.736D6AC9@opleidingen.capgemini.nl>
I cant find anything about how to override a constructor, while using
the contructor of the superclass.
Who knows the perl equivalent of this java code ?
class A {
int a;
A(int a) {
this.a = a;
}
}
class B extends A {
int b;
B(int a, int b) {
super(a); <--!!!!!!!!!!!!!! calling the constructor
of A.
this.b = b;
}
}
The only way I can imagine is to split up the contructor of class A in
"new" and "init" or so. And then calling $this->SUPER::init from the
constructor of B. This is ugly...
I can't believe this is the most handy way. Any suggestions ?
Thanks,
Herald
------------------------------
Date: 11 Mar 1999 13:32:46 +0100
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: Objects: overriding a constructor
Message-Id: <83g17ccikx.fsf@vcpc.univie.ac.at>
Re: Objects: overriding a constructor, Herald
<H.van.der.Breggen@opleidingen.capgemini.nl> said:
Herald> I cant find anything about how to override a
Herald> constructor, while using the contructor of
Herald> the superclass.
Is something like this what you want? (hacked up on
spur of moment, caveat emptor).
package A;
sub new {
my ($class, $a) = @_;
my $self = bless {}, $class;
$self->{a} = $a;
$self;
}
package B;
@ISA = qw(A); # B extends A
sub new {
my ($class, $a, $b) = @_;
my $self = bless $class->SUPER::new($a), $class; # super(a)
$self->{b} = $b;
$self;
}
Have a look at the perldoc for perltoot and perlobj
as well.
hth
tony
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien. | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | private email:
Stupid! Stupid!" ~ Eros, Plan9 fOS.| <URI:mailto:tony_curtis32@hotmail.com>
------------------------------
Date: Thu, 11 Mar 1999 11:56:18 GMT
From: Aquila <grey.cloud@usa.net>
Subject: Perl + Mysql/sql - NEED FAQ
Message-Id: <7c8b0v$ple$1@nnrp1.dejanews.com>
FAQ for installing modules for Perl for Win32 hardly needed!
Especially about installing DBI/DBD and Mysql.
Help Please!
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 11 Mar 1999 12:52:35 GMT
From: David Turley <dturley@pobox.com>
Subject: Re: Perl scripts written for UNIX. Will they work on NT?
Message-Id: <7c8eah$s9f$1@nnrp1.dejanews.com>
In article <MPG.1150f613d18afc7d989720@nntp.hpl.hp.com>,
lr@hpl.hp.com (Larry Rosler) wrote:
>
> Ignore this advice. Do not use '\' as the pathname separator. It is
> error-prone and unnecessary.
I wonder why people started doing this anyway? Did an older version of win32
(win16?) Perl force DOS-type slahes? Using a gates-slash tends to leave a lot
of tabs and newlines floating around. :-) -- David Turley dturley@pobox.com
http://www.binary.net/dturley
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 11 Mar 1999 12:43:21 GMT
From: David Turley <dturley@pobox.com>
Subject: Re: PerlTk for Win32 ?
Message-Id: <7c8dp8$rrb$1@nnrp1.dejanews.com>
In article <7c6h1d$94s$1@front3.grolier.fr>,
"Patrick Fichou" <fichou@club-internet.fr> wrote:
> Hi,
>
> Does Tk module for Win32 Perl (Activestate) exists ?
Did you try the one listed on the AS web site in their packages list?> :-)
Just do:
perl ppm.pl
install Tk
and be prepared to be patient whils the module downloads and intsalls.
--
David Turley
dturley@pobox.com
http://www.binary.net/dturley
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 11 Mar 1999 03:47:09 -0800
From: L Anderson <lowella@serv.net>
Subject: Pitfalls installing CPAN modules on DOS
Message-Id: <36E7AD3D.BA3@serv.net>
Hi,
I'm running DJGPP Perl 5.004_02 on my MSDOZ system with remarkable
success. I want to use some CPAN modules but my first attempt at an
installation resulted in problems which I believe are related to DOZ'
8.3 file name restriction--warnings of file overwrites when unzipping a
module, the usual symptom for x.y.z... file names ---> 8.3 file names.
Since I have not found solice in the FAQS, CPAN, DJGPP, or DejeNews
regarding this, perhaps someone can help me. Before I spend a lot more
time figuring out what's wrong, can someone give me a sense of whether I
would be better off installing CPAN modules or just beating my head
against the wall. If I choose the former, what major pitfalls might I
expect in both installation and use of CPAN modules under DOZ? What need
I do to overcome these pitfalls?
For now I'm stuck with DOZ so any insight into what lies ahead is much
appreciated.
Thanks,
L Anderson
------------------------------
Date: Thu, 11 Mar 1999 12:34:22 GMT
From: gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: please help
Message-Id: <36e7b58c.11079905@news.dircon.co.uk>
On Thu, 11 Mar 1999 09:40:06 -0800, Steven <koh_cc@pacific.net.sg>
wrote:
>hi,
>
> Catrtidge Error : ORA-1223 : TNS : unable to connect to destination
>
>
> Database and WAS in different machine.
>
>
<snip code>
>
>
> Kindly advise on this issue.
>
>
OK - this is not a Perl error message but one returned by your Oracle
software. I would investigate the oracle documentation to find out
what could have caused it.
/J\
------------------------------
Date: Thu, 11 Mar 1999 13:48:26 +0100
From: Peter John Acklam <jacklam@math.uio.no>
Subject: Re: Problems with File::Find and links
Message-Id: <36E7BB9A.A58CC453@math.uio.no>
Jonathan Stowe wrote:
>
> Dirk Schumacher <Dirk.Schumacher@depot147.dpd.de> wrote:
> >
> > i use File:Find (...) but if a directory are linked to a other
> > Harddisk the programm didn4t work.
>
> The manpage for File::Find has :
>
> BUGS
> There is no way to make find or finddepth follow symlinks.
Well, yes, but there should be ways around that? Unfortunately I'm
not working on a UNIX machine now, so I'n not able to try this out,
but I would expect that something like this should work (at least
with some modifications):
#!/local/bin/perl -w
use File::Find;
sub wanted {
if ( -l ) {
$where = readlink or die "...";
find \&wanted, $where;
return;
}
...
}
find \&wanted, ".";
Peter
--
Peter J. Acklam - jacklam@math.uio.no - http://www.math.uio.no/~jacklam
------------------------------
Date: Thu, 11 Mar 1999 09:29:01 -0500
From: dwilgaREMOVE@mtholyoke.edu (Dan Wilga)
Subject: Re: Sending Attachment with perl
Message-Id: <dwilgaREMOVE-1103990929010001@wilga.mtholyoke.edu>
In article <36E79AEB.13112125@infrasoft-civil.com>, Yoann Le Corvic
<yoann.lecorvic@infrasoft-civil.com> wrote:
> I would like to know if it's possible to send attachment with an email
> without using the available perl modules. I use a Novell Version of the
> perl interpreter, and it doesn't work really well when importing
> modules.
Probably the easiest thing would be to take the relevant parts from
MIME::Lite and copy them into your code.
Dan Wilga dwilgaREMOVE@mtholyoke.edu
** Remove the REMOVE in my address address to reply reply **
------------------------------
Date: Thu, 11 Mar 1999 13:04:35 +0000
From: Alex Davies <Alex.Davies@tiuk.ti.com>
Subject: signal handling - 'IGNORE' vs 'sub {}'
Message-Id: <36E7BF63.FB10E01B@tiuk.ti.com>
Can someone please explain how the 'IGNORE' (and 'DEFAULT') signal
handlers are supposed to work...
I assumed that:
$SIG{'__WARN__'} = 'IGNORE';
and
$SIG{'__WARN__'} = sub {};
would behave the same - that is both suppress warnings - but this
doesn't
seem to be the case:
warn "Warning - 1\n";
$SIG{'__WARN__'} = 'IGNORE';
warn "Warning - 2\n";
$SIG{'__WARN__'} = 'DEFAULT';
warn "Warning - 3\n";
$SIG{'__WARN__'} = sub {};
warn "Warning - 4\n";
produces:
Warning - 1
Warning - 2
Warning - 3
[no "Warning - 4"]
Should 'IGNORE' behave the same as "sub {}" ? And if not, what
is it supposed to do ?
TIA
alex.
------------------------------
Date: Thu, 11 Mar 1999 13:07:16 +0000
From: Alex Davies <Alex.Davies@tiuk.ti.com>
Subject: signal handling - 'IGNORE' vs 'sub {}'
Message-Id: <36E7C004.A4D600A8@tiuk.ti.com>
Can someone please explain how the 'IGNORE' (and 'DEFAULT') signal
handlers are supposed to work...
I assumed that:
$SIG{'__WARN__'} = 'IGNORE';
and
$SIG{'__WARN__'} = sub {};
would behave the same - that is both suppress warnings - but this
doesn't
seem to be the case:
warn "Warning - 1\n";
$SIG{'__WARN__'} = 'IGNORE';
warn "Warning - 2\n";
$SIG{'__WARN__'} = 'DEFAULT';
warn "Warning - 3\n";
$SIG{'__WARN__'} = sub {};
warn "Warning - 4\n";
produces:
Warning - 1
Warning - 2
Warning - 3
[no "Warning - 4"]
Should 'IGNORE' behave the same as "sub {}" ? And if not, what
is it supposed to do ?
TIA
alex.
------------------------------
Date: Thu, 11 Mar 1999 08:57:53 -0500
From: "Mr.unix" <Mr.unix@mail.excite.com>
Subject: Socket programming problem
Message-Id: <7c8i6v$mho$1@malgudi.oar.net>
I have obtained some server socket examples from
http://www.cs.uno.edu/~golden/teach.html
I can get these to communicate via a telnet session to the server with no
problem. I am assuming that every time I send data via a telnet session, it
sends a "\n" along with the data. I am unsure how a telnet socket functions.
Does it open a session, send data and then close a session on a socket,
without breaking a connection?
I am trying to modify the perl programs to take data from an interface
which sends data in a stream and doesn't appear to send a "\n" and doesn't
appear to close the session or any other delimiting factors. Is there some
way to read the data on a socket byte by byte, looking for a delimiting
character (0x1C), so that I may separate records? Does anyone have any code
examples that may work?
------------------------------
Date: Fri, 12 Mar 1999 00:09:36 +1100
From: Mick <horizon@internetexpress.com.au>
Subject: use diagnostics problem?
Message-Id: <36E7C090.C4E6F70@internetexpress.com.au>
Hi....under win32, when trying to use
use diagnostics;
In a web page perl script, I get the 'internal server error'
which in my error log is
premature end of script headers.
The diagnostics.pm file is there along with Carp.pm etc, I've tested a
lot of the other modules
with success, and If I comment out the use diagnostics; my script runs
fine?
Any ideas?
Mick
--
----------------------------------------------------------------
HORIZON Software Solutions
Visit Site - http:www.deakin.edu.au/~bellears/horizon/index.html
e-mail - mailto:horizon@internetexpress.com.au
----------------------------------------------------------------
------------------------------
Date: Thu, 11 Mar 1999 14:20:03 GMT
From: olmert@netvision.net.il
Subject: using variables in patterns
Message-Id: <7c8jea$j2$1@nnrp1.dejanews.com>
Hello,
i want to identify a place where a line in a file includes a string. this
string is dectated by the value of a variable. For instance:
$myPlace="<A href='blabla.htm'>Click here!</a>"; if (/$myPlace/) I tried
typing the text itself instead of the variable anme and it worked. but- i
need to do it with the variable, becauise it's value is dependent upon the
user's input. My question is: how to make the if statement return true
whenever the line from the STDIN includes the value of the variable?
Please reply to both Author and group.
Thank you very much.
Shaul olmert
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 11 Mar 1999 13:45:45 GMT
From: emarkert@pace.edu
Subject: Re: Why 'use CGI' syntax works offline but not online?
Message-Id: <7c8he6$usa$1@nnrp1.dejanews.com>
This can be caused by a number of problems. Your message is vague in that you
don't state OS, Web server software, etc.
Are you sure that the proper HTTP headers are being sent by your CGI script?
If not this will cause an error.
Make sure that the userid that the web service is running as has read
permission to all perl modules and read,execute permission on the CGI script
that is being executed (for UNIX chmod 755).
Second, if you are using NT make sure that the file association has been made
with your perl scripts. A common file extension for perl scripts on Wintel
machines is .pl. Associate that extension with the perl.exe file.
In article <36E6AAAB.AA2383A5@cig.mot.com>,
duch@cig.mot.com wrote:
> My CGI scripts once worked with 'use my_needed_mod'. However recently
> they work offline but not online. 'Server Error' message will generate
> when using Online.
>
> I want to know this is due to Web server or 'use module' or both
> interact?
> Can you help me on this? One more thing: without 'use mod', that is,
> writing everything from scratches is OK. Is it Web server configuration
> problem?
>
> Thanks in advance.
>
> Heng
>
>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
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 5109
**************************************
