[23445] in Perl-Users-Digest
Perl-Users Digest, Issue: 5660 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Oct 14 21:05:57 2003
Date: Tue, 14 Oct 2003 18:05:07 -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 Tue, 14 Oct 2003 Volume: 10 Number: 5660
Today's topics:
Check disk usage with Windows Standard Perl Modules [be (Rui Vilao)
Re: Check disk usage with Windows Standard Perl Modules (ko)
Re: check if a string ends with particular letters <REMOVEsdnCAPS@comcast.net>
Re: drawing a tree <bart.lateur@pandora.be>
Re: How does one move down a line in a file? <REMOVEsdnCAPS@comcast.net>
Re: How to update entries in a file <bart.lateur@pandora.be>
Re: How to update entries in a file <tassilo.parseval@rwth-aachen.de>
Re: How to update entries in a file <ebohlman@earthlink.net>
Re: How to update entries in a file (Tad McClellan)
Re: Perl equivalent to a JavaBean <me@privacy.net>
Re: Perl equivalent to a JavaBean <Juha.Laiho@iki.fi>
Re: Perl Intros? (ascii graphics)... <invalid-email@rochester.rr.com>
Perl scripts for Unix on my windows machine (Ren Patterson)
Re: Perl scripts for Unix on my windows machine <some@one.com>
Re: Perl scripts for Unix on my windows machine (Tad McClellan)
Re: Please help re Perl script modification <invalid-email@rochester.rr.com>
Q: Problem figuring out versions of DBI <dpetrou@ece.cmu.edu>
Re: Q: Problem figuring out versions of DBI <invalid-email@rochester.rr.com>
Re: Remembering part of last matched string <noreply@gunnar.cc>
Re: suggestions for comparing two large data sets reque (Quantum Mechanic)
Re: where is the mistake?! <noreply@gunnar.cc>
Re: where is the mistake?! <emschwar@pobox.com>
Re: XML::Parser::PerlSAX <member44133@dbforums.com>
Re: XML::Parser::PerlSAX <invalid-email@rochester.rr.com>
Re: <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 14 Oct 2003 11:57:36 -0700
From: rui.vilao@rocketmail.com (Rui Vilao)
Subject: Check disk usage with Windows Standard Perl Modules [beginner]
Message-Id: <385a715f.0310141057.373ea613@posting.google.com>
Greetings,
I am starting with Perl for Windows System Administration…
I want to write a script that keeps on running and checks periodically
if some drives utilization exceeds a given threshold… and runs a purge
job if necessary (BackupExec archive job).
Is there a function within a standard Perl module I can use for this
(e.g. Win32::File)?
Any help/suggestion is highly appreciated.
Thanks in advance for your help,
Kind Regards,
Rui Vilao.
------------------------------
Date: 14 Oct 2003 16:50:00 -0700
From: kuujinbo@hotmail.com (ko)
Subject: Re: Check disk usage with Windows Standard Perl Modules [beginner]
Message-Id: <92d64088.0310141550.11e39e46@posting.google.com>
rui.vilao@rocketmail.com (Rui Vilao) wrote in message news:<385a715f.0310141057.373ea613@posting.google.com>...
> Greetings,
>
> I am starting with Perl for Windows System Administration?
>
> I want to write a script that keeps on running and checks periodically
> if some drives utilization exceeds a given threshold? and runs a purge
> job if necessary (BackupExec archive job).
>
> Is there a function within a standard Perl module I can use for this
> (e.g. Win32::File)?
>
> Any help/suggestion is highly appreciated.
>
> Thanks in advance for your help,
>
> Kind Regards,
>
> Rui Vilao.
ActiveState includes Win32::ChangeNotify, which allows, among other
things, monitoring directory trees for size changes. The docs are kind
of sparse. You might try a Google search if you need more info.
Your other alternative is to write a recursive routine - one possible
way to do this is with File::Find and stat().
HTH - keith
------------------------------
Date: Tue, 14 Oct 2003 16:15:40 -0500
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: Re: check if a string ends with particular letters
Message-Id: <Xns9414AF88C8322sdn.comcast@206.127.4.25>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
"jjliu" <jjliu@earthlink.net> wrote in
news:8UUib.55437$mQ2.44123@newsread1.news.atl.earthlink.net:
> Could someone tell me how to check if a string ends with particular
> letters. For example, i want to check if the following string is
> ending with gif:
>
> "htt://www.mypage.com/myimage.gif"
if (substr($string, -3) eq 'gif')
- --
Eric
$_ = reverse sort $ /. r , qw p ekca lre uJ reh
ts p , map $ _. $ " , qw e p h tona e and print
-----BEGIN xxx SIGNATURE-----
Version: PGPfreeware 7.0.3 for non-commercial use <http://www.pgp.com>
iQA/AwUBP4xnZmPeouIeTNHoEQLGLgCg8QpypH8MSvqzKB9uwPFRupM+YJgAoJUm
atQoCAa7krrTUPyHdsJjlGbq
=Zwpb
-----END PGP SIGNATURE-----
------------------------------
Date: Tue, 14 Oct 2003 18:29:14 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: drawing a tree
Message-Id: <hvfoovkp6stkug1chdk33u6119bllidejn@4ax.com>
Alythh wrote:
>Do you have knowledge of any Perl module that can help me in drawing
>this kind of structure? Possibly to some kind of vectorial graphic
>output?
Look into GraphViz, with its associated perl interface module. (GraphViz
is a command line program)
<http://www.research.att.com/sw/tools/graphviz/>
--
Bart.
------------------------------
Date: Tue, 14 Oct 2003 14:52:59 -0500
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: Re: How does one move down a line in a file?
Message-Id: <Xns9414A18452452sdn.comcast@206.127.4.25>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote in news:bmh8fa$pg5$2
@mamenchi.zrz.TU-Berlin.DE:
> Eric J. Roode <REMOVEsdnCAPS@comcast.net> wrote in comp.lang.perl.misc:
>> You would do the above instead of
>>
>> @line = <DATA>;
>>
>> for ($i=0; $i<@line; $i++)
>> {
>> print "$i\t$line[$i]";
>> }
>
> Why that instead of
>
> print "$_\t$line[$_]" for 0 .. $#line;
>
>:)
Because I wanted to duplicate Helgi's structure as much as possible.
Mostly I was surprised that he would represent the lines of the file as a
hash instead of an array.
- --
Eric
$_ = reverse sort $ /. r , qw p ekca lre uJ reh
ts p , map $ _. $ " , qw e p h tona e and print
-----BEGIN xxx SIGNATURE-----
Version: PGPfreeware 7.0.3 for non-commercial use <http://www.pgp.com>
iQA/AwUBP4xUBWPeouIeTNHoEQJkIACbBL+eE4OIk9jTVoUStB9NMwlV/IIAoNfC
Lh4pjqULQrydXIbpUPLzu+DM
=5Jpi
-----END PGP SIGNATURE-----
------------------------------
Date: Tue, 14 Oct 2003 18:22:09 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: How to update entries in a file
Message-Id: <gcfoovsnkqmoe0910kfn6o0gmqpsdu5nm5@4ax.com>
John wrote:
>Yes it is meant to be XML formatted. Unfortunately, I forgot to mention that
>I am unable to use any of the CPAN modules. :(
You may just as well forget about getting any help, then. We're not
going to reinvent such huge wheels just because you can't use modules.
My advice would have been to look at AnyData, or DBI+DBD::AnyData, plus
AnyData::Format::XML, to directly manipulate XML as if it was a
database. (I've not tried it myself, though.)
p.s. At least look at the XML::SAX::PurePerl stuff, as it doesn't
require compilation/installation. At the very least you could steal some
ideas. It's the rough route, though.
--
Bart.
------------------------------
Date: 14 Oct 2003 19:11:15 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: How to update entries in a file
Message-Id: <bmhhoj$ace$1@nets3.rz.RWTH-Aachen.DE>
Also sprach Randal L. Schwartz:
>>>>>> "John" == John <no@spam.here> writes:
>John> It is homework related so we need to do it the hard way.
>
> Does your instructor know you are cheating?
Maybe he isn't cheating. Finding out where to get help might well be
within the specifications of the excercise. Actually and when it comes
to programming, it's the single most important thing you can learn:
knowing where to get the required information. This might be either
through documentation, tutorials, examples or even newsgroups.
At least this was how it was handled (and probably still is) in my
university.
> You should hope I'm never the hiring manager at any future job to
> which you apply. I'll walk you out the door so fast you won't know
> what hit you.
Ohoo. And I was under the impression that those employees who get the
job done are the most valuable ones (from a shareholder-point-of-view).
Even when they cheat. Alas, I cheat when it solves a problem for me. :-)
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: 14 Oct 2003 20:07:57 GMT
From: Eric Bohlman <ebohlman@earthlink.net>
Subject: Re: How to update entries in a file
Message-Id: <Xns94149BCAA6917ebohlmanomsdevcom@130.133.1.4>
"John" <no@spam.here> wrote in
news:zZSib.150816$bo1.96210@news-server.bigpond.net.au:
> "Tad McClellan" <tadmc@augustmail.com> wrote in message
> news:slrnbonrfm.46u.tadmc@magna.augustmail.com...
>> John <no@spam.here> wrote:
>>
>> > I am unable to use any of the CPAN modules. :(
>>
>> Why not?
> It is homework related so we need to do it the hard way.
Somebody needs to tell your instructor that parsing XML is *not* a trivial
task and that giving students assignments in which they have to come up
with ways to sort-of-parse it will merely teach them very bad habits. Most
of what you and your fellow students are going to learn from this
assignment will be stuff that you'll eventually have to *unlearn*.
------------------------------
Date: Tue, 14 Oct 2003 17:16:13 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: How to update entries in a file
Message-Id: <slrnbootdd.57a.tadmc@magna.augustmail.com>
John <no@spam.here> wrote:
> open DATA, ">>test.xml"; # append to file
You should always, yes *always*, check the return value from open():
open DATA, '>>test.xml' or die "could not open 'test.xml' $!";
> print DATA @lines [0]; # print the first element in the array
You should enable warnings when developing Perl code!
> while <$addr> { # this is the input
That is not Perl code. You are wasting the time of *thousands* of
people around the world because you cannot be troubled to
provide actual code!
That's it. You've used up all your coupons.
So long.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 14 Oct 2003 22:56:33 +1300
From: "Tintin" <me@privacy.net>
Subject: Re: Perl equivalent to a JavaBean
Message-Id: <bmhf7v$mq9gd$1@ID-172104.news.uni-berlin.de>
"kbass" <kbass@midsouth.rr.com> wrote in message
news:gqmib.5606$oC5.2670@clmboh1-nws5.columbus.rr.com...
>
> "Malcolm Dew-Jones" <yf110@vtn1.victoria.tc.ca> wrote in message
> news:3f8999c0@news.victoria.tc.ca...
> > kbass (kbass@midsouth.rr.com) wrote:
> > : Is there a module within Perl that has the equivalent functionality of
a
> > : JavaBean?
> > : I would like to use this functionality within CGI without having to go
> using
> > : Java. Thanks!
> >
> > That depends on what you mean by "equivalent functionality". What are
> > youy trying to accomplish?
>
> I am attempting to create a module that would allow me to encapsulate
> functionality such as retrieving, updating, inserting and deleting data
from
> a database table. Before creating this module, I wanted to see if there
was
> a current module that handled this type of functionality or had some of
this
> functionality so that I would not have to reinvent the wheel. I could
> perform this tasks using a JavaBean with JSP but I was hoping to use Perl
> instead.
It's spelt DBI in Perl.
------------------------------
Date: Tue, 14 Oct 2003 20:17:00 GMT
From: Juha Laiho <Juha.Laiho@iki.fi>
Subject: Re: Perl equivalent to a JavaBean
Message-Id: <bmhlhv$isb$1@ichaos.ichaos-int>
"Tintin" <me@privacy.net> said:
>"kbass" <kbass@midsouth.rr.com> wrote in message
>news:gqmib.5606$oC5.2670@clmboh1-nws5.columbus.rr.com...
>>
>> "Malcolm Dew-Jones" <yf110@vtn1.victoria.tc.ca> wrote in message
>> news:3f8999c0@news.victoria.tc.ca...
>> > kbass (kbass@midsouth.rr.com) wrote:
>> > : Is there a module within Perl that has the equivalent
>> > : functionality of a JavaBean?
>> >
>> > That depends on what you mean by "equivalent functionality". What
>> > are youy trying to accomplish?
>>
>> I am attempting to create a module that would allow me to encapsulate
>> functionality such as retrieving, updating, inserting and deleting
>> data from a database table.
>
>It's spelt DBI in Perl.
No, the DBI equivalent in Java would more or less be JDBC.
Bean is a form of class that in its most simplistic form just has a few
instance variables, and accessor methods for them. So, what is called
here is a class that would have accessor methods for set of attributes,
and would use database as the persistence layer for that data.
--
Wolf a.k.a. Juha Laiho Espoo, Finland
(GC 3.0) GIT d- s+: a C++ ULSH++++$ P++@ L+++ E- W+$@ N++ !K w !O !M V
PS(+) PE Y+ PGP(+) t- 5 !X R !tv b+ !DI D G e+ h---- r+++ y++++
"...cancel my subscription to the resurrection!" (Jim Morrison)
------------------------------
Date: Wed, 15 Oct 2003 00:34:44 GMT
From: Bob Walton <invalid-email@rochester.rr.com>
Subject: Re: Perl Intros? (ascii graphics)...
Message-Id: <3F8C9604.4020501@rochester.rr.com>
Philip Parker wrote:
> A couple of years ago I stumbled onto a site with ascii intros written
> in perl, and a few games I think. I cannot find that site now or
> anything similar to it. Anyone have any pointers? Thanks.
>
> Philip Parker
>
Google for asciiart.
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: 14 Oct 2003 14:33:46 -0700
From: reneap@hotmail.com (Ren Patterson)
Subject: Perl scripts for Unix on my windows machine
Message-Id: <2e13d330.0310141333.1578511a@posting.google.com>
Hi newbie question:
I have a few perl scripts made for Unix that I would like to use
either on my windows server or apache on my windows PC if I must
install apache. Is there a foreknown reason why the Unix scripts would
not work in these environments? thanks.
------------------------------
Date: Tue, 14 Oct 2003 22:27:12 GMT
From: Anand <some@one.com>
Subject: Re: Perl scripts for Unix on my windows machine
Message-Id: <4L_ib.1888$8x2.1093466@newssrv26.news.prodigy.com>
Unix scripts will not work for many reasons in windows env.
example... if you are using unix commands in script .. windows will not
recognize.
- need to set path as /usr/bin/perl will not work in windows
and there may be many reasons.
--Anand
Ren Patterson wrote:
> Hi newbie question:
>
>
> I have a few perl scripts made for Unix that I would like to use
> either on my windows server or apache on my windows PC if I must
> install apache. Is there a foreknown reason why the Unix scripts would
> not work in these environments? thanks.
------------------------------
Date: Tue, 14 Oct 2003 17:34:44 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Perl scripts for Unix on my windows machine
Message-Id: <slrnbooug4.59v.tadmc@magna.augustmail.com>
Ren Patterson <reneap@hotmail.com> wrote:
> Hi newbie question:
^^^^^^^^^^^^^^^
Who is that?
> I have a few perl scripts made for Unix that I would like to use
> either on my windows server or apache on my windows PC if I must
> install apache.
You never need a web server to run Perl programs.
You (almost) always need a web server to run CGI programs,
regardless of what programming language you choose to
write them in.
Perl is not CGI.
CGI is not Perl.
> Is there a foreknown reason why the Unix scripts would
> not work in these environments?
Yes, if it "shells out" to call system-specific external programs
via system(), exec(), ``, qx//, or a pipe open().
Do your Perl programs use any of those?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 14 Oct 2003 23:42:39 GMT
From: Bob Walton <invalid-email@rochester.rr.com>
Subject: Re: Please help re Perl script modification
Message-Id: <3F8C89D0.3020504@rochester.rr.com>
Ron M. wrote:
> I have a Perl script that searches through a directory and its
> subdirectories and finds all files with a certain string in the
> filename. Then it replaces some text in each of those files. The
> script is below. This is how it would appear to operate on all ".html"
> files, replacing "oldstring" with "newstring":
>
> perl -i.bak -pe 's/oldstring/newstring/g' `find . -name *.html\*`
>
> My question is this: the script creates a backup of EVERY file with
> the suffix ".bak" and I don't want it to do this. How do I modify the
> above script so that this won't happen?
...
> Ron M.
>
Let me see if I understand your question. You want to run the Perl
program on all the *.html* files, but you don't want to make *.bak
backup copies. If so, omit the .bak (and escape the first * ) [untested]:
perl -i -pe 'oldstring/newstring/g' `find . -name \*.html\*`
See:
perldoc perlrun
for details of the -i switch.
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: 14 Oct 2003 22:16:00 GMT
From: David Petrou <dpetrou@ece.cmu.edu>
Subject: Q: Problem figuring out versions of DBI
Message-Id: <bmhsj0$mr0$1@nntp.ece.cmu.edu>
Hi. I have a bunch of DBI questions I'm hoping ya'll can help me
with. They are real simple questions, but I'm stymied after searching
the usual channels for answers.
Question #1: I'm trying to figure out what DBD versions I have
installed. But:
% perl -MDBI -e 'DBI->installed_versions'
Can't locate auto/DBI/installed_v.al in @INC (@INC contains: /sw/lib/perl5/5.8.0/darwin /sw/lib/perl5/5.8.0 /sw/lib/perl5/darwin /sw/lib/perl5 /sw/lib/perl5/5.8.0/darwin /sw/lib/perl5/5.8.0 /sw/lib/perl5/site_perl/5.8.0/darwin /sw/lib/perl5/site_perl/5.8.0 /sw/lib/perl5/site_perl .) at -e line 1
i get the same error with a little problem like:
use DBI;
@ver = DBI->installed_versions;
foreach my $item (@ver) {
print "$item\n";
}
I know that I have DBI installed because I use it successfully to work
with a MySQL server.
The reason why I'm trying to figure out my DBI version is so that I
can upgrade, if needed to 2.1022 which is recommended for the version
of MySQL that I have installed.
Question #2: Is there a way to tell DBD::MySQL to look for the MySQL
binaries in a specific place? I want to interact with a remote MySQL
server of version foo, but the MySQL client installed locally in
/usr/local/bin (which I don't have permission to change) is version
bar. I installed version foo in off of ~ and I'd like DBI to use that
stuff.
Question #3: If I install my own DBI, does it come with all the DBD
drivers? Or do I need to hunt down appropriately versioned DBD's for
the databases I'm interacting with?
Thanks much!
dvaid
------------------------------
Date: Tue, 14 Oct 2003 23:08:14 GMT
From: Bob Walton <invalid-email@rochester.rr.com>
Subject: Re: Q: Problem figuring out versions of DBI
Message-Id: <3F8C81BD.5060403@rochester.rr.com>
David Petrou wrote:
> Question #1: I'm trying to figure out what DBD versions I have
> installed. But:
>
> % perl -MDBI -e 'DBI->installed_versions'
> Can't locate auto/DBI/installed_v.al in @INC (@INC contains: /sw/lib/perl5/5.8.0/darwin /sw/lib/perl5/5.8.0 /sw/lib/perl5/darwin /sw/lib/perl5 /sw/lib/perl5/5.8.0/darwin /sw/lib/perl5/5.8.0 /sw/lib/perl5/site_perl/5.8.0/darwin /sw/lib/perl5/site_perl/5.8.0 /sw/lib/perl5/site_perl .) at -e line 1
>
> i get the same error with a little problem like:
>
> use DBI;
> @ver = DBI->installed_versions;
> foreach my $item (@ver) {
> print "$item\n";
> }
>
> I know that I have DBI installed because I use it successfully to work
> with a MySQL server.
>
> The reason why I'm trying to figure out my DBI version is so that I
> can upgrade, if needed to 2.1022 which is recommended for the version
> of MySQL that I have installed.
FWIW, I get the same error. But I get that same error if I try, for
example:
D:\junk>perl -e "use DBI;print DBI->installed_vexxxons"
Can't locate auto/DBI/installed_v.al in @INC (@INC contains: C:/Perl/lib
C:/Perl
/site/lib .) at -e line 1
D:\junk>
or:
D:\junk>perl -e "use DBI;print DBI->xxxxxxxxx_xxxxxxxx"
Can't locate auto/DBI/xxxxxxxxx_x.al in @INC (@INC contains: C:/Perl/lib
C:/Perl
/site/lib .) at -e line 1
D:\junk>
I note that method installed_versions is not mentioned in the DBI docs.
Where did you get the idea to use it? And what about:
D:\junk>perl -e "use DBD::ODBC;print $DBD::ODBC::VERSION"
1.06
D:\junk>
for example, which is the usual method of determining a module's version?
...
> dvaid
>
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: Tue, 14 Oct 2003 23:43:37 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Remembering part of last matched string
Message-Id: <bmhqob$m1294$1@ID-184292.news.uni-berlin.de>
Chandramohan Neelakantan wrote:
> could you explain the line
>
> (?=\d+(?:\.\d+)+|$) # next rule or end
I guess you mean the ?= part of it. Maybe I could, but I'm sure that
this would explain it much better:
http://www.perldoc.com/perl5.8.0/pod/perlretut.html#Looking-ahead-and-looking-behind
Please read that, and possibly also the relevant part of
"perldoc perlre", and come back here if there is something in those
parts of the docs that you don't understand.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 14 Oct 2003 15:28:40 -0700
From: quantum_mechanic_1964@yahoo.com (Quantum Mechanic)
Subject: Re: suggestions for comparing two large data sets requested
Message-Id: <f233f2f0.0310141428.3d425d9e@posting.google.com>
anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote in message news:<bmgils$anq$1@mamenchi.zrz.TU-Berlin.DE>...
> Alternatively, one could use binary search to find the starting and
> ending points of a possible enclosing interval.
Assuming the begin/end pairs in each list are sorted, use the merge
sort algorithm, with some stream state thrown in, and it should take
linear time.
-QM
------------------------------
Date: Tue, 14 Oct 2003 23:14:40 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: where is the mistake?!
Message-Id: <bmhp22$mstv5$1@ID-184292.news.uni-berlin.de>
Geoff Cox wrote:
> I have a directory with 20 MS Word doc files in it and wish to
> create a separate zip file for each doc file. The names to be
> doc1.zip, doc2.zip, etc
>
> Is the code below anywhere near?!
Err.. Ever thought of learning how to debug your Perl programs
yourself rather than asking the readers of this group to do it for you?
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Tue, 14 Oct 2003 15:32:22 -0600
From: Eric Schwartz <emschwar@pobox.com>
Subject: Re: where is the mistake?!
Message-Id: <etoptgztsih.fsf@wormtongue.fc.hp.com>
Geoff Cox <geoff.cox@blueyonder.co.uk> writes:
> I have a directory with 20 MS Word doc files in it and wish to create
> a separate zip file for each doc file. The names to be doc1.zip,
> doc2.zip, etc
>
> Is the code below anywhere near?!
What happened when you tried it? What did you expect to happen? What
don't you understand about the difference?
Contrary to what some people seem to think, we're happy to help out
here, but we do require that you do a little bit of effort yourself.
Posting code is a Good Thing(tm), but it's only the first step. Read
the Posting Guidelines Tad McClellan posts to this group regularly,
and you'll probably want to spend some time with ESR's "How to ask
Questions the Smart Way" at
<URL:http://www.catb.org/~esr/faqs/smart-questions.html>.
-=Eric
--
Come to think of it, there are already a million monkeys on a million
typewriters, and Usenet is NOTHING like Shakespeare.
-- Blair Houghton.
------------------------------
Date: Tue, 14 Oct 2003 16:22:32 -0400
From: freebird1963 <member44133@dbforums.com>
Subject: Re: XML::Parser::PerlSAX
Message-Id: <3481176.1066162952@dbforums.com>
Hello,
I have same problem.
has an answer or solution been found ?
Thanks
MD
--
Posted via http://dbforums.com
------------------------------
Date: Tue, 14 Oct 2003 23:13:03 GMT
From: Bob Walton <invalid-email@rochester.rr.com>
Subject: Re: XML::Parser::PerlSAX
Message-Id: <3F8C82E0.1050201@rochester.rr.com>
freebird1963 wrote:
> Hello,
>
> I have same problem.
>
> has an answer or solution been found ?
Yes. You have an error on line 17.
...
> MD
...
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: Sat, 19 Jul 2003 01:59:56 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re:
Message-Id: <3F18A600.3040306@rochester.rr.com>
Ron wrote:
> Tried this code get a server 500 error.
>
> Anyone know what's wrong with it?
>
> if $DayName eq "Select a Day" or $RouteName eq "Select A Route") {
(---^
> dienice("Please use the back button on your browser to fill out the Day
> & Route fields.");
> }
...
> Ron
...
--
Bob Walton
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.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 V10 Issue 5660
***************************************
