[16890] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 4302 Volume: 9

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Sep 12 18:15:49 2000

Date: Tue, 12 Sep 2000 15:15:30 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <968796929-v9-i4302@ruby.oce.orst.edu>
Content-Type: text

Perl-Users Digest           Tue, 12 Sep 2000     Volume: 9 Number: 4302

Today's topics:
        Newbie to CGI <tigz@ntlworld.com>
    Re: Newbie to CGI <anders@wall.alweb.dk>
    Re: Newbie to CGI (David H. Adler)
    Re: Newbie to CGI <tigz@ntlworld.com>
    Re: Newbie to CGI rbfitzpa@my-deja.com
        Passing hashes to a function <g.soper@soundhouse.co.uk>
    Re: Passing hashes to a function (Malcolm Dew-Jones)
    Re: Passing hashes to a function (Eric Bohlman)
    Re: Passing hashes to a function <tim@ipac.caltech.edu>
    Re: Perl 5.6.0 bug ? GEN33 opened only for output tltt@my-deja.com
    Re: Perl and System Environment Variables tltt@my-deja.com
    Re: Perl substraction weird result <tim@ipac.caltech.edu>
        Perl vs. Java or C++ rathmore@tierceron.com
    Re: Please help me with my shotty code... <aqumsieh@hyperchip.com>
        Problem getting unix "jobs" output with backticks <rrasmussen@paragen.com>
    Re: Problem getting unix "jobs" output with backticks <tony_curtis32@yahoo.com>
        problem with hashes pratima@my-deja.com
    Re: problem with hashes <christopher_j@uswest.net>
    Re: problem with hashes <tina@streetmail.com>
    Re: problem with hashes (Eric Bohlman)
    Re: Prune doesn't work in find (Mike Nelsen)
        Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Tue, 12 Sep 2000 19:08:17 +0100
From: "Tigz" <tigz@ntlworld.com>
Subject: Newbie to CGI
Message-Id: <Eiuv5.12124$8r4.149004@news2-win.server.ntlworld.com>

HI, I'm totally new to CGI, I have got a few cgi applications working, but i
cant seem to get a counter working.
When i call the counter useing ssi i get the following message:
"[an error occurred while processing this directive] "
could someone please explane to me what i am doing wrong.

Thankx
Mick,

Please bare in mind that I only started experementing with cgi yesderday!




------------------------------

Date: Tue, 12 Sep 2000 19:48:19 GMT
From: Anders Lund <anders@wall.alweb.dk>
Subject: Re: Newbie to CGI
Message-Id: <7Mvv5.702$Tn3.15376@news010.worldonline.dk>

Tigz wrote:

> HI, I'm totally new to CGI, I have got a few cgi applications working, but
> i cant seem to get a counter working.
> When i call the counter useing ssi i get the following message:
> "[an error occurred while processing this directive] "
> could someone please explane to me what i am doing wrong.
> 
> Thankx
> Mick,
> 
> Please bare in mind that I only started experementing with cgi yesderday!
> 
> 
Let's see some code.

But, first check that the plug is in. Your file is in the right dir, you 
*DID* use error handling (die "bad error: $!") where it applicable, you did 
not transfer your script using FTP binary mode, the script is executable...

-anders

-- 
[ the word wall - and the trailing dot - in my email address
is my _fire_wall - protecting me from the criminals abusing usenet]


------------------------------

Date: 12 Sep 2000 20:36:03 GMT
From: dha@panix.com (David H. Adler)
Subject: Re: Newbie to CGI
Message-Id: <slrn8rt4tj.86k.dha@panix2.panix.com>

On Tue, 12 Sep 2000 19:08:17 +0100, Tigz <tigz@ntlworld.com> wrote:
>HI, I'm totally new to CGI, I have got a few cgi applications working, but i
>cant seem to get a counter working.
>When i call the counter useing ssi i get the following message:
>"[an error occurred while processing this directive] "
>could someone please explane to me what i am doing wrong.

Yep.  You're posting a cgi question to a perl newsgroup...

Try one of the comp.infosystems.www.* newsgroups.

dha

-- 
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
Beware of bugs in the above code; I have only proved it correct, not
tried it.
      - Donald Knuth


------------------------------

Date: Tue, 12 Sep 2000 21:43:54 +0100
From: "Tigz" <tigz@ntlworld.com>
Subject: Re: Newbie to CGI
Message-Id: <yAwv5.11960$Xe4.182153@news6-win.server.ntlworld.com>

Well I am sorry David!, I if you have read the subject line you will have
reilized that it says "Newbie to CGI". Now that to me, seems a good enough
explanation as to why it has been posted in the wrong newsgroup!!!
You see i dont know all this stuff, like as it says in the subject, i am a
newbe to cgi, all i know is that they are 2 programming languages.

Byeeeee,
Mick

>
> Yep.  You're posting a cgi question to a perl newsgroup...
>
> Try one of the comp.infosystems.www.* newsgroups.
>
> dha
>
> --
> David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
> Beware of bugs in the above code; I have only proved it correct, not
> tried it.
>       - Donald Knuth




------------------------------

Date: Tue, 12 Sep 2000 21:01:13 GMT
From: rbfitzpa@my-deja.com
Subject: Re: Newbie to CGI
Message-Id: <8pm5ib$fb0$1@nnrp1.deja.com>

Configure your webserver to allow SSI and .shtml extensions.

In article <Eiuv5.12124$8r4.149004@news2-win.server.ntlworld.com>,
  "Tigz" <tigz@ntlworld.com> wrote:
> HI, I'm totally new to CGI, I have got a few cgi applications working,
but i
> cant seem to get a counter working.
> When i call the counter useing ssi i get the following message:
> "[an error occurred while processing this directive] "
> could someone please explane to me what i am doing wrong.
>
> Thankx
> Mick,
>
> Please bare in mind that I only started experementing with cgi
yesderday!
>
>


Sent via Deja.com http://www.deja.com/
Before you buy.


------------------------------

Date: Tue, 12 Sep 2000 19:21:29 +0100
From: Geoff Soper <g.soper@soundhouse.co.uk>
Subject: Passing hashes to a function
Message-Id: <49fcfeca34g.soper@soundhouse.co.uk>

I'm having problem with passing two hases to a function. I'm not sure if
I'm going about it correctly. The line in question is:

    print_edit_form("ammend",%mod_users,%old_users); 

Which is line 25 of http://www.soundhouse.co.uk/cgi-bin/2.cgi which can
also be found at http://www.soundhouse.co.uk/geoff/ for your examination
along with the datbase file. Basically I don't think the 2nd hash in the
argument is being passed to the function. Could someone point me in the
right direction?

Thanks in anticipation as ever!

-- 
Geoff Soper
g.soper@soundhouse.co.uk
Take a look at the Soundhouse page http://www.soundhouse.co.uk/


------------------------------

Date: 12 Sep 2000 11:33:34 -0800
From: yf110@vtn1.victoria.tc.ca (Malcolm Dew-Jones)
Subject: Re: Passing hashes to a function
Message-Id: <39be76fe@news.victoria.tc.ca>

Geoff Soper (g.soper@soundhouse.co.uk) wrote:
: I'm having problem with passing two hases to a function. I'm not sure if
: I'm going about it correctly. The line in question is:

:     print_edit_form("ammend",%mod_users,%old_users); 

: Which is line 25 of http://www.soundhouse.co.uk/cgi-bin/2.cgi which can
: also be found at http://www.soundhouse.co.uk/geoff/ for your examination
: along with the datbase file. Basically I don't think the 2nd hash in the
: argument is being passed to the function. Could someone point me in the
: right direction?

: Thanks in anticipation as ever!

recommended reading

	perldoc perlsub		(DESCRIPTION para. 2)
and
	perldoc perlref


You need to use something like
     print_edit_form("ammend",\%mod_users,\%old_users); 
(note the \'s)

and then inside the function the hashes must use the $hash-> notation
(sometimes you might have to add braces as well as adding a -> ) 



------------------------------

Date: 12 Sep 2000 19:14:25 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Passing hashes to a function
Message-Id: <8plvah$mcc$2@nntp9.atl.mindspring.net>

Geoff Soper (g.soper@soundhouse.co.uk) wrote:
: I'm having problem with passing two hases to a function. I'm not sure if
: I'm going about it correctly. The line in question is:
: 
:     print_edit_form("ammend",%mod_users,%old_users); 

You need to take a look at perlsub, which will probably result in you 
then taking a look at perlref.  When you pass a hash as an argument to a 
subroutine, it gets "flattened" into a list of key/value pairs which are 
simply added to the subroutine's argument list.  If you pass more than 
one hash, there's no way for the subroutine to tell where the first 
hash's list of pairs ends and the second one's begins.  The normal way 
around this is to pass references to hashes instead.



------------------------------

Date: Tue, 12 Sep 2000 13:02:56 -0700
From: Tim Conrow <tim@ipac.caltech.edu>
Subject: Re: Passing hashes to a function
Message-Id: <39BE8BF0.34E72308@ipac.caltech.edu>

Geoff Soper wrote:
> 
> I'm having problem with passing two hases to a function. I'm not sure if
> I'm going about it correctly. The line in question is:
> 
>     print_edit_form("ammend",%mod_users,%old_users);
> 
> Which is line 25 of http://www.soundhouse.co.uk/cgi-bin/2.cgi which can
> also be found at http://www.soundhouse.co.uk/geoff/ for your examination
> along with the datbase file. Basically I don't think the 2nd hash in the
> argument is being passed to the function. Could someone point me in the
> right direction?

I'm not familiar with print_edit_form. Is it part of CGI.pm or custom code?
Unless it's prototyped something like ($\%;\%) the two hashes will be elided
into one in the sub. Could you be misunderstanding the code? Look again and post
code snippets if you're still confused. The code I saw had only one hash in the
call.

If print_edit_form is modifiable and you really need it to receive two separate
hashes, arrange for it to receive refs to hashes either by passing them as
'\%hash' or through a prototype.

--

-- Tim Conrow         tim@ipac.caltech.edu                           |


------------------------------

Date: Tue, 12 Sep 2000 21:33:46 GMT
From: tltt@my-deja.com
Subject: Re: Perl 5.6.0 bug ? GEN33 opened only for output
Message-Id: <8pm7fp$hl6$1@nnrp1.deja.com>

"Joe Pepin" <joepepin@att.com> wrote:
> I have a Perl 5.6.0 script that runs as a daemon on a machine that has
few
> available file descriptors.  To gain a few descriptors, I close STDIN
and
> STDOUT (I don't need them).  However, when I open a new FileHandle as
in:
>
> my $fh = new FileHandle("file.txt", "r") or die "can't open file.txt:
$!";
>
> and it happens that fileno($fh) == 1, I get the following on every
> $fh->getline:
>
> Filehandle Symbol::GEN33 opened only for output at
> /usr/local/lib/perl5/5.6.0/sun4-solaris/IO/Handle.pm line 391.
> Filehandle Symbol::GEN33 opened only for output at
> /usr/local/lib/perl5/5.6.0/sun4-solaris/IO/Handle.pm line 391, <GEN33>
line
> 1.
>
> and so forth. The getline's read as they should. It looks like
IO::Handle
> still thinks that file descriptor 1 is STDOUT and is only open for
output.
>


I cannot recreate your problem here:
$ perl -v
This is perl, v5.6.0 built for i686-linux

-- snip --
$ cat testit
#!/usr/local/bin/perl -w
use strict;
use FileHandle;

close(STDOUT);
my $fh = new FileHandle("file.txt", "r") or die "cannot open file: $!";
close(STDIN);

$fh->getline;

print STDERR fileno($fh),"\n";

# End of testit

$ ./testit
1
$

I am closing STDOUT and STDIN in a manner that makes fileno($fh) == 1,
and am not getting any warnings. Are you sure you are doing only what
you posted and nothing else?

hth

tltt


Sent via Deja.com http://www.deja.com/
Before you buy.


------------------------------

Date: Tue, 12 Sep 2000 19:04:05 GMT
From: tltt@my-deja.com
Subject: Re: Perl and System Environment Variables
Message-Id: <8pluml$6ap$1@nnrp1.deja.com>

lim_k@my-deja.com wrote:
>
> Pass them to the cron'ed account.  Given that the cron'ed
> process is running under no environment variables.
>

This still doesn't make a lot of sense (to me at least). From what I can
gather you have a program that gets started by cron. This program does
not have the environment you want. Am I right so far?

You don't mention what the Perl program does and where/when it gets
executed - my guess is that you want to run a Perl program (from cron as
well?) that somehow passes variables to the other program (that gets
executed by cron).

Assuming that your only problem is how to get the program that gets
started by cron to inherit the right environment you can do the
following:
1. In your crontab, instead of kicking off the program itself, start a
wrapper script, e.g. $HOME/bin/wrapper
Your crontab will therefore look like:
X X X X X $HOME/bin/wrapper

2. In your wrapper script set the environment variables you want, and
then start the program. The script $HOME/bin/wrapper will therefore look
like:
#!/bin/sh
 . $HOME/.profile
<full path of program you run now from cron>

(assuming that you want your program to have the same environment that
you have when you log on, and that .profile is your login script - it
may a different name like .bash_profile)

OR
#!/bin/sh
PATH=/bin:/usr/bin...
export PATH
<other variable>=value
export <other variable>
etc.
<full path of program you run now from cron>

OR (to make it vaguely Perl related)
#!/usr/bin/perl -w
$ENV{"PATH"}="/bin:/usr/bin:...";
$ENV{"<other variable>"}="<value of other variable>";
etc.
system("full path of program you run from cron");

hth

tltt


Sent via Deja.com http://www.deja.com/
Before you buy.


------------------------------

Date: Tue, 12 Sep 2000 12:33:29 -0700
From: Tim Conrow <tim@ipac.caltech.edu>
Subject: Re: Perl substraction weird result
Message-Id: <39BE8509.70BCA75F@ipac.caltech.edu>

> > >% perl -e 'print(30.4 - 30 . "\n")'
> > >0.399999999999999
> > >
> > >Does anybody know why the result is NOT 0.4 ?
> >
> > It's because _computers_ think in binary, so fractions have to be
> > represented as _binary_ fractions, and most of them wind up as
> > _approximations_ of their decimal value. 0.4 cannot be properly
> > expressed as a sum of inverse powers of two
>
> This C code work fine:
>
> void main(void){
> float a=30.4;
> float b=30;
>
> printf("%f\n", a-b);
> }
>
> So, is possible to represent 0.4 numbers. C do.

Just in case all the other messages hadn't made it clear: That code works fine
in perl too.

% perl -we 'printf "%f\n",30.4-30'
0.400000

--

-- Tim Conrow         tim@ipac.caltech.edu                           |


------------------------------

Date: Tue, 12 Sep 2000 20:26:33 GMT
From: rathmore@tierceron.com
Subject: Perl vs. Java or C++
Message-Id: <8pm3gv$clj$1@nnrp1.deja.com>

I'm at an important decision in my career. I need to decide where to
focus my learning as far as languages go. I took 2 years of C++ in
college, and have been doing a little studying in Java on my own time.
Recently, a project came up that screamed of Perl so I learned enough
Perl to do this project (about 75% complete with it anyway).

My question is, should I continue to learn Perl? Is the demand for Perl
programmers high? Higher than Java or C++? What types of projects could
a good Perl program look forward to working on, vs. those for Java or
C++ programmers?

If you have an opinion on this and wouldn't mind sharing, I'd love to
read what everyone thinks.



Sent via Deja.com http://www.deja.com/
Before you buy.


------------------------------

Date: Tue, 12 Sep 2000 20:34:10 GMT
From: Ala Qumsieh <aqumsieh@hyperchip.com>
Subject: Re: Please help me with my shotty code...
Message-Id: <7a1yypqri5.fsf@merlin.hyperchip.com>


Ethan Post <epost1@my-deja.com> writes:

Here are a few pointers for your code:

> open(METRIC, @ARGV[0]);

@ARGV[0] is a list of one element that happens to be the first element
of @ARGV. It is NOT the first element of @ARGV. Check out perlfaq4:

	What is the difference between $array[1] and @array[1]?

	open METRIC, $ARGV[0] or die $!;

>    while (<METRIC>)  {
> 
>       ($ival, $utim, $nam) = split(/\|/);
>       $nam == chop $nam;

What is this supposed to do? == is a comparison operator, not an
assignment operator. And, chop() returns the last character chopped,
which most probably is a newline.

Just change this to:

	chomp $nam;

or better still, why don't you chomp() the line just after you read it,
and before the split()?

>       if ($nam eq @ARGV[1]) {

Again, @ARGV[1] is a list of one element. It is not a scalar. Use
$ARGV[1] instead.

>          print($ival,"\r\n","0","\r\n",$utim,"\r\n", $nam,"\r\n");

You don't need the \r's.

> 
>       }
> 
>    }
> 
> close(METRIC);

	close METRIC or warn $!;

--Ala


------------------------------

Date: Tue, 12 Sep 2000 21:38:30 GMT
From: Roger Rasmussen <rrasmussen@paragen.com>
Subject: Problem getting unix "jobs" output with backticks
Message-Id: <39BEA355.3B02D8F8@paragen.com>

This is a multi-part message in MIME format.
--------------FDAD7FB439B720453238B83B
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Hello,

I'm trying to get Unix job information using backticks, but it's not
working.

Basically in my code I do:

my $jobstuff = `jobs -l`;
print "$jobstuff\n";

For some reason $jobstuff is always empty, even when there are
background jobs running. If I enter 'jobs -l' at the command line under
this same terminal, it returns results.

If I put another command in the backticks like ls or who I get the
expected results. Any idea why jobs isn't working for me?

Roger

--------------FDAD7FB439B720453238B83B
Content-Type: text/x-vcard; charset=us-ascii;
 name="rrasmussen.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Roger Rasmussen
Content-Disposition: attachment;
 filename="rrasmussen.vcf"

begin:vcard 
n:Rasmussen;Roger
x-mozilla-html:TRUE
adr;dom;quoted-printable:;;104 Alexander Drive=0D=0AP.O. Box 14528;Research Triangle Park;NC;27709-4528;
org:Paradigm Genetics
version:2.1
email;internet:rrasmussen@paragen.com
title:Software Engineer
tel;fax:(919) 544-8094
tel;home:(919) 832-5951
tel;work:(919) 425-3029
x-mozilla-cpt:;0
fn:Roger Rasmussen
end:vcard

--------------FDAD7FB439B720453238B83B--



------------------------------

Date: 12 Sep 2000 16:49:09 -0500
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: Problem getting unix "jobs" output with backticks
Message-Id: <878zsxl1re.fsf@limey.hpcc.uh.edu>

>> On Tue, 12 Sep 2000 21:38:30 GMT,
>> Roger Rasmussen <rrasmussen@paragen.com> said:

> This is a multi-part message in MIME format.
> --------------FDAD7FB439B720453238B83B Content-Type:
> text/plain; charset=us-ascii Content-Transfer-Encoding:
> 7bit

Please just post plain text!

> I'm trying to get Unix job information using backticks,
> but it's not working.

> Basically in my code I do:
> my $jobstuff = `jobs -l`; print "$jobstuff\n";

> For some reason $jobstuff is always empty, even when
> there are background jobs running. If I enter 'jobs -l'
> at the command line under this same terminal, it returns
> results.

You're getting an empty return because there are no jobs
running in the shell used to execute the sub-process:
"jobs" is running in a different (child) process of the
perl program.  What you see when you type "jobs" at the
prompt is a list of background processes for that login
shell process.

"The same terminal" is spurious here, it's which process
and which shell that counts.

hth
t
-- 
WWNKD?


------------------------------

Date: Tue, 12 Sep 2000 18:10:43 GMT
From: pratima@my-deja.com
Subject: problem with hashes
Message-Id: <8plrih$2fd$1@nnrp1.deja.com>

how do i delete a particular key from a hash


Sent via Deja.com http://www.deja.com/
Before you buy.


------------------------------

Date: Tue, 12 Sep 2000 11:48:57 -0700
From: "Christopher M. Jones" <christopher_j@uswest.net>
Subject: Re: problem with hashes
Message-Id: <nUuv5.269$Xt4.221419@news.uswest.net>


<pratima@my-deja.com> wrote:
> how do i delete a particular key from a hash


Sometimes ya gotta wonder about these self answering questions.


Have you tried 'delete{'key'}' yet?




------------------------------

Date: 12 Sep 2000 18:50:33 GMT
From: Tina Mueller <tina@streetmail.com>
Subject: Re: problem with hashes
Message-Id: <8pltto$d8he6$2@ID-24002.news.cis.dfn.de>

hi,
In comp.lang.perl.misc pratima@my-deja.com wrote:
> how do i delete a particular key from a hash

wow, another self answering question...
see perldoc perlfunc, there are all built in
functions listed alphabetically and thematically.
then search for ..... yeah, "delete"

tina

-- 
http://tinita.de    \  enter__| |__the___ _ _ ___
tina's moviedatabase \     / _` / _ \/ _ \ '_(_-< of
search & add comments \    \__,_\___/\___/_| /__/ perception
please don't email unless offtopic or followup is set. thanx


------------------------------

Date: 12 Sep 2000 19:10:19 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: problem with hashes
Message-Id: <8plv2r$mcc$1@nntp9.atl.mindspring.net>

pratima@my-deja.com wrote:
: how do i delete a particular key from a hash

<rant> I'm trying to understand the mental paralysis that causes people
(I'm not singling you out, this happens several times a day) to post
questions like this without doing even a minimal amount of research.  Did
it even occur to you to guess at what a function to delete a key from a
hash might be called and then check the documentation to see if there is
such a function and if so, whether it does what you want?  If you had done
that, you'd have found the answer to your question *right away*. 

In the last two days alone, we've had people asking if there's a function 
to find the length of a string, and if there's a function to rename a 
file.  In both cases, the obvious guess as to what the function would be 
called is the correct one.  It would be one thing if someone wanted to 
know the name of a function to delete a *file*; it wouldn't be 
immediately obvious to someone not versed in Unix programming that the 
function is named "unlink."  But "what's the name of the function to 
delete a hash key?," "what's the name of the function to find the length 
of a string?," and "what's the name of the function to rename a file?" 
all fall into the same general pattern as "who's buried in Grant's 
tomb?": the obvious answer is the correct one.

These are *not* the kinds of questions where you need a certain level of
Perl knowledge just to be able to find out where the answer is; it's
understandable that a beginner could get stuck on the latter type of
question, and while a *very few* people here will respond to such a
question with an ugly display of nerdismo, the vast majority of regulars
here will happily point someone in the right direction.  But something
else has to be going on when someone is either unwilling or unable to even
*try* looking up the answer in the most obvious places.  What is it?  Were
you aware that any Perl installation comes with a listing of functions? 
If so, have you ever, just out of curiosity, looked at it (I'm not talking
about reading the whole thing, just about seeing how it's organized)?  If
so, why didn't it occur to you that it would be a good place to look if
you wanted to know the name of a function?  I'd really like to know what's
going on here; once again, you are by no means the only person who has
come here with "self-answering questions," and it really is a puzzle as to
why this happens so frequently. </rant>



------------------------------

Date: Tue, 12 Sep 2000 20:19:34 GMT
From: mnelsen@nc.rr.com (Mike Nelsen)
Subject: Re: Prune doesn't work in find
Message-Id: <39be8dbf.78951087@news-server>

On 12 Sep 2000 13:36:21 +0100, brianr@liffe.com wrote:

>mnelsen@nc.rr.com (Mike Nelsen) writes:
>
>> Don't want to search in sub-directories if a -nosub option. I couldn't
>> get the File::Find::prune=1 to work. It didn't give me any files in
>> the starting directory just the directory itself. Here's the simple
>> example that should just display the files in $sourceDir and no
>> sub-directories below:
>> 
>> find(\&wanted, $sourceDir);
>> 
>> #********************************************************
>> sub wanted 
>> {
>> $sourcePath = $File::Find::dir;
>> print "$sourcePath\\$_\n";
>> if ($opt_nosub) {
>> $File::Find::prune=1;
>> }
>> }
>
>sub wanted {
>    print "$File::Find::name\n";
>    $File::Find::prune=1 if -d && $opt_nosub;
>}
>
>Should work
Unfortunately, it doesn't. The -d doesn't really make any difference.

>
>-- 
>Brian Raven
>
>Yes, we have consensus that we need 64 bit support.  :-)
>             -- Larry Wall in <199710291922.LAA07101@wall.org>



------------------------------

Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin) 
Subject: Digest Administrivia (Last modified: 16 Sep 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.  

| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.

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.

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 4302
**************************************


home help back first fref pref prev next nref lref last post