[10021] in Perl-Users-Digest
Perl-Users Digest, Issue: 3614 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Sep 2 04:04:56 1998
Date: Wed, 2 Sep 98 01:00:23 -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 Wed, 2 Sep 1998 Volume: 8 Number: 3614
Today's topics:
Re: Advertisment program in Perl (Martien Verbruggen)
Re: Best way to "reset" $1? <zenin@bawdycaste.org>
Re: Better Regular Expressions <zenin@bawdycaste.org>
Re: Better Regular Expressions (Craig Berry)
Delay <tkr@lehtori.cc.tut.fi>
Re: Download scipt with questions greene@gucc.org
Encryption & File Locking <techsupport@ddes.com>
Re: Hats off to Tom Phoenix (Chip Salzenberg)
Help on a simple regex <avierengel@citynet.de>
Re: History of Perl (Mark-Jason Dominus)
How do I create a directory only if it doesn't exists <rolf.rettinger@desy.de>
Re: how to generate random password (Steffen Kluge)
Re: In search of Intellegint Life... HELP!! <BobnNOSPAM@NOSPAMinteraccess.com>
Re: In search of Intellegint Life... HELP!! (Mark Badolato)
Install perl on mingwin32 balestra@ppg.com
Re: Parsing XML and HTML (was: Re: Better Regular Expre <zenin@bawdycaste.org>
Perl ``antique'' <bnelson@netcom.com>
Re: Perl ``antique'' (Martien Verbruggen)
Re: Perl Script to Retreve HTML Files from the Internet <vincent@compclass.com>
Re: Perl version <vincent@compclass.com>
Reading a process from a pipe problem purring@earthlink.net
require another .pl file <sales@madm.com>
Re: require another .pl file (Martien Verbruggen)
simple prog that causes Segmentation fault <rigaux@pomme.irisa.fr>
Where to get Net/Domain.pm? <versace@gianni.com>
Re: Win32::ODBC w/Access = Memory Fault (William R. Mussatto)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 02 Sep 1998 07:01:57 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Advertisment program in Perl
Message-Id: <F36H1.7$KS1.27585@nsw.nnrp.telstra.net>
In article <35ECCB41.58F1F65B@telegate.se>,
Lennarth Selander <lesel@telegate.se> writes:
> What i'm looking for is something like:
>
> 1. Ad is written to a database.
> 2. Check ad for "naghty" words.
> 3. Advertiser is given a password which is sent by mail.
> 4. Advertiser must enable ad with the password.
> 5. Advertiser can edit / dissable ad.
> 6. E-mail addresses dosn't shown in ad.
If you're looking for software, but don't have a question about perl,
you should really look somewhere else.
Anyway, you don't give enough information at all. You don't even
specify the interface, but let me make a guess: CGI, right?
In that case, try www.cgi-resources.com
They might have something that gives you a good starting point,
although what you seem to want doesn't sound hard to me at all with
the help of a few perl modules, which of course you can find at
http://www.perl.com/CPAN/modules/
Some of the modules you might want to use probably come with perl,
like CGI.pm.
HTH:
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: 2 Sep 1998 05:31:26 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: Best way to "reset" $1?
Message-Id: <904714235.997291@thrush.omix.com>
yong <yong@shell.com> wrote:
>snip<
: BTW, the reason I want to reset $1 is that the match is in a loop, and
: the second time around if there's no match, $1 keeps its original value.
: I don't want that.
It shouldn't do that. If it does, it's a bug, as all of the
numeric variables ($1, $2, et al) should get reset automatically
each time you do a regular expression of any kind.
Please post a code example showing this with the output of 'perl -V'.
Thanks!
--
-Zenin (zenin@archive.rhps.org) From The Blue Camel we learn:
BSD: A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts. Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.) The full chemical name is "Berkeley Standard Distribution".
------------------------------
Date: 2 Sep 1998 05:22:01 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: Better Regular Expressions
Message-Id: <904713671.220656@thrush.omix.com>
Craig Berry <cberry@cinenet.net> wrote:
: Tom Phoenix (rootbeer@teleport.com) wrote:
: : Naw. Parsing XML is _much_ simpler than parsing HTML, since you don't have
: : to worry about how to parse bogus code. Cheers!
:
: What do you mean by that? (Honest question, I'm not familiar enough with
: XML to see why this would be the case.)
XML has a very strict definition of both the data structure as
well as how parsers should respond when they find error conditions
of differing levels. Basically, the parser is expected to blow
chunks at the first sight of trouble and report it. This is
a Good Thing. It not only makes parsers easier to implement, but
also makes the data they return more reliable as there is no
question about how the data was parsed or by who's set of rules.
HTML is a complete mess. Just the fact that <P> may, or may not
balance with a </P> tag and how to parse and handle perfectly valid
code like "foo <P> bar <P> doggy </P>" (eg, does that closing </P>
match to the first <P>, or the second?) makes it a nightmare to
parse. That's before any of the extra tags which may or may not
take a closing tag and may or may not take attributes that may
or may not be required or of a particular type... Blagh...
I think the forced use of <Tag></Tag> or <Tag/> for empty tags is
the best thing that could have happened to SGML.
: Also, there was some talk on clp.m(isc|oderated) about built-in XML
: support in Perl itself (as opposed to in a module, like HTML::Parse). Can
: anybody shed further light on this?
Anyone that thinks an XML parser built into the actual perl binary
is a good idea clearly has absolutely no idea what they are talking
about. Either about perl, or XML.
It might be good to have XML tools in the Perl core module set, but
not statically built into Perl.
--
-Zenin (zenin@archive.rhps.org) From The Blue Camel we learn:
BSD: A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts. Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.) The full chemical name is "Berkeley Standard Distribution".
------------------------------
Date: 2 Sep 1998 05:37:49 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Better Regular Expressions
Message-Id: <6siljd$aiu$1@marina.cinenet.net>
Zenin (zenin@bawdycaste.org) wrote:
: Anyone that thinks an XML parser built into the actual perl binary
: is a good idea clearly has absolutely no idea what they are talking
: about. Either about perl, or XML.
:
: It might be good to have XML tools in the Perl core module set, but
: not statically built into Perl.
Total agreement about this from me. It turns out that I misinterpreted
something (IIRC) Ilya posted about Unicode support as a stepping stone to
XML support to mean that both, rather than just the former, were moving
into the core language. Hence my alarm, and my question.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| "Ripple in still water, when there is no pebble tossed,
nor wind to blow..."
------------------------------
Date: 2 Sep 1998 07:10:32 GMT
From: Tommi Reiman <tkr@lehtori.cc.tut.fi>
Subject: Delay
Message-Id: <6sir18$cgv$1@baker.cc.tut.fi>
I must have missed something... How can I make a simple 1 (or n) sec.
delay with perl??
Tommi
------------------------------
Date: Wed, 02 Sep 1998 07:13:17 GMT
From: greene@gucc.org
Subject: Re: Download scipt with questions
Message-Id: <6sir6d$n38$1@nnrp1.dejanews.com>
In article <35ec71e6.13161675@193.74.210.130>,
Frook@mail.dma.be (Orlando Frooninckx) wrote:
> # -----------------------------------------------------------------
> # Hi,
> # I'm trying to write a script to download files from my web-site.
> # To download a file from there I use the following script. There
> # is one big problem in it. In stead of having the name of the file
> # I want to download in the "save file as" box, it returns the name
> # of the script. So in stead of for instance having "test.exe" or
> # "download.zip" in the "save file as" box, it always has
> # "dlscript.pl" in that box. Can anyone tell me what to add to my
> # script to solve the problem?
> #
> # thanks,
> # Orlando (of@dma.be)
> # -----------------------------------------------------------------
> [snip]
It's not a very Perl'ish answer, but you could try using...
$|++;
$URL = $ENV{'QUERY_STRING'};
print "Location: $URL", "\n"x2;
Just be sure that $URL is really a URL (e.g. "images/picture.gif") and *not* a
directory name on your server (e.g. "/wwwhome/yourroot/images/picture.gif").
HTH,
JAG
# James Greene - Informatics Consulting - D-79539 Loerrach, Germany
# Internet: www.gucc.org/greene/consult - greene@gucc.org
# PGP Fingerprint: 8930 41E7 351B 56D8 801C D4D9 4C76 AF0F E24E F307
perl -we "$_=join'<',qw{d2by' f5e;f4z($iu w0@86yo=&ae b!097)l(&aa8vme
b$*};$_=unpack'u*',uc;print"
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Tue, 1 Sep 1998 23:40:01 -0600
From: "Vinay Gidwaney" <techsupport@ddes.com>
Subject: Encryption & File Locking
Message-Id: <6sim8l$7oh@priv-sys04-le0.telusplanet.net>
Hello,
I'm trying to encrypt a data file in perl... is there a way to do that?
Like when the script wants to access the file, it unencrypts it, and then
does what it needs to do, and then encrypts it again... are there any
examples i can take a look at...
Also, when the perl script accesses the file, what are the procedures to
lock the file so that it can't be accessed by another instance of my perl
script?
Thanks for any help,
Vinay Gidwaney
vinay@ddes.com
------------------------------
Date: 2 Sep 1998 03:56:46 -0400
From: chip@pobox.com (Chip Salzenberg)
Subject: Re: Hats off to Tom Phoenix
Message-Id: <6sitnu$bps$1@cyprus.atlantic.net>
According to Brad Murray <murrayb@vansel.alcatel.com>:
> Further, you would probably get a lot of complaints regarding the
> quality of said documents, even though they were provided only
> through the goodness of your heart. Thus, philanthropy can cause a
> great deal of stress, resulting in occasional (and ultimately
> chronic) misanthropic episodes.
Only if you were counting on being praised, and bitter in
disappointment at your rough treatment.
Philanthropy must be performed for its own sake, for moral and
ethical reasons. Otherwise it's just currying or grandstanding.
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
"I brought the atom bomb. I think it's a good time to use it." //MST3K
-> Ask me about Perl training and consulting <-
Like Perl? Want to help out? The Perl Institute: www.perl.org
------------------------------
Date: Wed, 2 Sep 1998 09:30:00 +0200
From: "Andreas Vierengel" <avierengel@citynet.de>
Subject: Help on a simple regex
Message-Id: <6sis5q$dtd$1@trader.ipf.de>
Hi everybody!
I am reading lines from a file and do a regex on each line.
I want to match a line if it contains a certain string only ONE time.
Example:
string to match: 'ab'
possible lines:
"abdfgab1234abhj" <-- should not be matched because of three
occurences of 'ab'!
"kjhdsbabakkioi" <-- should be matched!
Is ist possible to do this in one regex?
--Andy
------------------------------
Date: 2 Sep 1998 01:55:26 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: History of Perl
Message-Id: <6simke$bor$1@monet.op.net>
In article <x7zpcj19j5.fsf@sysarch.com>, Uri Guttman <uri@sysarch.com> wrote:
>maybe someone else remembers this doc and can locate it.
You're not thinking of the one on page 554 of the camel book, are you?
------------------------------
Date: Wed, 2 Sep 1998 09:41:56 +0200
From: "Rolf Rettinger" <rolf.rettinger@desy.de>
Subject: How do I create a directory only if it doesn't exists
Message-Id: <6sissb$44i$1@claire.desy.de>
Hi,
is there any function like sysopen for a file to create a directory only if
it doesn't exists?
Thanks Rolf
------------------------------
Date: 2 Sep 1998 15:52:43 +1000
From: kluge@fujitsu.com.au (Steffen Kluge)
Subject: Re: how to generate random password
Message-Id: <6simfb$t5q$1@syd0128.fujitsu.com.au>
In article <35ecbd2a.0@news1.starnetinc.com>, Dan Bassett <dan@bns.com> wrote:
>I want to implement a script which generates random passwords.
>I understand their is a perl function called rand which could do this
>for me. However, I'm not sure what variables or expressions to use.
>
>Here is the format I was looking for:
>
>A random password which can contain a combination of uppercase
>letters, lowercase letters and numbers with a length of between
>8 and 10 digits...
I know I shouldn't say this in a perl group, but have a look
at mkpasswd. It's an expect script that comes with expect.
You can port it to perl if you want ;-)
Hope this helps
Steffen.
--
Steffen Kluge <kluge@fujitsu.com.au>
Fujitsu Australia Ltd
Keywords: photography, Mozart, UNIX, Islay Malt, dark skies
--
------------------------------
Date: Tue, 01 Sep 1998 23:55:26 -0500
From: Bobn <BobnNOSPAM@NOSPAMinteraccess.com>
Subject: Re: In search of Intellegint Life... HELP!!
Message-Id: <35ECCFBE.3160@NOSPAMinteraccess.com>
Actually, I was working from memory when I wrote this, which is to say I
couldn't be bothered to check the doc I referred to. I still think this
is your answer, but I'm to tred to do it right.
- Bob N.
Bobn wrote:
>
> SOmewhere in the doc it says that files used by require must return a
> true result, hence these files often are ended with
>
> 1;
>
> Ripcord104 wrote:
> >
> > Ok here's my problem, I'm trying to learn this stuff so I got a book on Perl
> > CGI and I have a subroutine:
> > sub HTML_Footer
> > {
> > print "\n", "</BODY", "\n";
> > print "</HTML>", "\n";
> > }
> >
> > in the file HTMLEND.PL and my main file, HELLO.PL that uses:
> > require "htmlend.pl" --- and then later on calls it up with &HTML_Footer ---
> > my problem is that every time I try to run this, it says "htmlend.pl did not
> > return a true value at hello.pl line 5" line 5 is the line that says {require
> > "htmlend.pl"} I know its hard to figure this out with the info I'm giving you
> > but if anybody has ANY clue at all I would appreciate it, I'm trying to learn
> > this stuff and this is really getting in my way of going any further....
> > Thanks in advance,
> > Cory Hopper
------------------------------
Date: Wed, 2 Sep 1998 00:18:00 -0700
From: bady@primenet.com (Mark Badolato)
Subject: Re: In search of Intellegint Life... HELP!!
Message-Id: <MPG.10569f13a4f3d94f989682@news.primenet.com>
[This followup was posted to comp.lang.perl.misc and a copy was sent to
the cited author.]
In article <1998090204024500.AAA16894@ladder03.news.aol.com>,
ripcord104@aol.com says...
> Ok here's my problem, I'm trying to learn this stuff so I got a book on Perl
> CGI and I have a subroutine:
> sub HTML_Footer
> {
> print "\n", "</BODY", "\n";
> print "</HTML>", "\n";
> }
>
> in the file HTMLEND.PL and my main file, HELLO.PL that uses:
> require "htmlend.pl" --- and then later on calls it up with &HTML_Footer ---
> my problem is that every time I try to run this, it says "htmlend.pl did not
> return a true value at hello.pl line 5" line 5 is the line that says {require
> "htmlend.pl"} I know its hard to figure this out with the info I'm giving you
> but if anybody has ANY clue at all I would appreciate it, I'm trying to learn
> this stuff and this is really getting in my way of going any further....
> Thanks in advance,
> Cory Hopper
>
>
Add:
1;
to the end of your htmlend.pl file and you should be ok.
#!/usr/bin/perl
sub HTML_Footer
{
print "\n", "</BODY", "\n";
print "</HTML>", "\n";
}
1;
------------------------------
Date: Wed, 02 Sep 1998 07:28:30 GMT
From: balestra@ppg.com
To: massimobalestra@hotmail.com
Subject: Install perl on mingwin32
Message-Id: <6sis2u$ohl$1@nnrp1.dejanews.com>
I am trying to install perl 5.005_51 on mingwin32 with gcc.
The problem is that there is no particular instruction for this environment
(or, better, I didn't find them) and the makefile for visual c++ or Borland
c++ does not work with the make I download with mingwin32.
Doe someone has a clue? Dos someone has a makefile that I can edit for my
installation?
Thank you in advance
--
Massimo Balestra EMAIL: balestra@ppg.com
System Engineer Phone: +39-0131-770.507
PPG Italia
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 2 Sep 1998 05:44:34 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: Parsing XML and HTML (was: Re: Better Regular Expressions)
Message-Id: <904715023.541186@thrush.omix.com>
Craig Berry <cberry@cinenet.net> wrote:
>snip<
: Is this economically realistic, though? Won't there be enormous pressure
: on browser vendors to provide some 'slop' (per the old Net maxim 'produce
: conservatively, consume liberally') to deal with bad XML markup, and for
: precisely the same reasons they currently deal with bad HTML markup?
I don't think so. XML is much more then HTML on crank or SGML
on downers.
The main point of XML is to set in stone what XML is, how
it should be processed, and in what strict ways it can be allowed
to grow beyond that. The main problem with SGML is that it is
simply huge, too many things are allowed to be optional, and
extending it is to create of a nightmare because of those
options. Total freedom isn't always a Good Thing.
: The clueless shall always be with us; thus, bad markup shall be, too.
True, but I think everyone has learned from the mistakes of
HTML. I think instead of accepting bad XML at the browser end, XML
builders will work to give "clueless" readable error messages about
why there code is broken.
--
-Zenin (zenin@archive.rhps.org) From The Blue Camel we learn:
BSD: A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts. Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.) The full chemical name is "Berkeley Standard Distribution".
------------------------------
Date: 2 Sep 1998 01:08:28 -0500
From: Bob Nelson <bnelson@netcom.com>
Subject: Perl ``antique''
Message-Id: <6sincs$8lb$1@renpen.nelson.org>
Where are pre-version 4 sources for kept? My interest is purely based
on curiosity and a desire to see how this remarkable language has
evolved since 1988. I am aware (per the FAQ) that pre-perl5 is
unsupported, yada, yada, yada...
I plan to study Larry's earlier works while watching the latest
Ernie Kovacs Show on the DuMount Network.
--
========================================================================
Bob Nelson -- Dallas, Texas, USA (bnelson@iname.com)
http://www.geocities.com/ResearchTriangle/6375
If gcc has ``-Wall'', shouldn't perl have ``-Stallman''?
------------------------------
Date: Wed, 02 Sep 1998 07:03:21 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Perl ``antique''
Message-Id: <Z46H1.8$KS1.27585@nsw.nnrp.telstra.net>
In article <6sincs$8lb$1@renpen.nelson.org>,
Bob Nelson <bnelson@netcom.com> writes:
> Where are pre-version 4 sources for kept? My interest is purely based
Have a look at: http://www.oasis.leo.org/perl/src/00-index.html
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Tue, 01 Sep 1998 22:06:13 -0700
From: Vincent Lowe <vincent@compclass.com>
To: alastair@calliope.demon.co.uk
Subject: Re: Perl Script to Retreve HTML Files from the Internet
Message-Id: <35ECD245.336E871D@compclass.com>
Alastair wrote:
>
> Vincent Lowe <vincent@compclass.com> wrote:
> >
> >#!/usr/dist/share/perl,v5.003/5bin.sun4/perl
> ^^^^^
>
> Is that comma meant to be there?
>
...well, yes. But that whole line should be different for you. (Unless
you're inside SWAN)
That first line will either act as a comment (under most Win32 shells)
or it will allow your local installation of the perl interpreter to be
invoked. So substitute your own path to "the place there Perl lives."
Don't know where that is? Try this command line:
perl -e 'print qq{$^X\n}'
...the variable that's being printed in there $^X is actually three
symbols. It doesn't mean $[control-X]
...good luck.
---v
--
| vincent@compclass.com | "Birds rising in flight is a sign
| | that the enemy is lying in ambush..."
| 248.557.2754 | Sun Tzu
+--------------------------+-----------------------------------------
| Aqueduct Information Services http://www.aquecorp.com/vincent
------------------------------
Date: Tue, 01 Sep 1998 22:22:46 -0700
From: Vincent Lowe <vincent@compclass.com>
Subject: Re: Perl version
Message-Id: <35ECD626.55F256F2@compclass.com>
Ala Qumsieh wrote:
>
> dc@panix.com (David W. Crawford) writes:
>
> > -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> > #!/usr/local/bin/perl5
> > $ver_info = `perl -v`;
> > print "$ver_info\n";
> > -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> >
...[clip]...
> >
> > This is perl, version 4.0
> >
>
> I wonder how your perl executable is called 'perl5' and generates
> version information for perl 4.0 ??
>
...I think your speculation is correct. It's not uncommon to find Perl
4 and Perl 5 both deployed with special pathing information to each.
Probably to be most correct, it should say
$ver_info = `/usr/local/bin/perl5`;
...although it's a reasonable bet that the path is not entirely
necessary.
---v
--
| vincent@compclass.com | "Birds rising in flight is a sign
| | that the enemy is lying in ambush..."
| 248.557.2754 | Sun Tzu
+--------------------------+-----------------------------------------
| Aqueduct Information Services http://www.aquecorp.com/vincent
------------------------------
Date: Wed, 02 Sep 1998 00:00:21 -0700
From: purring@earthlink.net
Subject: Reading a process from a pipe problem
Message-Id: <35ECED05.D58F932D@earthlink.net>
in an attempt to overlap 2 processes I got
this error.
[4] > overlap.pl
cvs co failed: No such file or directory at
/u/gstrock/bin/overlap.pl
line 6.
[Exit 2 ]
[5] > cvs checkout: Updating rxrefsys/sources
cvs [checkout aborted]: received broken pipe signal
[Exit 2 ]
[5] > lf
what I was trying to do is start a `cvs checkout'
and then when I get enough files checked out start
a make, while the `cvs checkout' continues.
I just wonder if my code is ok and the problem is
with `cvs':
open(CHKOUT, "cvs co rxrefsys/sources |");
while (<CHKOUT>) {
if(/rxrefsys\/sources\/makefile/) {
system ("make &");
}
}
usually a system call will wait till done, right?
but the ampersand causes it to be done in the
background
so it doesn't have to wait.
I do get some output from the `cvs checkout'
command,
it builds all the revelevant directories and
subdirectories
and checks out 1 file then fails.
any ideas?
thanx,
greg strockbine
canoga park, ca
------------------------------
Date: Tue, 1 Sep 1998 20:17:31 -0700
From: "Doyle Johnson" <sales@madm.com>
Subject: require another .pl file
Message-Id: <6sie14$rgt$1@nnrp03.primenet.com>
I have been fighting getting the require command to function.... I have
need to have a single file with scalar variables defined for several
scripts. I have yet to be able to load/call the variable file into the
script.
I have several scripts that I pulled off the net that use this method for
one reason or another... but I do not see anything special about the files
nor the command...
The command is as follows
#!/usr/bin/perl
#
require = "mzvar-lib.pl";
So does anyone know what I need to do to the file calling the added script
or to the added script itself?
------------------------------
Date: Wed, 02 Sep 1998 07:08:03 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: require another .pl file
Message-Id: <n96H1.9$KS1.27585@nsw.nnrp.telstra.net>
In article <6sie14$rgt$1@nnrp03.primenet.com>,
"Doyle Johnson" <sales@madm.com> writes:
> require = "mzvar-lib.pl";
>
> So does anyone know what I need to do to the file calling the added
> script or to the added script itself?
Is there anything besides what the documentation tells you that you
need to know?
# perldoc -f require
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: 30 Aug 1998 08:36:39 +0200
From: Pascal Rigaux <rigaux@pomme.irisa.fr>
Subject: simple prog that causes Segmentation fault
Message-Id: <wcrogt3562w.fsf@pomme.irisa.fr>
Look at this prog:
__BEGIN__;
sub f {
my @a;
bless \@a;
@a;
}
f;
f;
__END__;
Segmentation fault on:
perl_5.004_04 Linux 2.0.35 i686 cyrix, Debian 2.0
perl-5.004_04 Linux 2.0.34 i586 unknown, Redhat 5.1
perl-5.004_03 SunOS 5.6 sun4u sparc SUNW,Ultra-30
perl-5.004_03 SunOS 5.5.1 sun4c sparc SUNW,Sun_4_50
Don't crashes on:
perl-5.004_1 Linux 2.0.32 i686 unknown, Redhat 5.0
perl-??? from a Redhat 4.1
Ok, this prog is a bit silly, but it comes from a bigger one. I simplified it
and get this one.
Is there something wrong with that prog. Anyway it shouldn't sigsegv :{{
Comments:
- no pb after inlining the f calls
- no pb if you create two same functions and call each one
- no pb if you initialize ``my @a'' with ``()'' (though i thought it should be
the same, isn't it?)
Pixel.
------------------------------
Date: Wed, 02 Sep 1998 15:37:47 +0800
From: 8\(F&@ <versace@gianni.com>
Subject: Where to get Net/Domain.pm?
Message-Id: <35ECF5CB.2F8B@gianni.com>
Hi all,
Where to get Net/Domain.pm? I got errors when I tried to "make test".
Please help!
------------------------------
Date: Wed, 02 Sep 1998 05:07:46 GMT
From: mussatto@earthlink.net (William R. Mussatto)
Subject: Re: Win32::ODBC w/Access = Memory Fault
Message-Id: <35eccd54.135237903@news.earthlink.net>
After several emails w/Dave Roth, found the problem was covered in
README file, sort of. Trick is to find where the default directory
windows wants to put the temp files the JET engine uses. Had to turn
on auditing and look at the security log to find out which one. Had
to give USR_xxxxxx write access to the /WINNT directory. As soon as
this project is done, that is going to be turned off.
Bill Mussatto
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3614
**************************************
