[28057] in Perl-Users-Digest
Perl-Users Digest, Issue: 9421 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jul 4 00:06:05 2006
Date: Mon, 3 Jul 2006 21:05:04 -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 Mon, 3 Jul 2006 Volume: 10 Number: 9421
Today's topics:
Book exists?: "Definitive Guide to Object-Oriented Prog (David Combs)
Re: Book exists?: "Definitive Guide to Object-Oriented <sherm@Sherm-Pendleys-Computer.local>
Re: Book exists?: "Definitive Guide to Object-Oriented <ermeyers@adelphia.net>
Re: Book exists?: "Definitive Guide to Object-Oriented <brian.d.foy@gmail.com>
Re: Book exists?: "Definitive Guide to Object-Oriented (Randal L. Schwartz)
Re: Book exists?: "Definitive Guide to Object-Oriented <hobosalesman@gmail.com>
help me please <johanne_baker@hotmail.com>
Re: How to eliminate the extra 0's in printing to html <sherm@Sherm-Pendleys-Computer.local>
Re: How to eliminate the extra 0's in printing to html <1usa@llenroc.ude.invalid>
Re: How to eliminate the extra 0's in printing to html <cibalo@gmx.co.uk>
Re: need simple beep and taint mode <sherm@Sherm-Pendleys-Computer.local>
Re: need simple beep and taint mode anno4000@zrz.tu-berlin.de
Re: need simple beep and taint mode <sherm@Sherm-Pendleys-Computer.local>
Re: need simple beep and taint mode <ynleder@nspark.org>
Re: need simple beep and taint mode <ynleder@nspark.org>
Re: need simple beep and taint mode <ynleder@nspark.org>
Re: need simple beep and taint mode <ynleder@nspark.org>
Re: need simple beep and taint mode <sherm@Sherm-Pendleys-Computer.local>
Re: need simple beep and taint mode <ynleder@nspark.org>
Which is the perl questions ng for beginners <VSRawat@Invalid.none>
Re: Which is the perl questions ng for beginners <sherm@Sherm-Pendleys-Computer.local>
Re: Which is the perl questions ng for beginners <tadmc@augustmail.com>
Re: Which is the perl questions ng for beginners <benkasminbullock@gmail.com>
Re: Which is the perl questions ng for beginners <uri@stemsystems.com>
Win32: File Manipulation <aragorn.m@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 3 Jul 2006 15:39:52 -0400
From: dkcombs@panix.com (David Combs)
Subject: Book exists?: "Definitive Guide to Object-Oriented Programming in Perl"
Message-Id: <e8brq8$rg$1@panix1.panix.com>
Does this book exist anywhere?
"Definitive Guide to Object-Oriented Programming in Perl"
by `Tuomas J. Lukka,
(publisher said to be Apress?)
All google shows is lots of people *looking* for this book.
(and not finding it)
Anyone know anything about it?
David
------------------------------
Date: Mon, 03 Jul 2006 15:54:52 -0400
From: Sherm Pendley <sherm@Sherm-Pendleys-Computer.local>
Subject: Re: Book exists?: "Definitive Guide to Object-Oriented Programming in Perl"
Message-Id: <m2fyhiv4z7.fsf@Sherm-Pendleys-Computer.local>
dkcombs@panix.com (David Combs) writes:
> Does this book exist anywhere?
>
> "Definitive Guide to Object-Oriented Programming in Perl"
>
> by `Tuomas J. Lukka,
>
> (publisher said to be Apress?)
>
> All google shows is lots of people *looking* for this book.
>
> (and not finding it)
>
> Anyone know anything about it?
I found a reference to it at an Australian book seller here:
<http://www.bookware.com.au/cgi-bin/bookware/1893115038>
That page says that publication was cancelled, which probably explains the
difficulty. It's hard to find a book that didn't get printed. :-)
A *great* book about using OOP in Perl is "Learning Perl Objects, References
& Modules" from O'Reilly.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Mon, 03 Jul 2006 17:22:06 -0400
From: "Eric R. Meyers" <ermeyers@adelphia.net>
Subject: Re: Book exists?: "Definitive Guide to Object-Oriented Programming in Perl"
Message-Id: <lbidnTDTTJsdFzTZnZ2dnUVZ_o-dnZ2d@adelphia.com>
David Combs wrote:
> Does this book exist anywhere?
>
See perldoc perlboot, because it refers to another recommended book in the
SEE ALSO section.
------------------------------
Date: Mon, 03 Jul 2006 16:28:58 -0500
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: Book exists?: "Definitive Guide to Object-Oriented Programming in Perl"
Message-Id: <030720061628581676%brian.d.foy@gmail.com>
In article <m2fyhiv4z7.fsf@Sherm-Pendleys-Computer.local>, Sherm
Pendley <sherm@Sherm-Pendleys-Computer.local> wrote:
> A *great* book about using OOP in Perl is "Learning Perl Objects, References
> & Modules" from O'Reilly.
That book is now called "Intermediate Perl". Get the new edition which
updates everything for Perl 5.8. :)
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: 03 Jul 2006 18:44:46 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Book exists?: "Definitive Guide to Object-Oriented Programming in Perl"
Message-Id: <863bdirvn5.fsf@blue.stonehenge.com>
>>>>> "Eric" == Eric R Meyers <ermeyers@adelphia.net> writes:
Eric> See perldoc perlboot, because it refers to another recommended book in the
Eric> SEE ALSO section.
Heh. It's odd that "perldoc perlboot", which I wrote, doesn't refer
to Intermediate Perl, yet. I'll have to get a docpatch in for 5.8.9.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: 3 Jul 2006 20:25:31 -0700
From: "Hobo Salesman" <hobosalesman@gmail.com>
Subject: Re: Book exists?: "Definitive Guide to Object-Oriented Programming in Perl"
Message-Id: <1151983531.766013.152340@v61g2000cwv.googlegroups.com>
"Object oriented perl" by Damian Conway is very good, I just finished
it.
------------------------------
Date: 3 Jul 2006 10:59:58 -0700
From: "sppermoi" <johanne_baker@hotmail.com>
Subject: help me please
Message-Id: <1151949598.091277.269160@m79g2000cwm.googlegroups.com>
hi!
i have a problem. i dont understand... help me please
http://www.animals-superstars.com/photo-109260.html
tank you
patate069
------------------------------
Date: Mon, 03 Jul 2006 11:12:46 -0400
From: Sherm Pendley <sherm@Sherm-Pendleys-Computer.local>
Subject: Re: How to eliminate the extra 0's in printing to html lines?
Message-Id: <m2fyhiwwlt.fsf@Sherm-Pendleys-Computer.local>
cibalo@gmx.co.uk writes:
> The following script produces two extra 0's at the end of the lines ---
> see below.
> #!/usr/bin/perl
> print "Content-type: text/html\n\n";
> print "# which sendmail<br>";
> $out = system("which sendmail");
> print "$out<br>\n";
> print "<br>";
> print "# which perl<br>";
> $out = system("which perl");
> print "$out<br>\n";
> print "<br>";
>
> And the browser displays as:
> # which sendmail
> /usr/sbin/sendmail 0
>
> # which perl
> /usr/bin/perl 0
>
> Please help me to eliminate the two extra 0's at the end of the lines.
> I have no idea where these 0's are coming from.
They're the value of $out when it's printed. System() does not do what you
think it does. For details have a look at the docs for the system() function:
perldoc -f system
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Mon, 03 Jul 2006 19:47:33 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: How to eliminate the extra 0's in printing to html lines?
Message-Id: <Xns97F5A0BEFCBECasu1cornelledu@127.0.0.1>
"Bart Van der Donck" <bart@nijlen.com> wrote in
news:1151917184.279189.123110@75g2000cwc.googlegroups.com:
> The problem is that you can't trust the
> return value of the 'system'-command.
In what way does the return value of the system function match its
documentation?
perldoc -f system
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: 3 Jul 2006 18:16:42 -0700
From: "Ciba LO" <cibalo@gmx.co.uk>
Subject: Re: How to eliminate the extra 0's in printing to html lines?
Message-Id: <1151975802.654655.118280@v61g2000cwv.googlegroups.com>
Hello Bart, Steffen, Anno, jue, sherm and Sinan!
Many thanks to you guys for replying to my post. Both the backquote
substitution and the omission of $out in the print statements are
working okayed to me.
Ciba
Bart Van der Donck wrote:
>
> I see the same results here. The problem is that you can't trust the
> return value of the 'system'-command. The following should work:
>
> $out = `which perl`;
>
> --
> Bart
------------------------------
Date: Mon, 03 Jul 2006 11:09:04 -0400
From: Sherm Pendley <sherm@Sherm-Pendleys-Computer.local>
Subject: Re: need simple beep and taint mode
Message-Id: <m2k66uwwrz.fsf@Sherm-Pendleys-Computer.local>
Yohan N. Leder <ynleder@nspark.org> writes:
> Nevertheless, because you talk about CGI orientation, it interest me too
> to know how to produce a simple beep in internal speaker when script is
> reached through web server and current STDOUT is a web browser.
I think you mentioned earlier that you're writing an internal app on a LAN,
so I won't get into the wisdom(?) of noisy pages on the WWW. ;-\
> have an idea without using any external module?
It depends on why you want the beep to happen. The simplest possible way
would be to print an <object> and/or <embed> that refers to a sound file.
If you want the beep to happen as the result of a specified server-side
event, you could place the above in a hidden frame, and use JavaScript or
a meta refresh to periodically update it from the server. Your CGI would
return an empty (i.e. silent) HTML block until the watched-for event
happens, then return the HTML that would load the sound.
Note that you won't achieve precise synronicity this way - there will
always be a variable-length delay between the time the beep is sent from
the server and the time it's played in the browser. But if all you need is
a "process finished" alarm of some sort, then even several seconds of lag
would probably be acceptable.
I've kept this intentionally brief, because big pieces of this would be
implemented in client-side JS and HTML, which are off-topic in this group.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: 3 Jul 2006 15:19:16 GMT
From: anno4000@zrz.tu-berlin.de
Subject: Re: need simple beep and taint mode
Message-Id: <4gsqrkF1o84n3U1@news.dfncis.de>
Yohan N. Leder <ynleder@nspark.org> wrote in comp.lang.perl.misc:
> In article <4gsdljF1p4f18U2@news.dfncis.de>, anno4000@zrz.tu-berlin.de
> says...
> > Yohan N. Leder <ynleder@nspark.org> wrote in comp.lang.perl.misc:
> > > In article <4gs38iF1nvg4gU1@news.dfncis.de>, anno4000@zrz.tu-berlin.de
> > > says...
> > > > If you don't know the answer, how do you know it's a "quick question"?
> > > >
> > >
> > > Because I said 'quick question' and not 'quick answer'.
> >
> > Are you saying you wrote it to point out the obvious fact that the
> > question was short? I don't believe you.
> >
> > Anno
> >
>
> Don't interprete, Anno. Here is my exact original sentence : "Very quick
> question this time."
Reading *is* interpretation -- if that basic fact has escaped you your
world view is simplistic indeed.
> All attempt to change any word is an
> interpretation. Not a matter of believing, but reading only.
My interpretation is based on the half-dozen or so questions per week
we get here that are announced as "quick", "easy", "simple", and so forth.
It's a stereotype that invariably aims at attracting more attempts to
answer the question. In the long run, that gets annoying. Yours was
no different from any other of its kind.
Anno
------------------------------
Date: Mon, 03 Jul 2006 11:28:26 -0400
From: Sherm Pendley <sherm@Sherm-Pendleys-Computer.local>
Subject: Re: need simple beep and taint mode
Message-Id: <m2bqs6wvvp.fsf@Sherm-Pendleys-Computer.local>
anno4000@zrz.tu-berlin.de writes:
> My interpretation is based on the half-dozen or so questions per week
> we get here that are announced as "quick", "easy", "simple", and so forth.
Heh. That's not limited to this group. How many times has your boss asked
you for a "quick little app" that wound up taking days to finish?
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Mon, 3 Jul 2006 18:36:43 +0200
From: Yohan N. Leder <ynleder@nspark.org>
Subject: Re: need simple beep and taint mode
Message-Id: <MPG.1f136608e413ac73989876@news.tiscali.fr>
In article <slrneai852.374.tadmc@magna.augustmail.com>,
tadmc@augustmail.com says...
>
> Because you were getting error messages that you did not mention.
>
No, because this code was launched trhough a blind Win32::Process and,
then, byt the way, I didn't seen this error message myself before
running it by hand from a DOS-box.
------------------------------
Date: Mon, 3 Jul 2006 18:41:23 +0200
From: Yohan N. Leder <ynleder@nspark.org>
Subject: Re: need simple beep and taint mode
Message-Id: <MPG.1f13671bb8670e57989877@news.tiscali.fr>
In article <m2k66uwwrz.fsf@Sherm-Pendleys-Computer.local>, sherm@Sherm-
Pendleys-Computer.local says...
> Yohan N. Leder <ynleder@nspark.org> writes:
>
> > Nevertheless, because you talk about CGI orientation, it interest me too
> > to know how to produce a simple beep in internal speaker when script is
> > reached through web server and current STDOUT is a web browser.
>
> I think you mentioned earlier that you're writing an internal app on a LAN,
> so I won't get into the wisdom(?) of noisy pages on the WWW. ;-\
>
When I said that ? Fact is that I needed this beep in a process called
in cmdline with DOS-box as STDOUT : this is solved. And, for a future
project it could b possible I need same thing for CGI environment.
> > have an idea without using any external module?
>
> It depends on why you want the beep to happen. The simplest possible way
> would be to print an <object> and/or <embed> that refers to a sound file.
> [...]
OK, noted for time I'll have to do it.
------------------------------
Date: Mon, 3 Jul 2006 18:45:05 +0200
From: Yohan N. Leder <ynleder@nspark.org>
Subject: Re: need simple beep and taint mode
Message-Id: <MPG.1f1367fe2223ca06989878@news.tiscali.fr>
In article <4gsqrkF1o84n3U1@news.dfncis.de>, anno4000@zrz.tu-berlin.de
says...
> Yohan N. Leder <ynleder@nspark.org> wrote in comp.lang.perl.misc:
> > In article <4gsdljF1p4f18U2@news.dfncis.de>, anno4000@zrz.tu-berlin.de
> > says...
> > > Yohan N. Leder <ynleder@nspark.org> wrote in comp.lang.perl.misc:
> > > > In article <4gs38iF1nvg4gU1@news.dfncis.de>, anno4000@zrz.tu-berlin.de
> > > > says...
> > > > > If you don't know the answer, how do you know it's a "quick question"?
> > > > >
> > > >
> > > > Because I said 'quick question' and not 'quick answer'.
> > >
> > > Are you saying you wrote it to point out the obvious fact that the
> > > question was short? I don't believe you.
> > >
> > > Anno
> > >
> >
> > Don't interprete, Anno. Here is my exact original sentence : "Very quick
> > question this time."
>
> Reading *is* interpretation -- if that basic fact has escaped you your
> world view is simplistic indeed.
>
> > All attempt to change any word is an
> > interpretation. Not a matter of believing, but reading only.
>
> My interpretation is based on the half-dozen or so questions per week
> we get here that are announced as "quick", "easy", "simple", and so forth.
> It's a stereotype that invariably aims at attracting more attempts to
> answer the question. In the long run, that gets annoying. Yours was
> no different from any other of its kind.
>
> Anno
>
What a drastic behavior. Take a cold drink and be cool. Nobody force you
to answert o anything : it's your choice !
------------------------------
Date: Mon, 3 Jul 2006 18:49:35 +0200
From: Yohan N. Leder <ynleder@nspark.org>
Subject: Re: need simple beep and taint mode
Message-Id: <MPG.1f13690e79a8ebd5989879@news.tiscali.fr>
In article <m2bqs6wvvp.fsf@Sherm-Pendleys-Computer.local>, sherm@Sherm-
Pendleys-Computer.local says...
> Heh. That's not limited to this group. How many times has your boss asked
> you for a "quick little app" that wound up taking days to finish?
>
I did it too, of course, and, even, spent long time - close to two years
- to develop a project (a C one) which didn't been used at the end ;
company closed some weeks before. And, I never though I did lost my
time. A matter of nature.
------------------------------
Date: Mon, 03 Jul 2006 12:50:31 -0400
From: Sherm Pendley <sherm@Sherm-Pendleys-Computer.local>
Subject: Re: need simple beep and taint mode
Message-Id: <m24pxyws2w.fsf@Sherm-Pendleys-Computer.local>
Yohan N. Leder <ynleder@nspark.org> writes:
> In article <m2k66uwwrz.fsf@Sherm-Pendleys-Computer.local>, sherm@Sherm-
> Pendleys-Computer.local says...
>> Yohan N. Leder <ynleder@nspark.org> writes:
>>
>> > Nevertheless, because you talk about CGI orientation, it interest me too
>> > to know how to produce a simple beep in internal speaker when script is
>> > reached through web server and current STDOUT is a web browser.
>>
>> I think you mentioned earlier that you're writing an internal app on a LAN,
>> so I won't get into the wisdom(?) of noisy pages on the WWW. ;-\
>>
>
> When I said that ?
I probably mixed you up with someone else. I did say "I think", you know. :-)
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Mon, 3 Jul 2006 19:22:51 +0200
From: Yohan N. Leder <ynleder@nspark.org>
Subject: Re: need simple beep and taint mode
Message-Id: <MPG.1f1370d8a9a743fb98987a@news.tiscali.fr>
In article <m24pxyws2w.fsf@Sherm-Pendleys-Computer.local>, sherm@Sherm-
Pendleys-Computer.local says...
> I probably mixed you up with someone else. I did say "I think", you know. :-)
>
Not any problem ! I'm of cool nature, you know and more when the room is
close to 35°C ;-)
------------------------------
Date: Tue, 4 Jul 2006 00:16:39 +0000 (UTC)
From: "V S Rawat" <VSRawat@Invalid.none>
Subject: Which is the perl questions ng for beginners
Message-Id: <xn0eobgys1bzwp002@nntp.aioe.org>
Hi all,
I accessed this ng today.
I have written some small programs in perl, and would like to learn
more.
I have installed ActivePerl 5.8.8 build 817 on my winxpsp2, with
Crimson Editor 3.70
Some queries:
1. Which ng to sub to ask my beginner level queries without disturbing
the veterans.
2. What other free resources would be useful for me.
3. Any good sites related to it, and having sample scripts?
Thanks.
--
Rawat
------------------------------
Date: Mon, 03 Jul 2006 22:17:59 -0400
From: Sherm Pendley <sherm@Sherm-Pendleys-Computer.local>
Subject: Re: Which is the perl questions ng for beginners
Message-Id: <m23bdiun8o.fsf@Sherm-Pendleys-Computer.local>
"V S Rawat" <VSRawat@Invalid.none> writes:
> 1. Which ng to sub to ask my beginner level queries without disturbing
> the veterans.
This group is appropriate for all levels. The best way to avoid stepping on
anyone's toes is to read *and follow* the posting guidelines which are posted
here twice weekly.
> 2. What other free resources would be useful for me.
<http://learn.perl.org>
<http://perlmonks.org>
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Mon, 3 Jul 2006 20:01:20 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Which is the perl questions ng for beginners
Message-Id: <slrneajff0.74k.tadmc@magna.augustmail.com>
V S Rawat <VSRawat@Invalid.none> wrote:
> I have written some small programs in perl,
You wrote them in Perl, not in perl.
perldoc -q difference
What's the difference between "perl" and "Perl"?
> and would like to learn
> more.
Learning more about "anything" should start with reading the
FAQ for "anything". :-)
The Perl FAQs are part of the standard perl distribution, figure
out where they got installed on your system and consult them often.
The "perldoc" program, that also ships with the perl distribution,
can look things up for you in the Perl FAQs:
perldoc -q learn
Is Perl difficult to learn?
Where can I learn about CGI or Web programming in Perl?
Where can I learn about object-oriented Perl programming?
> 1. Which ng to sub to ask my beginner level queries without disturbing
> the veterans.
You can ask those here!
Beginner level questions don't (or shouldn't anyway) disturb the veterans.
Questions that are easily answered by searching the docs that
come with perl _do_ disturb the veterans though. :-)
So if you've spent ten minutes searching the standard docs and
haven't found your answer, then post away!
> 2. What other free resources would be useful for me.
The most authoritative resource on Perl are the docs that come with perl.
At least scan the Table Of Contents:
perldoc perltoc
Apart from that, http://learn.perl.org/ is a good place to start.
> 3. Any good sites related to it, and having sample scripts?
There is a list of Perl (and perl) mailing lists at:
http://lists.perl.org/
(note the "beginners" list there.)
See also the Perl Monks:
http://www.perlmonks.com/
And the Posting Guidelines for this newsgroup, which are posted
here frequently.
Happy Perling!
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 4 Jul 2006 11:54:44 +0900
From: "Ben Bullock" <benkasminbullock@gmail.com>
Subject: Re: Which is the perl questions ng for beginners
Message-Id: <e8cl9i$g2q$1@ml.accsnet.ne.jp>
"Sherm Pendley" <sherm@Sherm-Pendleys-Computer.local> wrote in message
news:m23bdiun8o.fsf@Sherm-Pendleys-Computer.local...
> "V S Rawat" <VSRawat@Invalid.none> writes:
>
>> 1. Which ng to sub to ask my beginner level queries without disturbing
>> the veterans.
>
> This group is appropriate for all levels. The best way to avoid stepping
> on
> anyone's toes is to read *and follow* the posting guidelines which are
> posted
> here twice weekly.
Unfortunately there are a lot of people here who seem to hope that someone
will step on their toes so that they'll get an excuse to harass yet another
newbie poster. I've never seen such a newsgroup for picking on and flaming
newbies as this one.
--
Warning: Please be aware that the above poster "if an infiltrator working
with the FBI to destroy criticicism of the US State Department-sponsored
Wikipedia project"
------------------------------
Date: Mon, 03 Jul 2006 23:20:44 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Which is the perl questions ng for beginners
Message-Id: <x7bqs6838z.fsf@mail.sysarch.com>
>>>>> "BB" == Ben Bullock <benkasminbullock@gmail.com> writes:
BB> Unfortunately there are a lot of people here who seem to hope that
BB> someone will step on their toes so that they'll get an excuse to
BB> harass yet another newbie poster. I've never seen such a newsgroup for
BB> picking on and flaming newbies as this one.
whenever someone flames the regulars for flaming newbies who don't read
the guidelines, i have one suggestion. YOU respond as kindly as you want
to ALL the newbies. we will handle the rest. of course you won't take it
on because only the regulars know perl well enough and understand why
the guidelines help. so until you are helping all those who can't help
themselves, please go code in python. in fact python.com is just the
place for you!
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: 3 Jul 2006 16:26:21 -0700
From: "AJ" <aragorn.m@gmail.com>
Subject: Win32: File Manipulation
Message-Id: <1151969181.579018.67530@75g2000cwc.googlegroups.com>
I am trying to build a script to move files between a couple of FTP
servers and I need to rename the files before I transfer them to the
second server. I am able to get them to a network directory without any
problems but I am having trouble manipulating the files once there.
Below is the code snipit I am having trouble with. Anyone have some
insight?
while ($nextname = <\\\\serverName\\shareName\\PTL\\PTL*.txt>) {
#strip off .txt extension store for uses after file has been ftped
(for second rename)
print $nextname "\n";
$basename = $nextname;
print $basename " ->";
$basename =~ s#.*/##;
print $basename " ->";
$dnlname = $basename.".dnl";
print $dnlname "\n";
if ($PickFTP->Put($nextname.dnl)){
if ($PickFTP->Rename($nextname.dnl,$nextname)) {
print LOGfile "$thisDay, $thisMonth $mday, $Year, $hour:$min:$sec -
Transfer of $nextname.txt to PTL server sucessful.\n";
}
}
}
Thanks for your responses.
--AJ
------------------------------
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 9421
***************************************
