[9483] in Perl-Users-Digest
Perl-Users Digest, Issue: 3077 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jul 7 05:17:18 1998
Date: Tue, 7 Jul 98 02:00:27 -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 Tue, 7 Jul 1998 Volume: 8 Number: 3077
Today's topics:
-- Picking up Extra Spaces on an Array. Why? <dfsdf@ziplink.net>
Re: -- Picking up Extra Spaces on an Array. Why? (Ronald J Kimball)
Re: -- Picking up Extra Spaces on an Array. Why? (Abigail)
Re: -w on production code (was Re: better way of gettin (Ronald J Kimball)
Re: -w on production code (was Re: better way of gettin (Chip Salzenberg)
Re: -w on production code (was Re: better way of gettin <jimbo@soundimages.co.uk>
Re: Accessing UDB from perl? <mxp@linguistik.uni-erlangen.de>
Re: Array Size (Craig Berry)
Re: Debugging (Ronald J Kimball)
Do we need lame msgs in discussions? Re : Martien Verbr <azman@bnex.com>
Re: Do we need lame msgs in discussions? Re : Martien V <flavell@mail.cern.ch>
Re: Finding a value in a string (Craig Berry)
Getting around javascript dialog box confirm button <sofian@ti.com>
Help about Integer <sergi@comb.es>
help with perl install on win95. <gdimitroski@lowegroup.com.au>
Help! MacPerl and STDIN (Normand Rivard)
Re: Help! MacPerl and STDIN (brian d foy)
Re: inetinfo sticks in NT <antti.boman***SP@MPROTECTION***mindcom.fi>
Re: open2 problems (Harold Bamford)
Re: regexp s/// for removing tail end of string (Ronald J Kimball)
Re: s/,/','/; <antti.boman***SP@MPROTECTION***mindcom.fi>
setting @INC in (ActiveState) Perl 5 for Win32 <blok@physics.ubc.ca>
Re: use strict; (Ronald J Kimball)
waiting for great, great grandchildren? <bhewitt@orca.akctr.noaa.gov>
Re: Where can I find perl for win95...how do I use it w <quednauf@nortel.co.uk>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 06 Jul 1998 00:06:16 -0400
From: Webcruiser <dfsdf@ziplink.net>
Subject: -- Picking up Extra Spaces on an Array. Why?
Message-Id: <35A04D38.2CC3@ziplink.net>
I have a program that reads in a file containing status updates from my
merchants. I load the file into an array, as follows:
$aidfile="$filedirectory" . "$AID" . ".dta";
open(FILE,"<$aidfile");
@STATUS=<FILE>;
close FILE;
$AID is the variable for the Account ID. I load this as the default
value in an html form, then display it. I make changes, then load it
back to the disk. When I reload the file, there is always a leading
space on each line after the first line. The spaces used to increment
with each click of the "Update" button, but the following lines of code
fixed that:
$numlines=@STATUS;
for ($x=1; $x<$numlines; $x++){
if (substr($STATUS[$x],0,1) eq " "){
$STATUS[$x]=substr($STATUS[$x],1);
}
}
Here is the code for the subroutine that writes the file to the disk:
sub updatestatus {
$aidfile="$filedirectory" . "$AID" . ".dta";
open(FILE,">$aidfile");
print FILE ("@STATUS");
close FILE;
}
Now, there is just a single leading space at the beginning of each line,
after the first. What is causing this, and how do I emliminate it?
You can see the form at:
http://webcruiser.com/manager/mmadmin.htm
Use "kamenar" as the Account ID, or input your own. The password is not
yet set up. The "Delete Merchant" button also does nothing yet.
------------------------------
Date: Tue, 7 Jul 1998 01:06:08 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: -- Picking up Extra Spaces on an Array. Why?
Message-Id: <1dbrt41.1g5ve1v10o7rzqN@bay1-264.quincy.ziplink.net>
Webcruiser <dfsdf@ziplink.net> wrote:
> print FILE ("@STATUS");
>
> Now, there is just a single leading space at the beginning of each line,
> after the first. What is causing this, and how do I emliminate it?
Look up the $" special variable in the perlvar manpage, and then remove
the double quotes from that line.
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 7 Jul 1998 06:03:12 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: -- Picking up Extra Spaces on an Array. Why?
Message-Id: <6nsdn0$23m$1@client3.news.psi.net>
Webcruiser (dfsdf@ziplink.net) wrote on MDCCLXX September MCMXCIII in
<URL: news:35A04D38.2CC3@ziplink.net>:
++ I have a program that reads in a file containing status updates from my
++ merchants. I load the file into an array, as follows:
++
++ $aidfile="$filedirectory" . "$AID" . ".dta";
++ open(FILE,"<$aidfile");
++ @STATUS=<FILE>;
++ close FILE;
++
++ $AID is the variable for the Account ID. I load this as the default
++ value in an html form, then display it. I make changes, then load it
++ back to the disk. When I reload the file, there is always a leading
++ space on each line after the first line. The spaces used to increment
++ with each click of the "Update" button, but the following lines of code
++ fixed that:
++
++ $numlines=@STATUS;
++ for ($x=1; $x<$numlines; $x++){
++ if (substr($STATUS[$x],0,1) eq " "){
++ $STATUS[$x]=substr($STATUS[$x],1);
++ }
++ }
++
++ Here is the code for the subroutine that writes the file to the disk:
++ sub updatestatus {
++ $aidfile="$filedirectory" . "$AID" . ".dta";
++ open(FILE,">$aidfile");
++ print FILE ("@STATUS");
++ close FILE;
++ }
++
++
++ Now, there is just a single leading space at the beginning of each line,
++ after the first. What is causing this, and how do I emliminate it?
That's because you stringify things you shouldn't stringify.
Try something like this:
$aidfile = "$filedirectory$AID.dta"; # "$AID" will shoot you in the foot.
open FILE, $aidfile or die "Eeps: $!"; # Always, always, *always* test
# the return value of open.
@STATUS = <FILE>;
close FILE;
foreach (@STATUS) {s/^ //;} # Remove leading space of all lines.
# Don't use C-ish for.
open FILE, ">$aidfile" or die "Eeps: $!"; # Always, always, *always* test
# the return value of open.
print FILE @STATUS; # @STATUS eq join $,, @STATUS
# "@STATUS" eq join $", @STATUS
# $, eq "", $" eq " "
# That's where the spaces are coming
# from.
close FILE;
Of course, I wouldn't reopen the file, and I'd use locking too.
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
------------------------------
Date: Tue, 7 Jul 1998 01:06:09 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: -w on production code (was Re: better way of getting the last modified file?)
Message-Id: <1dbrtdb.ye0zg31oebmpsN@bay1-264.quincy.ziplink.net>
[posted and mailed]
Tom Christiansen <tchrist@mox.perl.com> wrote:
> In comp.lang.perl.misc,
> gebis@albrecht.ecn.purdue.edu (Michael J Gebis) writes:
> :Hm. The camel shipped without warnings in many places. And when I
> :added them in, I started getting "check '$foo=<>' with defined" warnings.
> :I guess the camel is of such a quality that it easily pukes warnings
> :all over the users.
>
> Any other spurious insults for me, Mr. Gebis? The Camel, written for
> 5.003, certainly had no such problems. That warning was accidentally
> added for 5.004 by someone who made the wrong decision. It has been
> fixed for 5.005.
>
> You are a very tiresome person.
That was not an insult. It was a counter-argument to Abigail's remark
about code 'puking warning all over users'. Obviously, if the code in
the Camel itself produces unwanted warning messages when -w is added,
then Abigail's argument is unconvincing. I think you should be
flattered that Michael Gebis chose your book as his example, as he
needed well-known and widely accepted code to prove his point.
By the way, you forgot to mention that the Camel book was co-authored
Larry Wall and Randal Schwartz.
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Tue, 07 Jul 1998 06:45:14 GMT
From: chip@pobox.com (Chip Salzenberg)
Subject: Re: -w on production code (was Re: better way of getting the last modified file?)
Message-Id: <6nsg81$1f1$1@cyprus.atlantic.net>
Tom Christiansen <tchrist@mox.perl.com> wrote:
> In comp.lang.perl.misc,
> gebis@albrecht.ecn.purdue.edu (Michael J Gebis) writes:
> : ... "check '$foo=<>' with defined" warnings ...
>
> That warning was accidentally added for 5.004 by someone who made
> the wrong decision.
Talk about spurious insults... That warning was added _on_purpose_ by
me, and it was not "the wrong decision." Given that Larry was not
around to bless a change in semantics, the warning was the best among
difficult choices.
> It has been fixed for 5.005.
"It" being the warning? False; the warning is unchanged. Rather,
Perl has been fixed so that code that most often triggered the warning
behaves differently, so that the warning no longer applies.
Please be precise about this in future.
--
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: 07 Jul 1998 08:12:46 +0100
From: Jim Brewer <jimbo@soundimages.co.uk>
Subject: Re: -w on production code (was Re: better way of getting the last modified file?)
Message-Id: <uaf6m6snl.fsf@jimbosntserver.soundimages.co.uk>
Tom Christiansen <tchrist@mox.perl.com> writes:
> In comp.lang.perl.misc,
> gebis@albrecht.ecn.purdue.edu (Michael J Gebis) writes:
> :Hm. The camel shipped without warnings in many places. And when I
> :added them in, I started getting "check '$foo=<>' with defined" warnings.
> :I guess the camel is of such a quality that it easily pukes warnings
> :all over the users.
>
> Any other spurious insults for me, Mr. Gebis? The Camel, written for
> 5.003, certainly had no such problems. That warning was accidentally
> added for 5.004 by someone who made the wrong decision. It has been
> fixed for 5.005.
>
> You are a very tiresome person.
>
> --tom
> --
Feeling a bit tetchy Tom? Funny, there was no mention of you
individually. The camel has three authors, at least my copy. Maybe it
was Larry or Randal being insulted? Probably not. Probably not even
you. Just an example of how things can go wonky for even the best of
the best.
Get thee to the moderated. Praise the Lord God for such a miracle.
Jim Brewer
------------------------------
Date: 07 Jul 1998 09:48:17 +0200
From: Michael Piotrowski <mxp@linguistik.uni-erlangen.de>
Subject: Re: Accessing UDB from perl?
Message-Id: <riogv2m79a.fsf@clue29.linguistik.uni-erlangen.de>
Hemant Shah <shah@xnet.com> writes:
> Is there a perl library/module I can use to access DB2 UDB on AIX?
Yes, DBD::DB2. It's a DBI driver, so you've got to install DBI, too.
Both are available from CPAN <http://www.perl.com/CPAN/>. There's
currently a problem with remote access in DBD::DB2 which is supposed
to be fixed Real Soon.
--
Michael Piotrowski <mxp@linguistik.uni-erlangen.de>
<http://www.linguistik.uni-erlangen.de/~mxp/>
Department of Computational Linguistics --- University of Erlangen, Germany
------------------------------
Date: 7 Jul 1998 07:15:18 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Array Size
Message-Id: <6nshu6$eej$1@marina.cinenet.net>
Jeremy D. Zawodny (jzawodn@wcnet.org) wrote:
: sowmaster@juicepigs.com (Bob Trieger) writes:
:
: > $#array will give you the last element.
:
: The subscript of the last element.
:
: $array[$#array];
:
: will give you the last element.
Or, using a notation I find more pleasing, $array[-1] does the same thing.
One less copy of the array name to mistype. :)
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Tue, 7 Jul 1998 01:06:10 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: Debugging
Message-Id: <1dbrto1.1d4ugwr5o9c4mN@bay1-264.quincy.ziplink.net>
[posted and mailed]
Paul Smith <cobalt@dircon.co.uk> wrote:
> Can anyone tell me how to inspect LOCAL variables in the debugger?
>
> I'm using X DB varname but this only appears to work for global variables.
If by 'LOCAL' you mean lexically scoped variables declared with the my
statement, then use the x command. X is used to examine variables in a
symbol table, and lexical variables are not stored in the symbol table.
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Mon, 06 Jul 1998 15:38:09 +0800
From: Azman Shariff <azman@bnex.com>
Subject: Do we need lame msgs in discussions? Re : Martien Verbruggen
Message-Id: <35A07EE1.868B625B@bnex.com>
Subject: Re: Array Size
Date: 7 Jul 1998 03:26:10 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Organization: Commercial Dynamics Pty Ltd, N.S.W., Australia
Newsgroups: comp.lang.perl.misc
References: 1
In article <35A03857.173436FB@bnex.com>,
Azman Shariff <azman@bnex.com> writes:
>> I am no sure if this is asked before but after going thru the whole
>> newsgroup, I have not found an question based on this.
>So instead of doing some work yourself, you decided that you would let
>us do the work? If you don't want to read all messages, just refer to
>the perl faq and the perl documentation. If you then can't find it,
>use a news archive line dejanews to find out if it has been asked
>before. If you still can't find it, ask here. What makes you think we
>don't mind doing your work for you?
I have been in this group for quiet a while and i always go hrough the
list
before asking questions. I always make sure i R.T.F.M!!! but at times it
would be a really shor time of notice to finish things up!
I noticed three kinds of repliers here basically they all in the
catogeries
1) Sincere answer to solve the problem
2) Just a flame telling ppl off
3) An answer to the question but added a flame
he question here is "Do we need his kind of replies to questions posed?"
Let's
face the facts.... what you know doesn't mean wha another person knows!
What
resources you have doesn't mean what others have too! This group is here
for ppl
to ask and be answered. not get a reply that just brings the person
down!
Yes ... i do agree at times there are some or quiet a lot totally
irrelvant stupid
and totally frustrating messages! But can't we just ignore it? Why take
the trouble
to answer with a remark? We are helping each other, and not to flame
each other!
I also noticed a group of ppl waiting just to flame someone with a
remark so that
EVERYONE can see how great the flame is! MY GOD! Stop those
waste-of-bandwidth-remarks
and grow up! If you hink you don't like the message. do a /ignore <msg>
There isn't a need for that reply!
I know this message will get a whole bunch of comments and flames but
then again
we must remember that at the end of the day we wish to discuss and
exchange opinions
and also tips or tricks. No flames. By ignoring those kind of messages
that you do
not wish to reply then this list will smaller and will be more
'productive' in
exchange of knowledge.
Let's accept it that one might be great in regexp but may be very weak
in structures.
(just an example) ... so if we cut the lame msgs and answer whatt we
wish to and ignore
what we do not want..... i think this place will be much better. I have
open messages
just to read alot of flames..... and what do we gain??? flame or perl
info??
choose one
Azman Shariff
Systems Analyst
Business Netlink Exchange (S) Pte Ltd
*To be or not to be ...... it is your path*
------------------------------
Date: Tue, 7 Jul 1998 09:54:06 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Do we need lame msgs in discussions? Re : Martien Verbruggen
Message-Id: <Pine.HPP.3.95a.980707094902.4221C-100000@hpplus03.cern.ch>
On Mon, 6 Jul 1998, Azman Shariff wrote:
> he question here is "Do we need his kind of replies to questions posed?"
Have you considered the possibility that low-quality answers are often
provoked by low-quality questions? I'd say the solution is pretty much
in the hands of those who post the lame questions. There's even an FAQ
advising how to compose an effective question, and every day we see a
whole string of questions that appear to have been composed by taking
that FAQ and carefully violating each of the points.
------------------------------
Date: 7 Jul 1998 07:20:04 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Finding a value in a string
Message-Id: <6nsi74$eej$2@marina.cinenet.net>
brian d foy (comdog@computerdog.com) wrote:
: #store the matching number in a memory variable!
: $file =~ m/^BegMessage(\d+)/m;
:
: $number = $1;
Or save yourself a line and unneeded $1 reference:
($number) = $file =~ m/^BegMessage(\d+)/m;
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Tue, 07 Jul 1998 14:46:42 +0800
From: Sofian Taha <sofian@ti.com>
Subject: Getting around javascript dialog box confirm button
Message-Id: <35A1C451.B404CA6E@ti.com>
Hello,
I'm trying to write a client script that gets files from a web server
without having to open up a browser (for automation purposes). However,
the server asks for confirmation whether to go ahead or cancel the
download (through a javascript dialog box). How do you go about doing
this in perl to simulate the clicking of the "OK" or "Cancel" button?
-Sofian
------------------------------
Date: Tue, 07 Jul 1998 09:45:46 +0200
From: Sergi Bech <sergi@comb.es>
Subject: Help about Integer
Message-Id: <35A1D22A.E37050AE@comb.es>
How can I round a decimal value?
sample:
5.6666 --- > 6
4.3333 ----> 4
Thanks.
Sergi Bech
sergi@comb.es
------------------------------
Date: 7 Jul 1998 04:44:45 GMT
From: "goce" <gdimitroski@lowegroup.com.au>
Subject: help with perl install on win95.
Message-Id: <01bda961$f680cd00$3c0000c3@goce>
Hi i am new to perl i was woundering if there is a step by step
installation guide to install perl on win95 ??
------------------------------
Date: Tue, 07 Jul 1998 00:08:11 -0400
From: nrivard@cam.org (Normand Rivard)
Subject: Help! MacPerl and STDIN
Message-Id: <nrivard-0707980008110001@dialup-765.hip.cam.org>
Hi, I might not be the first one to ask that, but I'm trying to figure out
how to use MacPerl with simple portable scripts.
My question regards STDIN, STDOUT and STDERR. When I try a simple script like :
while (<STDIN>) {
print "OK" if (/fred/);
}
MacPerl prompts me with a console window. I expected some sort of file
open dialog asking me to find the input file, but it seems that MacPerl
demands STDIN to map on the console and that's all. Am I missing
something?
Thanks.
------------------------------
Date: Tue, 07 Jul 1998 02:15:29 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Help! MacPerl and STDIN
Message-Id: <comdog-ya02408000R0707980215290001@news.panix.com>
Keywords: from just another new york perl hacker
In article <nrivard-0707980008110001@dialup-765.hip.cam.org>, nrivard@cam.org (Normand Rivard) posted:
>Hi, I might not be the first one to ask that, but I'm trying to figure out
>how to use MacPerl with simple portable scripts.
>
>My question regards STDIN, STDOUT and STDERR. When I try a simple script like :
>
>while (<STDIN>) {
> print "OK" if (/fred/);
>}
>
>MacPerl prompts me with a console window. I expected some sort of file
>open dialog asking me to find the input file, but it seems that MacPerl
>demands STDIN to map on the console and that's all. Am I missing
>something?
um, what are you trying to do? why did you expect a dialog to open
a file?
STDIN waits for you to type something in, unless you've done wierd
things to it.
if you want to open a file with the StandardFile stuff, you'll
need to use the special MacPerl stuff.
good luck :)
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers Travel Deals! <URL:http://www.pm.org/travel.html>
------------------------------
Date: Tue, 7 Jul 1998 11:04:41 +0300
From: "Antti Boman" <antti.boman***SP@MPROTECTION***mindcom.fi>
Subject: Re: inetinfo sticks in NT
Message-Id: <6nskqv$e4t$1@hiisi.inet.fi>
>Like that... my task manager shows the task "inetinfo" using 100%
>resources, and I cannot end-task it.
Even if this is not a perl question, it's worth answering (if someone having
the same problem happened to check the archives).
I've used the dirty trick by using Reskit's tlist and kill. First get the
PID with tlist and murder her! :) Then start again.
Should be easy to do this trick with a short perl script.
-a
------------------------------
Date: 7 Jul 1998 04:26:04 GMT
From: hbamford@marconi.ih.lucent.com (Harold Bamford)
Subject: Re: open2 problems
Message-Id: <6ns80s$knr@ssbunews.ih.lucent.com>
Tom Christiansen <tchrist@mox.perl.com> wrote:
>: my(@lines) = <$RDR>;
>Your bug is that:
>
> @lines = <FH>;
>
>*Exhausts* the filehandle.
>Did you mean
>
> $line = <FH>;
Thanks, Tom. I appreciate your quick response. However, that is
what I originally tried. Trying to suck it all in was an act of
desperation. And I just tried it again. I get the pid printed
out and then nothing. So, the new (but still useless) version of
the script is:
######################################################################
#!/opt/nwstools/bin/perl -w
use strict;
use FileHandle;
use IPC::Open2;
my($WTR) = new FileHandle;
my($RDR) = new FileHandle;
my($pid) = open2($RDR,$WTR,'/usr/bin/cat -u -');
print "pid='$pid'\n";
foreach(0..5000) {
print $WTR "012345678901234567890123456789012345678901234567890123456789\n";
my($lines) = <$RDR>;
print "got back: $lines";
}
######################################################################
--
-- Harold Bamford
mailto:hbamford@lucent.com
(630)713-1351
------------------------------
Date: Tue, 7 Jul 1998 01:06:12 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: regexp s/// for removing tail end of string
Message-Id: <1dbruj7.mxec3ape5xiwN@bay1-264.quincy.ziplink.net>
John Moreno <phenix@interpath.com> wrote:
> Try $path =~ s/(.+\/)/$1/ or $path =~ s/[^\/]+$//
The first one doesn't accomplish anything. The second one works though.
:-)
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Tue, 7 Jul 1998 11:11:39 +0300
From: "Antti Boman" <antti.boman***SP@MPROTECTION***mindcom.fi>
Subject: Re: s/,/','/;
Message-Id: <6nsl82$e9d$1@hiisi.inet.fi>
>s/,/','/;
>
>and no matter what combination of single quotes, double quotes,
>brackets, etc., I try to use, it only replaces the comma with two
>apostrophes and won't put the comma between them. I assume it's
>interpreting the comma as a list delimiter or something.
I tried it with my ActiveState Perl and it worked as expected. The first
comma turned to ','
Which version are you using?
-a
------------------------------
Date: Tue, 07 Jul 1998 00:02:53 -0700
From: Rik Blok <blok@physics.ubc.ca>
Subject: setting @INC in (ActiveState) Perl 5 for Win32
Message-Id: <35A1C81D.DB7E75A6@physics.ubc.ca>
Can somebody tell me where I can set the @INC variable under
ActiveState's Perl? I want to set up a default library folder where I
can put all my commonly "required" scripts.
I've looked in the registry but didn't see anything there. Maybe in
autoexec.bat? Please help...
TIA, Rik.
(Please send replies to my email address.)
--
Rik Blok <blok@physics.ubc.ca>
Department of Physics and Astronomy,
University of British Columbia, Canada
http://www.physics.ubc.ca/~blok/
------------------------------
Date: Tue, 7 Jul 1998 01:06:12 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: use strict;
Message-Id: <1dbruvi.ckie2i5ynd89N@bay1-264.quincy.ziplink.net>
Randy Kimple <kimplera@med.unc.edu> wrote:
> #!/user/bin/perl -w
> use strict;
>
> syntax error in file makefr~1.txt at line 2, next 2 tokens "use strict"
> Execution of makefr~1.txt aborted due to compliation errors.
Smells like Perl4. What does `/user/bin/perl -v` say?
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Tue, 7 Jul 1998 00:34:45 -0700
From: Bob Hewitt <bhewitt@orca.akctr.noaa.gov>
Subject: waiting for great, great grandchildren?
Message-Id: <Pine.SGI.3.95.980707001053.6400A-100000@orca.akctr.noaa.gov>
The first process forks & execs a perl program. That perl program execs
a second program then ends. The second program does the same, giving a
third program. So, the third program seems to still be the child of the
first process. If the first process does a 'waitpid(-1, &WNOHANG)', can it
be intercepting the status of programs invoked from the third program as
system("someprog");?
Recently, (since we got Irix6.2), some programs invoked from 'system()'
as above, have been occasionally getting 'hung-up'. The perl program (the
third program) which called them from 'system()' seems to wait forever for
them to end. (This is only happening with Oracle programs run from the
third program....) (These programs are running under perl4.036)
[ Bob Hewitt - bhewitt@orca.akctr.noaa.gov, (206)526-4208 ]
------------------------------
Date: Tue, 07 Jul 1998 09:30:24 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Re: Where can I find perl for win95...how do I use it with local web pages?
Message-Id: <35A1DCA0.321F2585@nortel.co.uk>
Chocolate wrote:
>
> _/_/_/ _/ _/
> _/ _/ _/ _/
> Web Page Designs _/_/_/ _/_/_/ _/_/_/ _/_/_/ _/_/_/ _/_/_/
> Small Programs _/ _/ / _/ _/ _/ _/ _/ _/ _/ _/ poohba@io.com
> www.io.com/~poohba _/ _/_/_/ _/_/_/ _/ _/ _/_/_/ _/_/\_ (919)506-5883
Just for your information. Your sig textgraphics is almost unreadable, and I
only found out what it means when looking at your address on the right hand
side. So you might want to leave the graphics away, as it is probably easier on
the eye for about 85% of the email reading population.
Cheers :)
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.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 3077
**************************************
