[19804] in Perl-Users-Digest
Perl-Users Digest, Issue: 1999 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Oct 24 11:05:31 2001
Date: Wed, 24 Oct 2001 08:05:11 -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: <1003935910-v10-i1999@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 24 Oct 2001 Volume: 10 Number: 1999
Today's topics:
Re: Break (Jason Kawaja)
Re: capture image <stevoarnold@yahoo.co.uk>
Re: capture image <simon.oliver@umist.ac.uk>
Re: capture image (John J. Trammell)
Re: capture image <simon.oliver@umist.ac.uk>
doing something if the previous statement was succesful <bjelkea@online.no>
Re: doing something if the previous statement was succe <bernard.el-hagin@lido-tech.net>
Re: Formatting numbers - decimal places (Graq)
Re: frage zum datum <please@no.spam>
Re: frage zum datum <please@no.spam>
Re: frage zum datum <Graham.T.Wood@oracle.com>
Re: Hiding the content of a Perl Script <dan@tuatha.sidhe.org>
Re: Hiding the content of a Perl Script <jurgenex@hotmail.com>
Jon Ericson (SJC)
Re: Jon Ericson <darkon@one.net>
Re: Jon Ericson (Tad McClellan)
Re: Jon Ericson (Lex Thoonen)
matching (Lex Thoonen)
Re: Net::DNZ zone tranfer to file (Eric Clope)
Newbie alert <nobody@nowhere.com>
Re: Newbie alert <simon.oliver@umist.ac.uk>
Re: Split on Win32 (Gregski)
Time calculation <martin@ppmedia.at>
Wanted: S.W.I.F.T. message parsing module (Markus Sonderegger)
Re: What exactly will "make install" do for my module? <edgue@web.de>
Re: What exactly will "make install" do for my module? <mgjv@tradingpost.com.au>
Re: What exactly will "make install" do for my module? <bernard.el-hagin@lido-tech.net>
Re: What exactly will "make install" do for my module? <paule.p-deleteme-@gmx.de>
Re: What the **** is WRONG with this!? (Tad McClellan)
Re: What's wrong with File::Find <dtweed@acm.org>
Re: What's wrong with File::Find brianr@liffe.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 24 Oct 2001 13:02:12 +0000 (UTC)
From: kawaja@ece.ufl.edu (Jason Kawaja)
Subject: Re: Break
Message-Id: <slrn9tdevh.npv.kawaja@kawaja.ece.ufl.edu>
previously, Brady Doll <gte574u@prism.gatech.edu> wrote:
> Is there some way to exit early from a while, foreach, for, etc. loop like
> the break statement in c?
perldoc -f last
--
/* Regards,
Jason Kawaja, UF-ECE Sys Admin */
------------------------------
Date: Wed, 24 Oct 2001 14:07:15 +0100
From: "Steve" <stevoarnold@yahoo.co.uk>
Subject: Re: capture image
Message-Id: <9r6ekn$rmh$1@pheidippides.axion.bt.co.uk>
"huan" <pydc@hotmail.com> wrote in message news:3bd6afae_2@news.tm.net.my...
> hi,
>
> i want to know how to capture an image from internet using perl, i have
some
> codes below, but it seem not work:-
>
>
> #!/usr/bin/perl -w
> use LWP::Simple;
>
> print "Content-Type: image/gif\n\n";
> $content = get("http://xxx.com/xxx.jpg");
> print $content;
> exit;
>
>
>
I'm a bit of a newbie round these parts, but does it matter that you have
tried to capture a jpg file when in the line " print "Content-Type:
image/gif\n\n";" you are actually calling a gif?
although i have not attempted this myself, i would be interested to know if
it does make a difference.
------------------------------
Date: Wed, 24 Oct 2001 14:27:41 +0100
From: Simon Oliver <simon.oliver@umist.ac.uk>
To: huan <pydc@hotmail.com>
Subject: Re: capture image
Message-Id: <3BD6C1CD.AC5EB1EE@umist.ac.uk>
#!/usr/bin/perl -w
use LWP::Simple;
$content = get('http://xxx.com/xxx.jpg');
binmode STDOUT;
print $content;
use like so:
#getcontent.pl > xxx.jpg
> print "Content-Type: image/gif\n\n";
wrong: for generating a http response
> print $content;
may need to binmode before using this
--
Simon Oliver
------------------------------
Date: Wed, 24 Oct 2001 08:59:16 -0500
From: trammell@haqq.hypersloth.invalid (John J. Trammell)
Subject: Re: capture image
Message-Id: <slrn9tdi9k.4ie.trammell@haqq.hypersloth.net>
On Wed, 24 Oct 2001 20:17:19 +0800, huan <pydc@hotmail.com> wrote:
>
> $content = get("http://xxx.com/xxx.jpg");
>
Dude, you gotta lay off the pr0n.
------------------------------
Date: Wed, 24 Oct 2001 15:13:52 +0100
From: Simon Oliver <simon.oliver@umist.ac.uk>
To: Steve <stevoarnold@yahoo.co.uk>
Subject: Re: capture image
Message-Id: <3BD6CCA0.F9195BF9@umist.ac.uk>
> I'm a bit of a newbie round these parts, but does it matter that you have
> tried to capture a jpg file when in the line " print "Content-Type:
> image/gif\n\n";" you are actually calling a gif?
As I said this line is irrelevent unless one is trying to generate http
content.
And if one was then yes it should read "Content-Type: image/jpg\n\n"
--
Simon Oliver
------------------------------
Date: Wed, 24 Oct 2001 13:18:08 GMT
From: "Alexander Bjelke" <bjelkea@online.no>
Subject: doing something if the previous statement was succesfull
Message-Id: <kczB7.146$Xnm.170360832@news.telia.no>
I have this (untested) function:
sub delete {
chdir $dir_hash{$srvservice} or warn "Cant chdir to
$dir_hash{$srvservice}: $!\n";
foreach $file (<*.*>) {
unlink $file or warn "Having trouble deleting file $file : $!\n";
}
}
What I want to do is to change the directory, and then delete files in that
directory.
However I don't want the deleting to take place if the chdir was not
succefull. How can I make sure that the deleting only happens if the chdir
was ok?
Thanks!
------------------------------
Date: 24 Oct 2001 13:21:43 GMT
From: Bernard El-Hagin <bernard.el-hagin@lido-tech.net>
Subject: Re: doing something if the previous statement was succesfull
Message-Id: <slrn9tdfn1.3nk.bernard.el-hagin@gdndev25.lido-tech>
On Wed, 24 Oct 2001 13:18:08 GMT, Alexander Bjelke <bjelkea@online.no> wrote:
> I have this (untested) function:
>
> sub delete {
> chdir $dir_hash{$srvservice} or warn "Cant chdir to
> $dir_hash{$srvservice}: $!\n";
> foreach $file (<*.*>) {
> unlink $file or warn "Having trouble deleting file $file : $!\n";
> }
> }
>
> What I want to do is to change the directory, and then delete files in that
> directory.
>
> However I don't want the deleting to take place if the chdir was not
> succefull. How can I make sure that the deleting only happens if the chdir
> was ok?
chdir returns a true value if it is successful and a false value if
it's not. So just pop the chdir into an if:
if( chdir $dir_hash{$srvservice} ){
foreach $file (){}
}
else{
warn "Can't chdir to $dir_hash{$srvservice}: $!\n";
}
Cheers,
Bernard
------------------------------
Date: 24 Oct 2001 07:15:09 -0700
From: graq@graq.co.uk (Graq)
Subject: Re: Formatting numbers - decimal places
Message-Id: <1464fd0a.0110240615.62f89bd7@posting.google.com>
"Tomas" <tomboss2@hotmail.com> wrote in message news:<9r65pk$u3b$1@kermit.esat.net>...
> New to Perl so bear with me...
> I have a share feed that I am outputting on a web site. The information
> comes as a number to 2 decimal places most of the time but sometimes comes
> with only 1 decimal place when it is a round number... e.g. it could be
> 54.63 or else 13.1
> What do I have to do to make the 13.1 output as 13.10?
> Thanks for any advice.
> Tom
Beginners always start with questions from the manual.
Try this at the command line, it's a start:
perldoc -q decimal places
And invest in a book. O'Reilly is a standard place to start.
http://www.alphabetstreet.infront.co.uk/Search.jhtml?Title=Perl&Author=&Publisher=O'Reilly&ISBN=&Type=Paperback&release_date=&ANYALL=all&Search3222=Search
Good luck, hope you enjoy Perl!
------------------------------
Date: Wed, 24 Oct 2001 13:54:47 GMT
From: Andrew Cady <please@no.spam>
Subject: Re: frage zum datum
Message-Id: <87lmi12lik.fsf@homer.cghm>
Falk P. <paule.p-deleteme-@gmx.de> writes:
OP asked how to convert:
> [2001-1-4 12:1:5]
to:
> [2001-01-04 12:01:05]
Here's one way:
s/(\D|^)(\d)(\D|$)/sprintf "$1%.2d$3", $2/eg;
HTH.
------------------------------
Date: Wed, 24 Oct 2001 13:59:06 GMT
From: Andrew Cady <please@no.spam>
Subject: Re: frage zum datum
Message-Id: <87hesp2lbd.fsf@homer.cghm>
Andrew Cady <please@no.spam> writes:
> Falk P. <paule.p-deleteme-@gmx.de> writes:
>
> OP asked how to convert:
>
> > [2001-1-4 12:1:5]
>
> to:
>
> > [2001-01-04 12:01:05]
>
> Here's one way:
>
> s/(\D|^)(\d)(\D|$)/sprintf "$1%.2d$3", $2/eg;
>
> HTH.
Erm, or just:
s/(\D|^)(\d\D|$)/${1}0${2}/eg;
------------------------------
Date: Wed, 24 Oct 2001 15:57:26 +0100
From: Graham Wood <Graham.T.Wood@oracle.com>
Subject: Re: frage zum datum
Message-Id: <3BD6D6D6.9BF11BAC@oracle.com>
This is a multi-part message in MIME format.
--------------FC3CB888D6EFFB47D09B260F
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit
"Falk P." wrote:
> hi,
>
> ein kurze frage:
>
> wie kann ich am elegantesten aus diesem datum (yyyy-mm-dd hh-mm-ss):
>
> [2001-1-4 12:1:5]
>
> dieses:
>
> [2001-01-04 12:01:05]
>
> erzeugen? (Oder von vornherein 2-stellige angaben erhalten?)
>
> vielen dank!
Not certain I understood the question but this might help.
$date= "[2001-1-4 12:1:5]";
(@numbers)=$date =~ /(\d{4})-(\d+)-(\d+) (\d+):(\d+):(\d+)/;
$new_date=sprintf("[%d-%02d-%02d %02d:%02d:%02d]",@numbers);
print "OLD $date\n";
print "New $new_date\n";
Graham Wood
--------------FC3CB888D6EFFB47D09B260F
Content-Type: text/x-vcard; charset=UTF-8;
name="Graham.T.Wood.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Graham Wood
Content-Disposition: attachment;
filename="Graham.T.Wood.vcf"
begin:vcard
n:;Graham
x-mozilla-html:FALSE
adr:;;;;;;
version:2.1
email;internet:Graham.T.Wood@oracle.com
fn:Graham Wood
end:vcard
--------------FC3CB888D6EFFB47D09B260F--
------------------------------
Date: Wed, 24 Oct 2001 14:46:05 GMT
From: Dan Sugalski <dan@tuatha.sidhe.org>
Subject: Re: Hiding the content of a Perl Script
Message-Id: <NuAB7.123626$NT3.12895051@news1.rdc1.ct.home.com>
Kalin <kalin@vivax-tech.com> wrote:
> Hi,
> I'm working on a project that requires the content of the Perl Scripts
> not to be seen. I was wondering if there is a way to do that?
A perfect application for ACME::Bleach.
Dan
------------------------------
Date: Wed, 24 Oct 2001 07:52:28 -0700
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Hiding the content of a Perl Script
Message-Id: <3bd6d5b1@news.microsoft.com>
"Kalin" <kalin@vivax-tech.com> wrote in message
news:3d878861.0110232358.5ab3d1bb@posting.google.com...
> I'm working on a project that requires the content of the Perl Scripts
> not to be seen. I was wondering if there is a way to do that?
>
> Let me know if you know a solution.
RTFM!
This very question with almost exactly the same wording in the subject had
been asked just 2 or 3 days ago. Don't you read before you write?
In any case, it's also a FAQ.
"perldoc -q hide" would have told you quite a bit about it
jue
------------------------------
Date: 24 Oct 2001 07:02:10 -0700
From: cooperste@hotmail.com (SJC)
Subject: Jon Ericson
Message-Id: <143f4c01.0110240602.114c1450@posting.google.com>
Hi
What do you think of this Jon Ericson?
Personally I think he is a idiot. What do yo think? Lets have your opinion?
Who thinks he should be banned?
Thanks
SJC
------------------------------
Date: Wed, 24 Oct 2001 14:48:51 -0000
From: David Wall <darkon@one.net>
Subject: Re: Jon Ericson
Message-Id: <Xns91446DEBB25CDdarkononenet@207.126.101.97>
cooperste@hotmail.com (SJC) wrote on 24 Oct 2001:
>
> What do you think of this Jon Ericson?
>
> Personally I think he is a idiot. What do yo think? Lets have your
> opinion?
>
> Who thinks he should be banned?
Error: No Perl content found in post Subject="Jon Ericson" in
comp.lang.perl.misc on 24 Oct 2001
------------------------------
Date: Wed, 24 Oct 2001 14:57:29 GMT
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Jon Ericson
Message-Id: <slrn9tdio3.mat.tadmc@tadmc26.august.net>
SJC <cooperste@hotmail.com> wrote:
>
>What do you think of this Jon Ericson?
^^^^
What "this"?
You did not quote anything he said.
You did not include a References header that leads to anything he said.
>Personally I think he is a idiot.
What did he do that led you to believe that?
You have not told us what on Earth you are talking about!
>What do yo think?
I think I see a killfile entry here somewhere.
>Lets have your opinion?
I have no opinion on Jon Ericson because you have given no
indication of what you are talking about.
I have an opinion about another poster in this thread though.
>Who thinks he should be banned?
And who would do this "banning"?
clp.misc is an unmoderated newsgroup, there are no controls on
who is allowed to post here. Banning him is impossible, which
renders your question moot.
You can make a killfile entry for him if you do not want to see
his articles, kinda like I am now going to make for you. So long.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 24 Oct 2001 15:03:16 GMT
From: lex@nospam.peng.nl (Lex Thoonen)
Subject: Re: Jon Ericson
Message-Id: <3bd6d806.78385975@news>
Then, completely unexpected, on Wed, 24 Oct 2001 14:57:29 GMT,
tadmc@augustmail.com (Tad McClellan) turned around and said:
>
>You can make a killfile entry for him if you do not want to see
>his articles, kinda like I am now going to make for you. So long.
>
For who exactly? :-)
Lex
------------------------------
Date: Wed, 24 Oct 2001 14:45:08 GMT
From: lex@nospam.peng.nl (Lex Thoonen)
Subject: matching
Message-Id: <3bd6d2ec.77079640@news>
Hi,
I've got the following code:
foreach $key (keys %delete_list) {
my $dir = $build_photo_path;
my (@files) = ();
&header;
opendir(DIR, $dir) || &err("can't open : $!");
@files = grep { /$key\.*/i } readdir(DIR);
closedir(DIR);
if ($#files > -1) {
foreach (@files) {
unlink("$dir/$_") || &err("can't delete $_ : $!");
}
}
}
But I have one problem...
$key can be a number, an id from my database.
Any of these numbers can have images in a folder:
for example: 19a.jpg 19b.gif 19c.JpeG
The problem is the a, b and the c
What I would like this script to do is:
check for all records that are 19 ($key) followed directly with a
letter. (so, don't take 191a.jpg for example)
Delete them
How do I do that?
Thanks for any help or pointing in the good direction!
Lex
http://www.peng.nl
------------------------------
Date: 24 Oct 2001 07:25:26 -0700
From: cell_x@hotmail.com (Eric Clope)
Subject: Re: Net::DNZ zone tranfer to file
Message-Id: <bc06032.0110240625.4a2c7b29@posting.google.com>
Well that worked! thanks for the script and the perldoc reference
=)
eric
------------------------------
Date: Wed, 24 Oct 2001 23:41:43 +1000
From: "Gregory Toomey" <nobody@nowhere.com>
Subject: Newbie alert
Message-Id: <0wzB7.1456$c5.18463@newsfeeds.bigpond.com>
"huan" <pydc@hotmail.com> wrote in message news:3bd6afae_2@news.tm.net.my...
> hi,
>
> i want to know how to capture an image from internet using perl, i have
some
> codes below, but it seem not work:-
>
>
> #!/usr/bin/perl -w
> use LWP::Simple;
>
> print "Content-Type: image/gif\n\n";
> $content = get("http://xxx.com/xxx.jpg");
> print $content;
> exit;
>
>
>
Woah! You don't understand how ftp and http works. First get the image with
ftp
$content = get("ftp://xxx.com/xxx.jpg");
Then save it to a file, then view it in your browser.
gtoomey
------------------------------
Date: Wed, 24 Oct 2001 15:15:10 +0100
From: Simon Oliver <simon.oliver@umist.ac.uk>
To: Gregory Toomey <nobody@nowhere.com>
Subject: Re: Newbie alert
Message-Id: <3BD6CCEE.D044D96F@umist.ac.uk>
Why are you assuming he wants to ftp the file when he specified http as
the protocol?
> > $content = get("http://xxx.com/xxx.jpg");
>
> Woah! You don't understand how ftp and http works. First get the image with
> ftp
>
> $content = get("ftp://xxx.com/xxx.jpg");
>
> Then save it to a file, then view it in your browser.
------------------------------
Date: 24 Oct 2001 07:25:39 -0700
From: gregm@eit.ltd.uk (Gregski)
Subject: Re: Split on Win32
Message-Id: <dbbc3646.0110240625.63879970@posting.google.com>
Bernard, Simon,
Thanks, you're both right - it is something I overlooked - those angle
brackets!! However why does it work, and why does the output look as
though it splits on whitespace?
Greg
------------------------------
Date: Wed, 24 Oct 2001 16:26:39 +0200
From: Martin <martin@ppmedia.at>
Subject: Time calculation
Message-Id: <3BD6CF9F.2050509@ppmedia.at>
hi to all
I hav a problem with GWT
i use the following code:
use DateTime::Precise;
my $midnight = DateTime::Precise -> new();
my $day = $now -> day;
my $month = $now -> month;
my $year = $now -> year;
$midnight -> set_from_datetime(qq($year.$month.$day 00:00:01));
$search_start = sprintf("%d", $midnight -> unix_seconds_since_epoch);
$date_start_string = localtime($search_start);
$date_start_string is Wed Oct 24 02:00:01 2001
do anyone know how to get local timezone and not greanwich time back ?
Thanks
Martin
------------------------------
Date: 24 Oct 2001 06:58:48 -0700
From: markus.sonderegger@juliusbaer.com (Markus Sonderegger)
Subject: Wanted: S.W.I.F.T. message parsing module
Message-Id: <cc47c455.0110240558.3b8d8e4b@posting.google.com>
SWIFT is ..
The Society for Worldwide Inter-bank Financial Telecommunication
(S.W.I.F.T.)
The only source i found was on
http://www.trema.com/finance_online/98/4/FK_import_export_tool.html
but it looks like it is not free and part of a bigger SW product.
Thanks for any hints
Markus
------------------------------
Date: Wed, 24 Oct 2001 15:20:03 +0200
From: Edwin =?iso-8859-1?Q?G=FCnthner?= <edgue@web.de>
Subject: Re: What exactly will "make install" do for my module?
Message-Id: <3BD6C003.AB61C117@web.de>
Bernard El-Hagin wrote:
> Missed that, but it doesn't mean you have to bitch about it.
Didnt want to bitch around - I just forgot the ";-)"
------------------------------
Date: Wed, 24 Oct 2001 23:24:07 +1000
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: What exactly will "make install" do for my module?
Message-Id: <slrn9tdg7n.vco.mgjv@martien.heliotrope.home>
On 24 Oct 2001 13:02:41 GMT,
Bernard El-Hagin <bernard.el-hagin@lido-tech.net> wrote:
> On Wed, 24 Oct 2001 14:55:45 +0200, Edwin Günthner <edgue@web.de> wrote:
>>
>>
>> Bernard El-Hagin wrote:
>>
>>> And where in the subject is it stated that "my module" will
>>> require a C compiler?
>>
>> Maybe your glasses require cleaning ... just have a look
>> what I wrote in my first posting:
>>
>> "I developped a new module that needs to run on a lot of OS/2
>> machines. All those machines do not have make/gcc installed,
>> [I need gcc to compile some xs stuff] so there is no way ..."
>
> Missed that, but it doesn't mean you have to bitch about it.
He wasn't bitching about it. He was stating that he had clearly outlaid
the problem and the parameters in the original post, which is exactly
what he did.
> You got an answer to your question and had to make a smart arse
> response even though it was completely unnecessary. Well sod off, then.
Pretty extreme reaction, seeing that _you_ were the one that misread the
post. All he did was gently, and with a smiley point out to you that you
missed something. All _you_ had to do was go back to the original post,
and reread it.
> *plonk*
Maybe time for some sleep? or coffee?
Martien
--
|
Martien Verbruggen | This matter is best disposed of from
| a great height, over water.
|
------------------------------
Date: 24 Oct 2001 13:28:56 GMT
From: Bernard El-Hagin <bernard.el-hagin@lido-tech.net>
Subject: Re: What exactly will "make install" do for my module?
Message-Id: <slrn9tdg4k.3nk.bernard.el-hagin@gdndev25.lido-tech>
On Wed, 24 Oct 2001 23:24:07 +1000, Martien Verbruggen
<mgjv@tradingpost.com.au> wrote:
> On 24 Oct 2001 13:02:41 GMT,
> Bernard El-Hagin <bernard.el-hagin@lido-tech.net> wrote:
>> On Wed, 24 Oct 2001 14:55:45 +0200, Edwin Günthner <edgue@web.de> wrote:
>>>
>>>
>>> Bernard El-Hagin wrote:
>>>
>>>> And where in the subject is it stated that "my module" will
>>>> require a C compiler?
>>>
>>> Maybe your glasses require cleaning ... just have a look
>>> what I wrote in my first posting:
>>>
>>> "I developped a new module that needs to run on a lot of OS/2
>>> machines. All those machines do not have make/gcc installed,
>>> [I need gcc to compile some xs stuff] so there is no way ..."
>>
>> Missed that, but it doesn't mean you have to bitch about it.
>
> He wasn't bitching about it. He was stating that he had clearly outlaid
> the problem and the parameters in the original post, which is exactly
> what he did.
The reason I classified it as bitching was that it had no bearing
on the correctness of my answer and was unnecessary.
>> You got an answer to your question and had to make a smart arse
>> response even though it was completely unnecessary. Well sod off, then.
>
> Pretty extreme reaction, seeing that _you_ were the one that misread the
> post. All he did was gently, and with a smiley point out to you that you
> missed something. All _you_ had to do was go back to the original post,
> and reread it.
I missed a whole sentence. What makes you think i didn't miss the smiley?
;-)
>> *plonk*
>
> Maybe time for some sleep? or coffee?
Quite. Bad day at the office.
Anyway, I had a private exchange with Mr Günthner and I apologised
to him there. I do so publically now, as well.
*unplonk* :-)
Cheers,
Bernard
------------------------------
Date: Wed, 24 Oct 2001 16:35:20 +0200
From: Falk P. <paule.p-deleteme-@gmx.de>
Subject: Re: What exactly will "make install" do for my module?
Message-Id: <bckdttoqraesqk96bp9121jjemq9fta77d@4ax.com>
hi,
>Anyway, I had a private exchange with Mr Günthner and I apologised
>to him there. I do so publically now, as well.
nice boy :)
cheers!
------------------------------
Date: Wed, 24 Oct 2001 13:44:39 GMT
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: What the **** is WRONG with this!?
Message-Id: <slrn9tde6l.m01.tadmc@tadmc26.august.net>
Graham W. Boyes <me@REMOVETHIStoao.net> wrote:
>Jason Kohles, you are hereby charged with writing the following:
>> But you aren't talking to an ftp server, you are talking to a shell,
>> otherwise it would have worked.
>
>Ahhhhh...I have much to learn about Linux :)
^^^^^^^^^^^^^^^^^
Note that what you learned above has nothing to do with Linux though.
You can talk to FTP servers and shells with Windoze too.
So you have much to learn about how computers communicate
(with each other (ftp), and with their users (shell)). :-)
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 24 Oct 2001 13:20:04 GMT
From: Dave Tweed <dtweed@acm.org>
Subject: Re: What's wrong with File::Find
Message-Id: <3BD6BEA1.1C8BEFBE@acm.org>
"Alexander Farber (EED)" wrote:
> I think it lacks a possibility to pass arguments to
> the wanted subroutine - like find ({wanted => \&mysub,
> args => \@myargs}, '/', '/tmp');
Why not this? (untested)
find (sub {mysub (@myargs)}, '/', '/tmp');
-- Dave Tweed
------------------------------
Date: 24 Oct 2001 14:27:37 +0100
From: brianr@liffe.com
Subject: Re: What's wrong with File::Find
Message-Id: <vtpu7djhh2.fsf@liffe.com>
"Alexander Farber (EED)" <eedalf@eed.ericsson.se> writes:
> Hi,
>
> I think it lacks a possibility to pass arguments to
> the wanted subroutine - like find ({wanted => \&mysub,
> args => \@myargs}, '/', '/tmp');
>
> and that's why I have to use global variables or closures - for example
> when I'm trying to recursively parse some files and put extracted data
> into a data structure - I have to make this data structure global. Or
> do I misunderstand something?
Although your suggestion sounds interesting, I think that the following
has the same effect:
find(sub { mysub(@myargs) }, '/', '/tmp');
HTH
--
Brian Raven
Oh, get ahold of yourself. Nobody's proposing that we parse English.
-- Larry Wall in <199709032332.QAA21669@wall.org>
------------------------------
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 1999
***************************************
