[12703] in Perl-Users-Digest
Perl-Users Digest, Issue: 112 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jul 11 17:07:16 1999
Date: Sun, 11 Jul 1999 14:05:06 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 11 Jul 1999 Volume: 9 Number: 112
Today's topics:
Re: Changing case local-specifically (Neko)
Re: checking Perl offline (Michael Rubenstein)
Re: checking Perl offline (Andrew M. Langmead)
Re: checking Perl offline <tchrist@mox.perl.com>
Re: checking Perl offline (Michael Rubenstein)
Re: date format (Saku Ytti)
Re: from a pipe (Abigail)
Re: Fw: How can I disconnect an NT resource handle w/ P <carvdawg@patriot.net>
Re: How to dereference an array reference? <anonymous@web.remarq.com>
Re: How to dereference an array reference? (Bernie Cosell)
I need help PaCzBuckinAtCha@webtv.net
Imrpoving performance (MAX)
input comma(,) between three numbers ? <factory@factory.co.kr>
Re: input comma(,) between three numbers ? <coh@email.com>
Re: input comma(,) between three numbers ? <tchrist@mox.perl.com>
Re: md5 passwords via perl (Abigail)
Re: OT(ish): What is "Perl golf"?! <anonymous@web.remarq.com>
Re: Perl or PNP...which is better? (Cameron Laird)
Re: PERL: read dir and print out its files - Engels <rusenet@bigfoot.com>
Script question <kaleio@my-deja.com>
Re: Script question <tchrist@mox.perl.com>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 11 Jul 1999 18:06:40 GMT
From: tgy@chocobo.org (Neko)
Subject: Re: Changing case local-specifically
Message-Id: <7mamfg$jf5$0@216.39.141.200>
On 11 Jul 1999 01:38:22 -0400, Uri Guttman <uri@sysarch.com> wrote:
>so tr/// will see the spaces and probably build a table
>with only one entry for space but the compilation will take longer (not
>by much but for you perl golfers out thers, it is a lot. :-). and by
The code was not meant to be an example of Perl golf. Even so, there is no
game clock in golf, and at the end of the day, only the stroke count is
counted.
>perl golf standards it sucks as you are creating useless extra space
>chars!
If I can ricochet a golf ball off a dozen trees, off a golf cart, off two
bystanders and onto the green, are there any penalties? Or is it still one
stroke? :)
--
Neko | tgy@chocobo.org | Will hack Perl for a moogle stuffy! =^.^=
------------------------------
Date: Sun, 11 Jul 1999 18:17:26 GMT
From: miker3@ix.netcom.com (Michael Rubenstein)
Subject: Re: checking Perl offline
Message-Id: <378bdd8f.52599043@nntp.ix.netcom.com>
On 11 Jul 1999 11:55:49 -0700, Tom Christiansen
<tchrist@mox.perl.com> wrote:
> [courtesy cc of this posting mailed to cited author]
>
>In comp.lang.perl.misc,
> miker3@ix.netcom.com (Michael Rubenstein) writes:
>:From the Oxford English Dictionary certainly does not agree with
>:Tom:
>
>You are yourself incorrect for you have misunderstood the OED.
>It is saying that "offline" is a computer term that indicates
>something that is not connected to a computer system--which
>you will note is in fact my usage.
Did you ever hear of the term "context." Stephen obviously meant
offline to his server, i.e., not connected to his server. Surely
you cannot think that offline means away from any computer?
Stephen was using the term to mean doing the processing on his
personal computer while offline to the server. This is the same
sense in which the term is used in the second quote I gave from
the OED:
1972 Accountant 26 Oct. 530/2 Off-line operation at
Hendon is through a Varian 6201 computer and dual tape
unit, transferring data to tape for processing later on +
the 370/145.
I guess the Accountant was already a "prisoner of Bill" in 1972.
--
Michael M Rubenstein
------------------------------
Date: Sun, 11 Jul 1999 19:02:50 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: checking Perl offline
Message-Id: <FEpzKq.B78@world.std.com>
Uri Guttman <uri@sysarch.com> writes:
>>>>>> "A" == Abigail <abigail@delanet.com> writes:
> A> Using print statements is, except for analysing the program, the only
> A> way I debug.
>print rules. debuggers suck.
><abigail and i agree on a technique. must be the influence of the
>millennial cults>
I knew you were going to pipe in on this one. Hearing from Abigail
didn't quite surprise me, though.
>having first learned to program on punch cards with multi-hour turnaround
>(overwhelmed 2000 lpm line printers), i do lots of analysis and use
>strategically placed print statements. i can usually debug faster and
>better than most who use debuggers.
I understand. You are still using the techniques you learned in the
mid '70s. Some have learned new skills in the more than 20 years that
have past. The analysis skills you learned back then are the most
important thing to know. but somehow you seem to have the analysis
with the print statements illogically joined together in your mind.
Back in college, it used to seem that the best place to debug was the
cafeteria. I could sit in front of the terminal for hours banging my
head against the terminal, and seem to get nowhere. But then if I made
a printout of the code, went to the caf and ordered a hamburger, and
looked through the (greenbar) paper, the problem would be staring out
at me. (Actually, come to think of it, I don't remember using the
debugger much back then. I can't even remember the command set the VMS
debugger used. I have an account on a VMS machine at work. I've got to
look into that.)
But once I learned those debugging skills, I applied them debuggers
and other sorts of development tools. And I have to say, the perl
debugger has a better feature set than most I have used. Its not that
I can't do without it. Within the past year, I've had use
oscilloscopes connected to little wires hand soldered onto SMT
components. I'll use whatever I need to use, but I'll gladly make use
of any advantage given to me.
Now I know that you are much to stubborn to change, and I'm probably
wasting my time even trying to explain my point to you, but maybe I
can get a grudging acknowledgment of my position. Think of using a
debugger as a way of adding or removing print statements during a run
of a program, or limiting the number of print statements that are
executed when the item in question is in some sort of iterative
construct.
I'm not going to get too hung up arguing over this with you
Uri. Everyone who reads enough of your articles has a good mental
image of who you are, and I don't think that anyone is going to decide
not use use a debugger just because Uri said so.
--
Andrew Langmead
------------------------------
Date: 11 Jul 1999 13:13:34 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: checking Perl offline
Message-Id: <3788ecde@cs.colorado.edu>
In comp.lang.perl.misc,
miker3@ix.netcom.com (Michael Rubenstein) writes:
:1972 Accountant 26 Oct. 530/2 Off-line operation at
:Hendon is through a Varian 6201 computer and dual tape
:unit, transferring data to tape for processing later on +
:the 370/145.
When the Varian is offline, it is not connected to a computer. When I
am offline, I am not connected to a computer. That's why you hear
people talking about getting hardcopy so they can read something offline.
If offline means all that's happening is that the Internet is disconnected,
then that wouldn't make sense at all. Yet it does.
Many erstwhile technical terms are misapprehended when assimilated
by the sub-technical masses. This is nothing new, nor is it restricted to
the field of computers.
We're now at the point that radio adverts (and perhaps TV, but I can't
really personally verify that) talk about "logging in to foo.com". They
quite obviously have no idea what they're talking about; no authentication
is involved. They really mean "connect to http://www.foo.com" instead.
Yes, "to login" in the popular media now appears to mean "connect to
http://www."! Amazing, eh?
This is the kind of daftness that has led to the ludicrous use of "least
common denominator" by the innumerate to mean what is of course the
"greatest common factor". If you would like to see yet another example
of this, check out what the OED has to say about "upload" and "download".
Just like what we see in "login" in recent months, "online/offline"
has apparently undergone a similar mutilation amongst the sub-technical
masses and the mass media that panders to them, always more interested
in spouting hip and trendy buzzwords than actually having any true
understanding of what they are talking about.
It is no offence that technical people should favor the precise technical
meanings of technical terms that they themselves originally coined to
describe particular and precise technical issues, instead of resorting
to the imprecise and ill-understood corruptions popularly employed by
those who know not whereof they speak.
--tom
--
char program[1]; /* Unwarranted chumminess with compiler. */
--Larry Wall in the Perl source code
(quoting Henry Spencer (quoting Dennis Ritchie (quoting Brian Kerninghan)))
------------------------------
Date: Sun, 11 Jul 1999 20:44:38 GMT
From: miker3@ix.netcom.com (Michael Rubenstein)
Subject: Re: checking Perl offline
Message-Id: <378a0091.2660826@nntp.ix.netcom.com>
On 11 Jul 1999 13:13:34 -0700, Tom Christiansen
<tchrist@mox.perl.com> wrote:
<usual Christeansen foaming at the mouth elided>
>It is no offence that technical people should favor the precise technical
>meanings of technical terms that they themselves originally coined to
>describe particular and precise technical issues, instead of resorting
>to the imprecise and ill-understood corruptions popularly employed by
>those who know not whereof they speak.
It is an offense when it gets in the way of communication.
Everyone knew what Stephen meant -- he was talking about being
offline from a specific computer. This was a correct use of the
word.
I'll leave this thread with something my professor in
mathematical logic said many years ago while proving some variant
of Goedel's incompleteness theorem. He indexed a certain set of
statements using the primes and explained that he was doing this
because there were fewer primes than natural numbers. Of course
every one in the class raised his hand. Without turning from the
blackboard he said, "yes, I know the sets have the same
cardinality, but to understand this proof you have think it of
the set of primes as being smaller."
Explaining the relevance of this to Tom's tirade is left as an
exercise.
Have a nice day.
--
Michael M Rubenstein
------------------------------
Date: 11 Jul 1999 19:10:08 GMT
From: saku.eisikanautaa@ytti.net (Saku Ytti)
Subject: Re: date format
Message-Id: <slrn7ohr0o.qip.saku.eisikanautaa@ytti.net>
On Mon, 12 Jul 1999 02:47:57 GMT, hoz <hoz@rocketmail.com> wrote:
>how do I in perl get a date format (YYYYMMDD) that resembles this is
>I've tried localtime and system to no luck....seems like a no brainer
>but sometimes....
perl -e '($d,$d,$d,$d,$m,$y)=localtime();print$y+1900,$m+1,$d,"\n";'
hth.
--
--ytti - ::3585:0512:1378
------------------------------
Date: 11 Jul 1999 13:05:32 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: from a pipe
Message-Id: <slrn7ohn64.h7.abigail@alexandra.delanet.com>
Don Grogan (dgrogan@erols.com) wrote on MMCXL September MCMXCIII in
<URL:news:3788B9A0.CB0A27B@erols.com>:
## I wanted grep for dos. I wrote this script
##
## $pat=$ARGV[0];
## $pat=~tr/a-z/A-Z/;
## @dir=`dir`;
## for (@dir){
## if ($_=~$pat){
That's not a valid statement. And if you make it valid, all you're
matching is the name of the files in the directory.
## print $_ }; }
##
## But it doesnt work with any output. With this I just go to a directory
## and type
## grep <pattern>
Perhaps you want to get grep from the Perl Power Tools project?
## Can anyone tell me how I access something from a pipe? Like if I wanted
## to do
## type autoexec.bat |grep <pattern>
## How would I access the output from the type command? Thanks for any
## help.
It appears on STDIN.
Now, go and fix your newsreader. It puts in newlines in funny places.
Abigail
--
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
-----------== 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: Sun, 11 Jul 1999 14:07:30 +0100
From: Marquis de Carvdawg <carvdawg@patriot.net>
Subject: Re: Fw: How can I disconnect an NT resource handle w/ Perl?
Message-Id: <37889711.FAC560B0@patriot.net>
Get the Lanman module. You can find it at http://jenda.krynicky.cz/perl
Sean Montgomery wrote:
> I have an application where I am using Perl to copy files from a source
> server to several remote servers on a weekly basis. Sometimes, a file
> doesn't copy successfully because the file on the remote computer is in use.
> If that happens I'd like for my Perl script to close the open filehandle on
> that remote server and attempt the copy again.
>
> Is there a way to do this with Perl? The equivalent NT procedure would
> include selecting the server in Server Manager, looking at the "In Use" list
> and selecting "Close Resource". Another comparable is in the Microsoft SDK
> (NetFileClose).
>
> Thank you in advance for your help.
>
> Sean Montgomery
------------------------------
Date: Sun, 11 Jul 1999 10:40:15 -0800
From: theoddone33 <anonymous@web.remarq.com>
Subject: Re: How to dereference an array reference?
Message-Id: <931718417.14588@www.remarq.com>
>: I must ask why these are violations.
> ^^^^^
> What "these"?
>
> It is customary to include some context for followups.
<snip>
I apologize for not quoting applicable portions of Randal's
post. Since my current news server is very messed up, I've
been using Remarq to post replies to messages. The only
way I know of to quote it remarq is to cut and paste, then
manually add a ">" or whatever before each line. This is a
very labour intensive task, so I do not always do it. For
the benefit of those who did not receive the post I was
replying to, I was referring to spam-proofing email
addresses in Usenet posts and treating comp.lang.perl.misc
as a help desk.
> Using technical groups to find answers to questions
> *that have not already been adequately answered* is a
> major purpose of Usenet.
Fair enough. I reside mainly in alt.games.quake2, and we
are often answering the same questions repeatedly. It is
very annoying, but the answers are not as easily found as
answers to elementary perl questions. I now understand the
difference between helping people and being a help desk.
: One more thing, when advising someone to read the faq for
: this newsgroup, it would help that person out if you could
: provide a web address for someone to reach that faq.
> *boggle!*
> The docs *come with* perl.
Ahh, but you are mistaken. The faqs for perl, accessable
by a simple "perldoc perlfaq" or "perldoc -q <search
string" are entirely different than the faq for
comp.lang.perl.misc. I looked up the faq at www.faqs.org.
Here is a quote from it for those looking for it, and those
who do not even know of it's existence:
---Quote---
This FAQ is archived on ftp.cis.ufl.edu [128.227.100.198]
in the file pub/perl/doc/FAQ, as well as on rtfm.mit.edu
[18.181.0.24] in /pub/usenet/comp.lang.perl.*. If you have
any suggested additions or corrections to this article,
please send them to <perlfaq@perl.com>.
---End quote---
Info at www.faqs.org also states it is posted here bi-
weekly.
Anyone who can quote me a portion of this Faq regarding
spam-proofing email addresses will cause me to formally
apologize to the group for posting using a spam-proof
address. However, a quick analysis of the table of
contents leads me to believe that there are no "rules" for
posting mentioned in it at all.
theoddone33
**** Posted from RemarQ - http://www.remarq.com - Discussions Start Here (tm) ****
------------------------------
Date: Sun, 11 Jul 1999 20:31:32 GMT
From: bernie@fantasyfarm.com (Bernie Cosell)
Subject: Re: How to dereference an array reference?
Message-Id: <3788fc68.60850264@news.supernews.com>
theoddone33 <anonymous@web.remarq.com> wrote:
} >Yet another reason that Spamproofing your posting address
} >is a Bad Idea.
} This is the fourth newgroup I've lurked in since my time
} on the internet. I've also kept track of other newsgroups
} for a short amount of time, but not long enough to say I
} lurked there. In most if not all of the newsgroups I've
} read or posted to, I've never heard of anyone taking
} offense to spam-proofing.
It isn't clear just what form that would take in most newsgroups. In a lot
of them, if you ask a question with a spam-blocked address they just won't
reply to you...
} ...seems to me that it's a
} widespread thing across Usenet.
It is. A testament to varying skills and sensibilities. Actually
filtering spam "locally" [that is, in your mail client] isn't all that
hard, but there are a lot of folk who shrink in horror at the very thought
of getting _even_one_ unsolicited message, and so violate the RFCs and
"spamblock".
Oh, did I say "violate the RFCs". RFC 822, the governing spec for the
messages that are sent around via email [and by incorporation, on usenet],
specifies:
4.4.1. FROM / RESENT-FROM
This field contains the identity of the person(s) who wished
this message to be sent. The message-creation process should
default this field to be a single, authenticated machine
address, indicating the AGENT (person, system or process)
entering the message. If this is not done, the "Sender" field
MUST be present. If the "From" field IS defaulted this way,
the "Sender" field is optional and is redundant with the
"From" field. In all cases, addresses in the "From" field
must be machine-usable (addr-specs) and may not contain named
lists (groups).
} ... This is the first
} newsgroup I've ever seen that dislikes the practice.
IMO, it generally betrays the "blocker" as either an incompetent [who can't
figure out how to filter/sort/folderize their incoming email, a skill
everyone needs to learn and use sooner or later, even if there were no
spam] or a lot farther out on the sensitivity scale than I am...
[small footnote: I get a usual load of "spam" each day --- it takes <10
seconds to just delete the stuff and go on with life. I'm told that there
are some newsgroups where if you post to them you end up getting hundreds
of spam messages -- I can't attest to that... I post regularly to a dozen
or so newsgroups regularly and haven't run into any such thing -- and
perhaps if you hang out in those sorts of newsgroups [whatever they are]
your situation might be different...]
/Bernie\
--
Bernie Cosell Fantasy Farm Fibers
bernie@fantasyfarm.com Pearisburg, VA
--> Too many people, too few sheep <--
------------------------------
Date: Sun, 11 Jul 1999 15:58:44 -0400 (EDT)
From: PaCzBuckinAtCha@webtv.net
Subject: I need help
Message-Id: <7038-3788F774-249@newsd-622.iap.bryant.webtv.net>
--WebTV-Mail-7676-19459
Content-Type: Text/Plain; Charset=US-ASCII
Content-Transfer-Encoding: 7Bit
ok im looking for a C compiler. im on webtv as u already can see. i use
my PERL scripts at www.hypermart.net and i have a graphics program that
ends in .exe extension so i need a C compiler so i can run it. would
anyone be so kind to help me find one please. i been to a logo generator
that ends in .exe and it worked on webtv if i try to access any other
ones i get webtv cant use that type of information. so i would
appreciate this. please respond via email thannx
--WebTV-Mail-7676-19459
Content-Description: signature
Content-Disposition: Inline
Content-Type: Text/HTML; Charset=US-ASCII
Content-Transfer-Encoding: 7Bit
<html><body bgcolor=black text=dimgray
transition=wipeleftbottom><center><a
href="http://tightbeatz.cjb.net"><img
src="http://tightbeatz.hypermart.net/button.gif"></a><a
href="http://ircmuseum.cjb.net"><img
src="http://ircmuseum.hypermart.net/button.gif"></a><embed
src="http://tightbeatz.hypermart.net/randb/a-g/destiny_billsbillsbills.ram"
autostart=true></embed></html>
--WebTV-Mail-7676-19459--
------------------------------
Date: 11 Jul 1999 15:16:56 -0400
From: max@panix.com (MAX)
Subject: Imrpoving performance
Message-Id: <7maqj8$jok$1@panix2.panix.com>
My script runs fine (on Solaris) but is seems to raise the system
load perilously high. How can I find out what's using all the
resources?
-max
--
max@panix.com
"Is today a school day?"
------------------------------
Date: Mon, 12 Jul 1999 05:40:20 +0900
From: "Yeong Mo/Director Hana co." <factory@factory.co.kr>
Subject: input comma(,) between three numbers ?
Message-Id: <7mautu$i2$1@news1.kornet.net>
Hi,
Anyone know how to input comma(,) between three numbers ?
For example;
If there is 1542000000, change to 1,542,000,000
Thank you in advance.
------------------------------
Date: Sun, 11 Jul 1999 16:53:05 -0400
From: Chad O Hulbert <coh@email.com>
Subject: Re: input comma(,) between three numbers ?
Message-Id: <37890431.4B6E2844@email.com>
"Yeong Mo/Director Hana co." wrote:
>
> Hi,
>
> Anyone know how to input comma(,) between three numbers ?
>
> For example;
>
> If there is 1542000000, change to 1,542,000,000
>
> Thank you in advance.
Straight from perlfaq5:
sub commify {
local $_ = shift;
1 while s/^([-+]?\d+)(\d{3})/$1,$2/;
return $_;
}
Please read the docs.
--
Chad O Hulbert - coh@email.com
"Speed is subsittute fo accurancy."
------------------------------
Date: 11 Jul 1999 14:55:56 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: input comma(,) between three numbers ?
Message-Id: <378904dc@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
"Yeong Mo/Director Hana co." <factory@factory.co.kr> writes:
:Anyone know how to input comma(,) between three numbers ?
:For example;
:If there is 1542000000, change to 1,542,000,000
Precisely which part of the answers to this question in the standard
documentation supplied as part of the Perl distribution did you find
particularly unrewarding?
--tom
--
"You're one of those condescending Unix computer users!"
"Here's a nickel, kid. Get yourself a better computer" - Dilbert.
------------------------------
Date: 11 Jul 1999 13:10:54 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: md5 passwords via perl
Message-Id: <slrn7ohngn.h7.abigail@alexandra.delanet.com>
Greg Dickson (witchy@netserv.net.au) wrote on MMCXL September MCMXCIII in
<URL:news:3788AD77.111E0BBC@netserv.net.au>:
;; Im trying to get a handle on md5 password generation
;; has anyone got an idea how to generate a md5 encrypted string
;; from perl.
Perhaps the author of the MD5 module on CPAN has.
Abigail
--
echo "==== ======= ==== ======"|perl -pes/=/J/|perl -pes/==/us/|perl -pes/=/t/\
|perl -pes/=/A/|perl -pes/=/n/|perl -pes/=/o/|perl -pes/==/th/|perl -pes/=/e/\
|perl -pes/=/r/|perl -pes/=/P/|perl -pes/=/e/|perl -pes/==/rl/|perl -pes/=/H/\
|perl -pes/=/a/|perl -pes/=/c/|perl -pes/=/k/|perl -pes/==/er/|perl -pes/=/./;
-----------== 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: Sun, 11 Jul 1999 12:09:53 -0800
From: theoddone33 <anonymous@web.remarq.com>
Subject: Re: OT(ish): What is "Perl golf"?!
Message-Id: <931723795.15353@www.remarq.com>
>Hi all,
Hi.
>seen refs to perl golf in a few replies and I was just
>wondering what it is.
What my search revealed:
http://x43.deja.com/getdoc.xp?AN=492217837&CONTEXT=931723540
.2029322245&hitnum=20
theoddone33
**** Posted from RemarQ - http://www.remarq.com - Discussions Start Here (tm) ****
------------------------------
Date: 11 Jul 1999 14:07:11 -0500
From: claird@Starbase.NeoSoft.COM (Cameron Laird)
Subject: Re: Perl or PNP...which is better?
Message-Id: <AAF67CC87BA22859.68B533BF568EACBB.5C4CE42DCDACA1B0@lp.airnews.net>
In article <377B0B72.F995FFBE@gmx.net>,
Philip 'Yes, that's my address' Newton <nospam.newton@gmx.net> wrote:
.
.
.
>Stands for "PHP: Hypertext Preprocessor". Home page at
>http://www.php.net .
.
.
.
"Personal Home Page". It's an anachronism, as PHP has
become far grander than originally intended.
--
Cameron Laird http://starbase.neosoft.com/~claird/home.html
claird@NeoSoft.com +1 281 996 8546 FAX
------------------------------
Date: Sun, 11 Jul 1999 20:05:44 +0200
From: "Rik." <rusenet@bigfoot.com>
Subject: Re: PERL: read dir and print out its files - Engels
Message-Id: <7mam8v$cfe$1@enterprise.cistron.net>
Wouter de Jong <wouter@nospam.almetaal.com> schreef in berichtnieuws
931715380.22588.0.pluto.c3adeace@news.demon.nl...
> Rik. <rusenet@bigfoot.com> schreef in berichtnieuws
> 7magsi$6ij$1@enterprise.cistron.net...
>
> > What is CPAN, i suppose its a newsgroup which i don't have.
>
> Hrr, programming in Perl and DON'T know CPAN..??? That's almost impossible
> :-)
> http://www.cpan.org
>
Ow well: newbie =)
Rik
------------------------------
Date: Sun, 11 Jul 1999 20:21:58 GMT
From: Kalei Awana <kaleio@my-deja.com>
Subject: Script question
Message-Id: <7maucv$4qu$1@nnrp1.deja.com>
Hello-
I have a friend that needs to accomplish the following, and she thinks
that a PERL script is a more efficient way to do it. Any help would be
appreciated.
From the release tree of her software builds, She is trying to search
the source tree, for every dir in the release tree. She needs to get
(recursively) the latest version dependency files. These files are:
vcs.cfg
makefile.mak
depends.mak
Does anyone know of a PERL script that could accomplish this without
system calls? I apologize for lack of platform info, I was asking her
questions that were somewhat out of my depth. If you need more info I
can ask her. This is the solution she is currently using, a shell
script I believe:
#1/usr/bin/ksh
srcpath=/src/t3as
cd $ADMIN_BASE #environment variable
for directory in 'find * -type d -name work -print
do echo "getting dependencies for work directory $ADMIN_BASE/$directory"
cd $ADMIN_BASE
cd $directory
subdir1 = $directory
srcdir = ${subdir1%%work}src #substitute src for work
fix_work_dir #script
get -y $VERSION $srcpath/$srcdir/vcs.cfg_v
get -y $VERSION makefile.mak_v depends.mak_v
done
Thanks again for your help...feel free to email me with any questions.
--
Kalei Awana
Web Apprentice
Monkeyjunky <http://www.hotwired.com/webmonkey/>
Perpetual Student
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 11 Jul 1999 14:48:27 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Script question
Message-Id: <3789031b@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
Kalei Awana <kaleio@my-deja.com> writes:
:Does anyone know of a PERL script that could accomplish this without
:system calls?
It's quite impossible, because if you do not consult the operating
system about its files, you cannot know what your operating system
thinks its files are!
Quod erat demonstrandum, and all that jazz.
--tom
--
Basically, avoid comments. If your code needs a comment to be understood,
it would be better to rewrite it so it's easier to understand. --Rob Pike
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
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 V9 Issue 112
*************************************
