[11392] in Perl-Users-Digest
Perl-Users Digest, Issue: 4991 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Feb 26 16:17:39 1999
Date: Fri, 26 Feb 99 13:08:26 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 26 Feb 1999 Volume: 8 Number: 4991
Today's topics:
Perl & ADO <maw@markaw.demon.co.uk>
Re: Perl & ADO <matthew.sergeant@eml.ericsson.se>
Re: Perl & anonym surfing <jens@adwave.de>
Re: Perl 'zine <lamb@huntsville.sparta.com>
Perl 5.005_2 + Cygwin32 B20.1 : "target pattern contai (Sibastien Barri)
perl and personal web server <ddufour@royaume.com>
Re: perl and personal web server <gsx97@usa.net>
Re: perl and personal web server dturley@pobox.com
Perl e-mail reader-->fax (Bob Langdon)
Re: Perl evangelism VicodinES@interrod.com
Re: Perl evangelism VicodinES@interrod.com
Re: Perl for Beginners? <camerond@mail.uca.edu>
Re: PERL for Personal Web Server (Steven Grigsby)
Re: PERL for Personal Web Server <gsx97@usa.net>
Re: PERL for Personal Web Server johnsteele@my-dejanews.com
Re: PERL for Personal Web Server (Bill Moseley)
Re: PERL for Personal Web Server <gellyfish@btinternet.com>
Perl for Win32 Question: traversing directory trees rolm@my-dejanews.com
Re: Perl for Win32 Question: traversing directory trees <jglascoe@giss.nasa.gov>
perl form and Netscape 4.5 problem? (Bill Bukowski)
Re: perl form and Netscape 4.5 problem? dturley@pobox.com
Re: perl form and Netscape 4.5 problem? (Bill Bukowski)
Re: perl form and Netscape 4.5 problem? (Clay Irving)
Re: Perl interpreter for Win95? <ludlow@us.ibm.com>
Re: perl ldap problem HELP please <shaven.monkey@throw.me.the.banana.first>
Perl modules MD5 on DEC lapha running windows NT (Arun Kumar)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 25 Feb 1999 18:05:24 +0100
From: "MAW" <maw@markaw.demon.co.uk>
Subject: Perl & ADO
Message-Id: <919962154.20020.0.nnrp-03.c2deffc1@news.demon.co.uk>
Hi there,
I am new to all this Perl - infact about 8 hours, but things appear to be
going OK so far, I can read files, alter files, append to files etc....
Ayway, that's not the point of this message. I am trying to use Perl with
ADODB to either/or an MS SQL Server/MS Access Database.
So far I have been successfully able to SELECT data, run MS Access
predefined queries etc... However, I can not work out how I can insert data.
Given that I have an open Connection object and that the SQL String I am
trying to execute is:
"INSERT INTO tbl_Main (data1, data2, data3) VALUES ("d1", "d2", "d3", d4");"
How do I parse this through Perl. unfortunately, I am trying to learn two
things at once here very quickly ;-)
Presumably there is some ADO object which I have to declare and assign the
value of my SQL String to and then I execute it. However, I have been
digging around in the books and appear to be banging my head against a brick
wall; and it's beginning to hurt ! If someone could let me know the exact
syntax (by example) I would be really appreciative.
BTW, I know someone is bound to say I should have posted this to an MS
newsgroup. However, you know what a large number of MS people are like - the
very mention of Perl - or anything Unix-like sends them in a panic and they
say go and post it to the Perl group. "Chicken and egg situation I guess".
Thanks in advance for your help,
Mark A. Williams
Microsoft Certified Professional
------------------------------
Date: Fri, 26 Feb 1999 12:01:35 +0000
From: Matt Sergeant <matthew.sergeant@eml.ericsson.se>
Subject: Re: Perl & ADO
Message-Id: <36D68D1F.EE37EED4@eml.ericsson.se>
MAW wrote:
>
> Given that I have an open Connection object and that the SQL String I am
> trying to execute is:
>
> "INSERT INTO tbl_Main (data1, data2, data3) VALUES ("d1", "d2", "d3", d4");"
"INSERT INTO tbl_Main (data1, data2, data3) VALUES ('d1', 'd2', 'd3',
'd4')"
Single quotes around strings in SQL, and you forgot a quote before d4.
And no need for the semi-colon.
--
<Matt email="msergeant@ndirect.co.uk" />
| Fastnet Software Ltd | Perl in Active Server Pages |
| Perl Consultancy, Web Development | Database Design | XML |
| http://come.to/fastnet | Information Consolidation |
------------------------------
Date: Sun, 21 Feb 1999 23:53:56 +0100
From: Jens Schumann <jens@adwave.de>
Subject: Re: Perl & anonym surfing
Message-Id: <36D08E83.526A209@adwave.de>
Hi Susan,
I'm working on that kind of problem (changes HTML-Code) and it is it is
really easy to change all the normal HTML-Pages and dealing with
different headers and additional information (browsertype etc).
But in case of javascript it is hard to find a general solution dealing
with "unknown code".
I have decided to programm for every new page a Javascript handler ( now
74) and I do this only for our PartnerPages.
You can get some help from me directly, but my HTML-handler is to
important for me to send it to you.
And be sure: With Perl you can get a working function, if you have only
limited ressources (like RAM and CPU) you have to write this function
in C or better ...
Jens
Susan schrieb:
> Hi!
>
> I'm willing to offer a free anonymous surfing service, but I can not
> perl.
> So could you please help me?
>
> This code shows the code of a web-page:
>
> #!/usr/local/bin/perl
> use LWP::Simple;
> $code=get $ARGV[0];
> print "Content-type: text/html\n\n";
> print $code;
>
> Now I need your help:
> 1) The Content-type must depend on the type of the requested file.
> 2) All 'HREF' and 'SRC' parameters must be changed to:
> http://my_cgi_url?[absolute URL]
> 3) All href mailto:
> http://my_mailto_cgi?[somebody@somewhere.com]
> 4) <TITLE>...</TITLE> must be changed to:
> <TITLE>Anonym:...</TITLE>
>
> And somethin other you find out...
>
> If you can help me, please contact me via e-mail!
> Thanks in advance :-)
>
> - Susan -
> botta@workmail.com
------------------------------
Date: Tue, 23 Feb 1999 16:26:27 -0600
From: Patrick Lamb <lamb@huntsville.sparta.com>
Subject: Re: Perl 'zine
Message-Id: <36D32B13.6EEEC8D6@huntsville.sparta.com>
I can see that you would want to go glossy; just PLEASE don't use that
soy-based ink that Linux Journal has plagued us with the last couple of
issues. After ten minutes of reading, I have to go wash my hands or it
will look like the dog walked all over the thing. Not professional.
Jon Orwant wrote:
> TPJ is going glossy so that it can publish more issues per year.
>
> Glossy => advertisers *= 2 => money => production staff => more time for Jon
> => more issues per year.
>
> The next issue will be glossy, but it will still have the same look
> and feel as the old TPJ. Well, actually it'll have a *smoother* feel,
> but you know what I mean :-) It's the same page layout and production
> process -- I'm just using a different printer and different paper.
>
> The paper will be lighter, too -- important because TPJ #12 was so
> thick and heavy that TPJ lost money on Australian and New Zealand
> subscriptions.
>
> -Jon
>
> ------------------------------------
> Jon Orwant http://tpj.com
> Editor & Publisher, The Perl Journal
--
Alcohol and calculus don't mix. Never drink and derive.
Patrick Lamb, Ph.D. lamb@huntsville.sparta.com
------------------------------
Date: Wed, 24 Feb 1999 10:50:39 GMT
From: Sebastien.Barre@utc.fr (Sibastien Barri)
Subject: Perl 5.005_2 + Cygwin32 B20.1 : "target pattern contains no `%'" ?
Message-Id: <36d6d977.8440286@news.club-internet.fr>
Hi
I'm looking for anyone who succeed in building Perl 5.005_02 for
Cygwin32 B20.1 (http://sourceware.cygnus.com/cygwin/)
I'm experiencing some pb, actually it failed near the end on :
Making x2p stuff
GNUmakefile:156: *** target pattern contains no `%'. Stop.
make: *** [translators] Error 2
I looked at GNUmakefile :
translators: miniperl lib/Config.pm FORCE
@echo " "; echo " Making x2p stuff"; cd x2p; $(LDLIBPTH)
$(MAKE) all
then in x2p/GNUmakefile, the line 156 is in the dependencies section
([...]
are lines that I removed) :
# AUTOMATICALLY GENERATED MAKE DEPENDENCIES--PUT NOTHING BELOW THIS LINE
[...]
walk.o: util.h
../config.h: Bletch: How does this C preprocessor catenate tokens?
a2p.h: str.h
[...]
# WARNING: Put nothing here or make depend will gobble it up!
the line 156 is the one related to ../config.h. Another C preprocessor
pb. Argh
Any clues ?
Thanks
--
Sebastien Barre : http://www.hds.utc.fr/~barre/
------------------------------
Date: Wed, 24 Feb 1999 22:35:39 -0500
From: Daniel Dufour <ddufour@royaume.com>
Subject: perl and personal web server
Message-Id: <36D4C50B.E9479310@royaume.com>
Hi,
I've done a succesfull installation of Active Perl on win98 but the
final result is that scripts fine well from a dos windows but never
execute on my browser like http://mycomputer/cgi-bin/test.pl (expiration
delay of execution)
my PWS works well
my cgi-bin is executable
I add an entry on the win98 registry ( .pl "c:\perl\bin\perl.exe")
I'm now crazy.......help please....
Daniel
------------------------------
Date: Thu, 25 Feb 1999 09:56:11 -0500
From: "J. Parsons" <gsx97@usa.net>
Subject: Re: perl and personal web server
Message-Id: <7b3oa9$lj4@news1.snet.net>
That registry entry should read "c:\perl\bin\perl.exe %s%s"
There's a great article on setting this up at:
http://www.dynamicnet.net/support/fp/perlwithPWS.htm
Of course, anything you do is subject to the instability and
unpredictability of any Micro$oft product!
God luck.
>I've done a succesfull installation of Active Perl on win98 but the
>final result is that scripts fine well from a dos windows but never
>execute on my browser like http://mycomputer/cgi-bin/test.pl (expiration
>delay of execution)
>
>my PWS works well
>my cgi-bin is executable
>I add an entry on the win98 registry ( .pl "c:\perl\bin\perl.exe")
------------------------------
Date: Thu, 25 Feb 1999 20:01:37 GMT
From: dturley@pobox.com
Subject: Re: perl and personal web server
Message-Id: <7b4a6q$f0t$1@nnrp1.dejanews.com>
In article <7b3oa9$lj4@news1.snet.net>,
"J. Parsons" <gsx97@usa.net> wrote:
> Of course, anything you do is subject to the instability and
> unpredictability of any Micro$oft product!
Exactly. One can but wonder why people insist on IIS when win32 Apache can be
set up in less than 5 minutes. And, for those who might reply that IIS is
less beta than Apache: Since the original poster was using Win98, I assume the
web server was to be used locally, so IIS because even less necessary.
(we won't even get into whether or not NT ever really left beta :-)
> God luck.
>
> >I've done a succesfull installation of Active Perl on win98 but the
> >final result is that scripts fine well from a dos windows but never
> >execute on my browser like http://mycomputer/cgi-bin/test.pl (expiration
> >delay of execution)
>
--
____________________________________
David Turley
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 23 Feb 1999 08:53:06 -0400
From: bingdo19@earthlink.net (Bob Langdon)
Subject: Perl e-mail reader-->fax
Message-Id: <bingdo19-ya02408000R2302990853060001@news.alt.net>
Hi,
I'm building a local site to attract downtowm workers and vendors. I'd
especially like to provide a servic, where downtown
workers can order lunch online.
Since most local delis and restaurants don't have online access int heir
places of business, I'd like to be able to offer e-mail lunch
orders, ported from email to fax.
Using Libwww-perl, Is it possible to author a script in Perl (specifically
MacPerl, but that shouldn't matter) that will check my mail, then based
upon
the subject line, "Print to fax" a lunch order choosing the fax number from
a database based upon the e-mail subject line?
Comments? Suggestions? Maybe have to supplement MacPerl with apple sript?
Thanks for any input,
Bob Langdon
syracusedowntown.com/
--
+++++++++++++++++++++++++++++++++++++++++++++++++++++
Bob Langdon
webmaster@retailernews.com
http://RetailerNews.com
_Retailer News Online_ Magazine -- for retail
business owners, managers, and salespeople.
--brought to you by:
Dealer Support Services
--website design and maintenance
++++++++++++++++++++++++++++++++++++++++++++++++++++
------------------------------
Date: Wed, 24 Feb 1999 13:35:04 -0800
From: VicodinES@interrod.com
Subject: Re: Perl evangelism
Message-Id: <MPG.113e1060cd2132739896a0@news.cybernautics.com>
Hi Sam,
Beyond www.ask.com's coolness, I believe that's their 'url for the
future' moving forward into the 21st... It's possible that aj.com and
askjeeves.com will be phased out. So when you're cleaning up those
bookmarks... Just FYI.
Cheers,
Patti
In article <MPG.1137456c173309ca9896e2@news.sonic.net>,
samc@empirewest.com articulates that...
> Looking for less typing? try www.aj.com for www.askjeeves.com or
> www.ask.com (although I agree with ask.com's coolness).
>
> Altavista fan? www.av.com resolves to www.altavista.com
>
> As for altavista containing the database, I would imagine that they would
> simply query askjeeves databases in the background, not replicate the
> database.
>
> my $0.02
>
> -Sam
>
> In article <m1emnm4bjz.fsf@halfdome.holdit.com>, merlyn@stonehenge.com
> says...
> > >>>>> "VicodinES" == VicodinES /CB /TNN <jsteinberger@usweb.com> writes:
> >
> > VicodinES> Just thought I'd point out that Ask Jeeves is now
> > VicodinES> http://www.ask.com - they got that cool new domain name. I
> > VicodinES> think the old url will still work for some time, but the
> > VicodinES> new one's a keeper plus it's less typing and more
> > VicodinES> memorable.
> >
> > And don't ask me how I know this, but the entire Ask Jeeves database
> > is built in to www.altavista.com, providing a uniform interface to
> > both smart answers and index answers. (And Altavista runs it on
> > dozens of distributed machines, not the few that the www.ask.com
> > runs.)
> >
> >
------------------------------
Date: Wed, 24 Feb 1999 13:41:25 -0800
From: VicodinES@interrod.com
Subject: Re: Perl evangelism
Message-Id: <MPG.113e11e5329fb4ce9896a1@news.cybernautics.com>
Hi Randal and Sam,
I have a factoid that is relevant to this conversation, read it on ZDNet
if I remember right.
www.ask.com licensed their backend to Alta Vista (also Dell Computers and
WebTV, I believe). That's why you have the 'ask a question in plain
english' format on Alta Vista now.
Cheers,
Patti
In article <m13e423znv.fsf@halfdome.holdit.com>, merlyn@stonehenge.com
articulates that...
> >>>>> "Sam" == Sam Curren <samc@empirewest.com> writes:
>
> Sam> As for altavista containing the database, I would imagine that
> Sam> they would simply query askjeeves databases in the background,
> Sam> not replicate the database.
>
> Again, I can't tell you how I know, but you're wrong. :-) The AV
> interface has a much better performance, and therefore it couldn't
> simply be accessing the same database that the AJ interface provides.
>
>
------------------------------
Date: Sun, 21 Feb 1999 15:12:06 -0600
From: Cameron Dorey <camerond@mail.uca.edu>
Subject: Re: Perl for Beginners?
Message-Id: <36D076A6.D5309DA2@mail.uca.edu>
Dana Booth wrote:
>
> In article <7anvlj$9qg$1@news.atsugi.attmil.ne.jp>,
> reeves@ata.attmil.ne.jp says...
> > I am working towards my MCSE certification and I have run across several
> > references to the language called Perl. I downloaded Active perl from Active
> > state and I have no clue as to how it works. I'm really new to programming
> > lanuages, [further snipped]
>
> The best book you could get is called "Programming Perl", it's an
> O'Reilly book.
Yes, it's a very good book, but if s/he is truly new to programming,
then I would suggest "Learning Perl on Win32 Systems," the tutorial
based on "Learning Perl", but adapted for those of us who (for whatever
reason) use M$ Windows. This is also published by O'Reilly, and I find
that even now, I refer to it more than the Camel. You can't go wrong
with one of the O'Reilly Perl books, which is much more than I can say
for a number of the others out there. (Yes, there are some other good
ones, just don't walk up to the "Computer" shelves in a bookstore and
grab one at random, especially one with "Dummies" or some arbitrary time
limit in the name, IMHO). Check out
http://reference.perl.com/query.cgi?books.
Sitting here now with 7 ORA books in front of me, and an 8th whenever I
can get to the bookstore to get Perl in a Nutshell.
Cameron
------------------------------
Date: Sun, 21 Feb 1999 23:37:46 GMT
From: midsoft@intrepid.net (Steven Grigsby)
Subject: Re: PERL for Personal Web Server
Message-Id: <36d09701.1296406@news.intrepid.net>
After three days of tweaking registries, installing and reinstalling
Perl 5.009 from Activeware, and trying to get even one perl script to
execute from a browser I have come to the conclusion that it can't be
done. I am using Front Page, Windows 98, PWS 4.0, and ActivePerl
5.009.
My checklist included the following, all done:
Properly set registry entries for .pl, .cgi, and .plx files.
Associated Explorer file associates to run Perl with .pl files.
Made cgi-bin and c:\perl\bin available as virtual directories to
Personal Web Server.
The final result is though Perl scripts run fine from a DOS window,
they would never execute in the browser, such as
http://myweb/cgi-bin/test.pl.
Sounds like the Apache 32 port might work better instead of PWS.
- Steve Grigsby
On Wed, 10 Feb 1999 13:19:18 -0800, Mangesh Sangapu
<sangapum@hotmail.com> wrote:
>okay.. i'm trying to figure out how to use PERL on the Microsoft
>Personal Web Server which came with my Win98 CD.
>
>i've downloaded ActiveState's Perl for Win95/NT.. and i've downloaded
>perl5_00402-bindist04-bc.zip... all i want to know is how do i actually
>use it.. setups/configurations.. etc..
>
>all the faq's i read seem to have a lot about PERL itself, but i haven't
>seen much about actually running it on win95/98
>
>i know you type in perl whatever.pl to test a script, but how would i
>run it on my Personal Web Server... and what are all the security
>hassles i may encounter...
>
>basically, does anyone know a good page for PERL-newbies that will
>explain to me in SIMPLE ENGLISH what i described above.
>
>thanks a bunch.
>mangesh
------------------------------
Date: Mon, 22 Feb 1999 11:54:17 -0500
From: "J. Parsons" <gsx97@usa.net>
Subject: Re: PERL for Personal Web Server
Message-Id: <7as24c$o97@news1.snet.net>
I was able to setup mine in minutes. You may want to be certain that you
have set scripts in the cgi-bin to execute.
Other than that, Micro$oft has hundreds of newsgroups on all of their
products, including PWS and IIS. You'll get better help there as I can
safely assure you that you don't have a Perl problem.
Good luck to you.
JP
Steven Grigsby wrote in message <36d09701.1296406@news.intrepid.net>...
>After three days of tweaking registries, installing and reinstalling
>Perl 5.009 from Activeware, and trying to get even one perl script to
>execute from a browser I have come to the conclusion that it can't be
>done. I am using Front Page, Windows 98, PWS 4.0, and ActivePerl
>5.009.
------------------------------
Date: Mon, 22 Feb 1999 19:29:38 GMT
From: johnsteele@my-dejanews.com
Subject: Re: PERL for Personal Web Server
Message-Id: <7asb6k$j7s$1@nnrp1.dejanews.com>
Steve:
I have been successful in getting ActivePerl 509 running with PWS (version 1)
under Win95 OSR2 on my Thinkpad. I found that the sequence was somewhat
important
PWS 1.0 (I tried the 4.0 release but had major problems with the notebook
"suspend" functions with this version so I went back to the 1.0 version from
the Win95 OSR CDROM)
DCOM.EXE (required by PERL under Win95 -- not sure about 98?)
ASP.EXE (required by PWS 1.0, not needed for PWS 4 it already supports ASP)
ActivePerl 509 (PERL/PERLIS/PerlScript)
Evertyhing works fine and I now have a fully functional portable web server on
my Thinkpad 560x
John
In article <36d09701.1296406@news.intrepid.net>,
midsoft@intrepid.net (Steven Grigsby) wrote:
> After three days of tweaking registries, installing and reinstalling
> Perl 5.009 from Activeware, and trying to get even one perl script to
> execute from a browser I have come to the conclusion that it can't be
> done. I am using Front Page, Windows 98, PWS 4.0, and ActivePerl
> 5.009.
>
> My checklist included the following, all done:
>
> Properly set registry entries for .pl, .cgi, and .plx files.
> Associated Explorer file associates to run Perl with .pl files.
> Made cgi-bin and c:\perl\bin available as virtual directories to
> Personal Web Server.
>
> The final result is though Perl scripts run fine from a DOS window,
> they would never execute in the browser, such as
> http://myweb/cgi-bin/test.pl.
>
> Sounds like the Apache 32 port might work better instead of PWS.
>
> - Steve Grigsby
>
> On Wed, 10 Feb 1999 13:19:18 -0800, Mangesh Sangapu
> <sangapum@hotmail.com> wrote:
>
> >okay.. i'm trying to figure out how to use PERL on the Microsoft
> >Personal Web Server which came with my Win98 CD.
> >
> >i've downloaded ActiveState's Perl for Win95/NT.. and i've downloaded
> >perl5_00402-bindist04-bc.zip... all i want to know is how do i actually
> >use it.. setups/configurations.. etc..
> >
> >all the faq's i read seem to have a lot about PERL itself, but i haven't
> >seen much about actually running it on win95/98
> >
> >i know you type in perl whatever.pl to test a script, but how would i
> >run it on my Personal Web Server... and what are all the security
> >hassles i may encounter...
> >
> >basically, does anyone know a good page for PERL-newbies that will
> >explain to me in SIMPLE ENGLISH what i described above.
> >
> >thanks a bunch.
> >mangesh
>
>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Sun, 21 Feb 1999 20:56:51 -0800
From: moseley@best.com (Bill Moseley)
Subject: Re: PERL for Personal Web Server
Message-Id: <MPG.113a836b924d99dc9896b2@206.184.139.132>
In article <36d09701.1296406@news.intrepid.net>, midsoft@intrepid.net
says...
> After three days of tweaking registries, installing and reinstalling
> Perl 5.009 from Activeware, and trying to get even one perl script to
> execute from a browser I have come to the conclusion that it can't be
> done. I am using Front Page, Windows 98, PWS 4.0, and ActivePerl
> 5.009.
You are using the right "PWS"? Not the default one from FP 98, but the
one on the CD-ROM?
Search the web for how to set it up. Mine works fine. When you say that
you have set up the registry properly, did you associate perl with .cgi
or .pl extensions? Not in explorer, but in the registry?
But Apache is easy to setup, too. Took about an hour from the start of
downloading to up and running.
--
Bill Moseley mailto:moseley@best.com
------------------------------
Date: 22 Feb 1999 22:14:16 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: PERL for Personal Web Server
Message-Id: <7askrp$3tf$1@gellyfish.btinternet.com>
On Sun, 21 Feb 1999 23:37:46 GMT Steven Grigsby wrote:
> After three days of tweaking registries, installing and reinstalling
> Perl 5.009 from Activeware,
Erm, Just in case anyone might get confused that is *build 509* of
*Perl 5.00502* from ActiveState.
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Tue, 23 Feb 1999 21:45:15 GMT
From: rolm@my-dejanews.com
Subject: Perl for Win32 Question: traversing directory trees
Message-Id: <7av7h8$3t2$1@nnrp1.dejanews.com>
hi folks. i'm sure some of you pro perl programmers out there have struggled
with and solved this problem ages ago: how do i traverse a directory tree?
that is, i'd like to start at the top of a drive, say c:\, and perform an
action on all the files there. then i'd like to move to each sub direcory in
c:\ and perform the same action on files there. while in each subdirectory
i'd like to do the same thing, until all files on the drive have been acted
on.
i know some sort of recursive function is needed here. any ideas?
here's what i have so far (but it dosen't work correctly):
&traverse("C:\\");
sub traverse {
my ($dir) = (@_);
chdir ($dir);
opendir (HOME, $dir);
my @dirList = readdir (HOME);
print ("Directory $dir Contains....\n");
foreach $item (@dirList) {
if (-d $item) {
&traverse($item);
} else {
print ("\t$item\n");
}
}
print ("\n\n");
closedir (HOME);
}
__END__
Thanks for you help.
rolm
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 23 Feb 1999 17:30:05 -0500
From: Jay Glascoe <jglascoe@giss.nasa.gov>
To: rolm@my-dejanews.com
Subject: Re: Perl for Win32 Question: traversing directory trees
Message-Id: <36D32BED.9179CA0B@giss.nasa.gov>
[courtesy copy of post sent to rolm]
rolm@my-dejanews.com wrote:
>
> hi folks. i'm sure some of you pro perl programmers out there have struggled
> with and solved this problem ages ago: how do i traverse a directory tree?
>
cool! Now I can show off my new Perl knowledge:
# this prints out all [regular] file names in the current directory
use File::Find;
find sub { -f and print $File::Find::name, "\n" }, "./";
> that is, i'd like to start at the top of a drive, say c:\, and perform an
> action on all the files there.
find \&do_what_I_want, 'c:\'; # not sure about 2nd arg.
> i know some sort of recursive function is needed here. any ideas?
>
yeah, be lazy ;)
--
"'We promise, yes I promise!' said Gollum. 'I will serve
the master of the Precious. Good master, good Smeagol,
*gollum*, *gollum*!' Suddenly he began to weep and bite
at his ankle again."
-- J.R.R.T.
------------------------------
Date: Mon, 22 Feb 1999 12:03:21 -0800
From: cbwhb@ttacs.ttu.edu (Bill Bukowski)
Subject: perl form and Netscape 4.5 problem?
Message-Id: <gNiA2.13239$Vz3.107088879@WReNphoon1>
I've got an old form script which I've modified a bit.
It takes the form inputs and then sends some html text back to the
brower and says "thanks."
BUT, Netscape 4.5 won't display the "thanks" text in the window; instead
it displays a pop-up window, "save/download app/pick app/cancel". The
only way to see the "thanks" text is to pick notepad and let it display in
there. In other words Netscape 4.5 isn't recognizing and displaying the
html which the perl script is feeding it.
The script works just fine in old (2.0) Netscape, and I think it's okay in
Explorer, too.
Anybody have any reason why this is? how to fix it? I can't seem to find
any discussion of this at any of the perl/cgi/html form creation sites.
Thanks in advance,
Bill B.
*** Posted from RemarQ - http://www.remarq.com - Discussions Start Here (tm) ***
------------------------------
Date: Tue, 23 Feb 1999 12:49:23 GMT
From: dturley@pobox.com
Subject: Re: perl form and Netscape 4.5 problem?
Message-Id: <7au84h$6qd$1@nnrp1.dejanews.com>
In article <gNiA2.13239$Vz3.107088879@WReNphoon1>,
cbwhb@ttacs.ttu.edu (Bill Bukowski) wrote:
> BUT, Netscape 4.5 won't display the "thanks" text in the window; instead
> it displays a pop-up window, "save/download app/pick app/cancel". The
> only way to see the "thanks" text is to pick notepad and let it display in
> there. In other words Netscape 4.5 isn't recognizing and displaying the
> html which the perl script is feeding it.
It's hard to tell from the code sample you didn't include, but are you sending
back the proper content-type header?
--
____________________________________
David Turley
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 23 Feb 1999 18:50:56 -0800
From: cbwhb@ttacs.ttu.edu (Bill Bukowski)
Subject: Re: perl form and Netscape 4.5 problem?
Message-Id: <kOJA2.68$K5.858258@WReNphoon1>
Thanks for the reply...I'm beginning to realize that I'm probably posting in
the
wrong group and perhaps should be in comp.infosystems.www.authoring.cgi
as it *is* a cgi script I'm working with.
The problem isn't with the script, though; that much works. My browser just
won't show the output. The code that starts the output looks like this:
# Redirection Option
sub no_redirection {
# Print Beginning of HTML
print "Content-Type: text/html";
print "\n";
print "\n";
print "<html><head><title>Thank You</title></head>\n";
print "<body><h1>Thank You For Your Comments</h1>\n";
[and so on]
So it's got the content-type and 2 line breaks called for in, uh, one of the
cgi
faqs. And it works in older browsers. Just not new ones. And obviously
I'm an idiot on this subject--I'm just (still) stumped on the precise nature
of my
idiocy...
Thanks,
Bill B.
*** Posted from RemarQ - http://www.remarq.com - Discussions Start Here (tm) ***
------------------------------
Date: 24 Feb 1999 11:14:15 -0500
From: clay@panix.com (Clay Irving)
Subject: Re: perl form and Netscape 4.5 problem?
Message-Id: <slrn7d89an.1jb.clay@panix.com>
On Tue, 23 Feb 1999 18:50:56 -0800, Bill Bukowski <cbwhb@ttacs.ttu.edu> wrote:
>Thanks for the reply...I'm beginning to realize that I'm probably posting in
>the
>wrong group and perhaps should be in comp.infosystems.www.authoring.cgi
>as it *is* a cgi script I'm working with.
>
>The problem isn't with the script, though; that much works. My browser just
>won't show the output. The code that starts the output looks like this:
>
># Redirection Option
>sub no_redirection {
>
> # Print Beginning of HTML
> print "Content-Type: text/html";
> print "\n";
> print "\n";
> print "<html><head><title>Thank You</title></head>\n";
> print "<body><h1>Thank You For Your Comments</h1>\n";
>[and so on]
>
>So it's got the content-type and 2 line breaks called for in, uh, one of the
>cgi
>faqs. And it works in older browsers. Just not new ones. And obviously
>I'm an idiot on this subject--I'm just (still) stumped on the precise nature
>of my
>idiocy...
Recommended reading:
Idiot's Guide to Solving Perl/CGI Problems
http://language.perl.com/CPAN/doc/FAQs/cgi/idiots-guide.html
--
Clay Irving <clay@panix.com>
'I must've seen it in a USENET posting;' that's sort of like hearsay
evidence from Richard Nixon...
- Blair Houghton
------------------------------
Date: Mon, 22 Feb 1999 07:13:45 -0600
From: James Ludlow <ludlow@us.ibm.com>
Subject: Re: Perl interpreter for Win95?
Message-Id: <36D15809.92C915A1@us.ibm.com>
Robb wrote:
> Is there a Perl interpreter for Win95 that would serve my purposes, and
> also has an install utility that would make installation easier?
www.perl.com
www.activestate.com
--
James Ludlow (ludlow@us.ibm.com)
(Any opinions expressed are my own, not necessarily those of IBM)
------------------------------
Date: Sat, 20 Feb 1999 20:42:44 +0000
From: "shaven.monkey" <shaven.monkey@throw.me.the.banana.first>
Subject: Re: perl ldap problem HELP please
Message-Id: <36CF1E44.49AE006F@throw.me.the.banana.first>
Chris,
Its an NT server running ISOCOR X.500.
I'v solved the problem - rfc822-user is a custom object correctly
defined in the database but the object name lookup did not work.
I solved it by specifying the object ID in decimal form.
thanks for the interest though.
SM
Chris Morrow wrote:
>
> what kind of LDAP server is this? If it's exchange you need to bind with
> a more NT like syntax :) I believe you would bind with a userid like:
> "cn=userid,cn=DOMAIN"
> There is documentation on this in the manuals... I think for Netscape
> LDAP servers the bind is as you show in your code.
>
> -Chris
>
> shaven.monkey wrote:
> >
> > The code creates the user and rfc822Mailbox is a mandatory attribute of
> > rfc822-user, so it can't be blank.
> >
> > thanks anyway
> > SM
> >
> > lt lindley wrote:
> > >
> > > shaven.monkey <shaven.monkey@throw.me.the.banana.first> wrote:
> > > :>Can anybody see what's wrong with this piece of code?
> > >
> > > :>I get the error message "bind error Invalid syntax" and can't figure out
> > > :>why.
> > > :>If an existing user already has an attribute rfc822Mailbox I can modify
> > > :>the value,
> > > :>but I can't add the attribute to a user.
> > >
> > > [ code snipped ]
> > >
> > > I don't know about the error message. And I have only read enough
> > > LDAP to do whatever I was trying to do at the time.
> > >
> > > Are you sure that the user does not already have an attribute
> > > rfc822Mailbox that happens to be Null? Try using "modify_s"
> > > instead of add.
> > >
> > > --
> > > // Lee.Lindley | There was a time when I thought that "being right"
> > > // @bigfoot.com | was everything. Then I realized that getting along
> > > // | was more important. Still, being right is more fun!
> > > // | And if I'm wrong, somebody will get some joy out of telling me!
------------------------------
Date: 24 Feb 1999 22:49:17 GMT
From: akumar@eng.fore.com (Arun Kumar)
Subject: Perl modules MD5 on DEC lapha running windows NT
Message-Id: <7b1vld$450$1@shell.fore.com>
Does anyone have perl module MD5 for DEc alpha for perl 5.005 active version.
Please email me at akumar@fore.com.
Thanks
Arun
--
#!/usr/swlocal/bin/perl
$_=q|P.E.R.OrFeAkecmaohs.Pltrseupj|;s;[PA.PM]; ;g;local$\=
qq$\n$;@pm=split//;while($PA=pop @pm){$pm.=$PA;$ny.=pop @pm}
$pm=join'',reverse($ny,$pm);open(PA,'>&STDOUT');print PA $pm
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 4991
**************************************
