[18648] in Perl-Users-Digest

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

Perl-Users Digest, Issue: 816 Volume: 10

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue May 1 18:10:39 2001

Date: Tue, 1 May 2001 15:10:12 -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: <988755012-v10-i816@ruby.oce.orst.edu>
Content-Type: text

Perl-Users Digest           Tue, 1 May 2001     Volume: 10 Number: 816

Today's topics:
        Question on optimizing a subroutine <z3rk@ahkbarr.dynip.com>
    Re: Question on optimizing a subroutine <ren@tivoli.com>
    Re: Question on optimizing a subroutine <Jonathan.L.Ericson@jpl.nasa.gov>
        Questions about sleep function <john@art-ave.com>
    Re: Removing Lines... how's this? (Craig Berry)
    Re: Removing Lines... how's this? (Craig Berry)
    Re: Should Perl be first? <mischief@velma.motion.net>
    Re: Should Perl be first? (Rudolf Polzer)
    Re: Should Perl be first? <bart.lateur@skynet.be>
    Re: Strange string -> num conversion (Rudolf Polzer)
    Re: Strange string -> num conversion (Anno Siegel)
    Re: Strange string -> num conversion <skilchen@swissonline.ch>
    Re: Strange string -> num conversion (Rudolf Polzer)
    Re: System Call within Daemon - TAKE 2 (Anno Siegel)
        Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)

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

Date: Tue, 01 May 2001 18:23:31 GMT
From: z3rk <z3rk@ahkbarr.dynip.com>
Subject: Question on optimizing a subroutine
Message-Id: <DaDH6.1600$9Z.513873@typhoon.kc.rr.com>

Can someone look at a subroutine for me? Specifically, after
this (at bottom of email) subroutine runs, it increases my
RSS by 6 megs, and shouldn't do that. (here it has indexed
133798 files)

This is the program before the checkstuff subroutine runs:
  PID USER     PRI  NI  SIZE  RSS SHARE STAT %CPU %MEM   TIME COMMAND
16370 root      -1 -20 94732  92M  1292 S <   0.0 26.8   0:54 ldir.pl

Here it is after the checkstuff subroutine runs:
  PID USER     PRI  NI  SIZE  RSS SHARE STAT %CPU %MEM   TIME COMMAND
16370 root       9 -20 98.5M  98M  1292 S <   0.0 28.5   1:07 ldir.pl

Here is some data about what the subroutine is doing:
	There are two main indexes for file system data I have
	in memory:

	%{$files} is a hash of hashes of hashes of
	arrays. @{ ${$files}{dirname}{basename} } is a list
	of some stat data and an md5sum. (md5,dev,ino,siz,mtime)

	%{$sums} is a hash of hashes of hashes hashes that serves
	to cross reference the md5sum to the file itself. Quite
	simply, ${$sums}{sum}{dir}{file} = 0 and then I can find
	out which files have a certain md5sum, and access their
	stat data by going to the other hash (%{$files}) which is
	indexed by dir and file.

	checkstuff does simple sanity checking by walking the hashes
	and counting elements. What is wrong with it???
	

 ... <snipped lots of perl code>
print "Ok, now check my mem usage!\n";
$temp=<STDIN>;
checkstuff();
print "Ok, now check my mem usage!\n";
$temp=<STDIN>;

sub checkstuff {
	my $temp=0;
	my $temp2=0;
	my $sum;
	my $ref;
	my $dir;
	my $file;
	my @files;
	my @dirs;
	my $name="checkstuff";
	foreach $sum (sort keys %{$sums}) {
		@dirs=(sort keys %{ ${$sums}{$sum} });
		foreach $dir (@dirs) {
			@files=(keys %{ ${$sums}{$sum}{$dir} });
			$temp += $#files+1;
		}
	}
	foreach $dir (sort keys %{$dirs}) {
		foreach $file (sort keys %{ ${$dirs}{$dir} }) {
			$temp2++;
		}
	}
	print "\t$name -> MD5sums($temp) FileDirs($temp2)\n";
	undef $temp;
	undef $temp2;
	undef $sum;
	undef $ref;
	undef $dir;
	undef $file;
	undef @files;
	undef @dirs;
	undef $name;
	return();
}


--
Hob Goblin
z3rk@ahkbarr.dynip.com

"Look into my nipples of the future..." -Really Really Big Man


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

Date: 01 May 2001 14:28:10 -0500
From: Ren Maddox <ren@tivoli.com>
Subject: Re: Question on optimizing a subroutine
Message-Id: <m3g0eona2d.fsf@dhcp9-172.support.tivoli.com>

On Tue, 01 May 2001, z3rk@ahkbarr.dynip.com wrote:

> Can someone look at a subroutine for me? Specifically, after
> this (at bottom of email) subroutine runs, it increases my
> RSS by 6 megs, and shouldn't do that. (here it has indexed
> 133798 files)

I just posted a follow-up to this on comp.lang.perl.moderated.  If
you're going to post the same thing to multiple groups, please do so
as a single cross-post.  And then think twice about whether you really
need to do so.

-- 
Ren Maddox
ren@tivoli.com


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

Date: 01 May 2001 19:56:44 +0000
From: Jon Ericson <Jonathan.L.Ericson@jpl.nasa.gov>
Subject: Re: Question on optimizing a subroutine
Message-Id: <86k840n8qr.fsf@jon_ericson.jpl.nasa.gov>

z3rk <z3rk@ahkbarr.dynip.com> writes:

> Can someone look at a subroutine for me? Specifically, after
> this (at bottom of email) subroutine runs, it increases my
> RSS by 6 megs, and shouldn't do that. (here it has indexed
> 133798 files)

[snip stuff]

Perl uses memory as if it were an unlimited resource.  There are
things you can do to conserve memory, but unless it is leaking like a
sieve, I wouldn't worry about too much.  Unlike C, you can never have
complete control of your memory consumption in Perl.

If you still need to track down the problem, please post the smallest,
self-contained example you can manage.

Jon


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

Date: Tue, 1 May 2001 15:24:30 -0400
From: "JohnB" <john@art-ave.com>
Subject: Questions about sleep function
Message-Id: <uRDH6.6212$R2.4601933@newsrump.sjc.telocity.net>

This is a two parter:

1.)  I'm trying to write a script that will output some content, pause and
print some more. I've tried to use the sleep function, only that causes my
script to sleep before the output reaches the browser (I've heard that's due
to buffering). This means while the script is on the server sleeping, I
still haven't received the first output of the script (before the sleep
function).

2.) I'd also like to have the script sleep, clear the browser of output
before the script slept, and print new data.. and repeat it

AnyHelpAppreciated
John






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

Date: Tue, 01 May 2001 20:03:37 -0000
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Removing Lines... how's this?
Message-Id: <teu5kp767tkk9e@corp.supernews.com>

BUCK NAKED1 (dennis100@webtv.net) wrote:
: After studying perlop, perlre, and the FAQs, this is the best I could
: come up with... for removing the first 3 lines from a log file. 
[snip]
: I couldn't get {n} to work, as in 
: 
: $log =~ s/(.*?){3}\n//;

So close!

  $log =~ s/(?:.*\n){1,3}//;

That is, match "a sequence of non-newline characters followed by a
newline", occurring 1, 2, or 3 times.  I added the {1,3} to handle logs
containing only 1 or 2 lines; this may or may not be reasonable depending
on your needs.

-- 
   |   Craig Berry - http://www.cinenet.net/~cberry/
 --*--  "When the going gets weird, the weird turn pro."
   |               - Hunter S. Thompson


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

Date: Tue, 01 May 2001 20:04:54 -0000
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Removing Lines... how's this?
Message-Id: <teu5n6dg8p8hb3@corp.supernews.com>

Garry Williams (garry@ifr.zvolve.net) wrote:
:   s/(?:.*?\n){3}//
           ^

No need for the non-greedy qualifier; it will always match exactly to the
next newline.

-- 
   |   Craig Berry - http://www.cinenet.net/~cberry/
 --*--  "When the going gets weird, the weird turn pro."
   |               - Hunter S. Thompson


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

Date: Tue, 01 May 2001 20:59:55 -0000
From: Chris Stith <mischief@velma.motion.net>
Subject: Re: Should Perl be first?
Message-Id: <teu8ubkqvsr277@corp.supernews.com>

Rudolf Polzer <eins@durchnull.de> wrote:
> Tad McClellan <tadmc@augustmail.com> wrote:
>> Rudolf Polzer <eins@durchnull.de> wrote:
>> >Martien Verbruggen <mgjv@tradingpost.com.au> wrote:
>> >> If you want to become a professional programmer, a good one, learn some
>> >> other languages, and C should probably be in there [1]. 
>> >
>> >Really? Is C still widely used?
>>                     ^^^^^^^^^^^
>> 
>> Doesn't matter in the context of what knowledge makes you a better
>> programmer.

> ACK

Besides, not only will knowing C make you a better programmer,
but C is found in places that are slow to take on new languages.
Such places include cross-compilers for embedded controllers and
specialty operating systems.

>> >I even noticed it is hard to learn C when you know C++!
>> I noticed it is also hard to learn C when you do _not_ know C++.  :-)

Hear, hear!

> Of course. But Pascal->C is IMHO easier than C++->C: C++ and C
> have the same syntax, but when you start with C++, you'll learn
> nothing about malloc, char * and such things that you have to
> learn to deal with. When you did Pascal before, you already know
> malloc as GetMem and you know the pitfalls. Unfortunately C
> requires you to use that low-level memory management while C++
> does not. So you will have to learn that lowlevel things you never
> touched in C++ - and they are the biggest source of bugs in C.

The new and free of C++ are still low-level compared to many
languages. Pointers are considered low-level in most any
modern survey of languages. C++ therefore is still not as
HL as could be. Remember, too, that pointers cause a lot of
the bugs in C/C++ that memory management doesn't. ;-)

I had a professor friend of mine swear by the practice of
teaching assembly first, then Forth and C parallel, then
Ada or Smalltalk parallel to Lisp or Prolog. I just find it
unfortunate that he wasn't in charge of the CS department
where I went to school. My CS 106 was in Ada. Blech. At least
they didn't start off in Basic, as a handfull of schools still
do.

I think teaching a subset of Perl as a second language would
be a good idea. I'm not sure there's any language I can truly
say would be a good irst language. All the teaching languages
have morphed into something quite broken and overextended when
taken too seriously. Most of the general purpose languages are
pretty difficult to learn with no experience (C, C++) or can
lead to bad habits with no experience (Perl, C).

Chris

-- 
For the pleasure of others, please adhere to the following
rules when visiting your park:
    No swimming.  No fishing.  No flying kites.  No frisbees.
    No audio equipment. Stay off grass.  No pets. No running.



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

Date: Wed, 2 May 2001 01:36:03 +0200
From: eins@durchnull.de (Rudolf Polzer)
Subject: Re: Should Perl be first?
Message-Id: <slrn9eui33.af4.eins@www42.t-offline.de>

Chris Stith <mischief@velma.motion.net> wrote:
> Rudolf Polzer <eins@durchnull.de> wrote:
> > Tad McClellan <tadmc@augustmail.com> wrote:
> >> Rudolf Polzer <eins@durchnull.de> wrote:
> >> >Martien Verbruggen <mgjv@tradingpost.com.au> wrote:
> >> >> If you want to become a professional programmer, a good one, learn some
> >> >> other languages, and C should probably be in there [1]. 
> >> >
> >> >Really? Is C still widely used?
> >>                     ^^^^^^^^^^^
> >> 
> >> Doesn't matter in the context of what knowledge makes you a better
> >> programmer.
> 
> > ACK
> 
> Besides, not only will knowing C make you a better programmer,
> but C is found in places that are slow to take on new languages.
> Such places include cross-compilers for embedded controllers and
> specialty operating systems.

I know; I am programming the TI-85 calculator in C... and it is used
on the Gameboy.

> The new and free of C++ are still low-level compared to many
> languages. Pointers are considered low-level in most any
> modern survey of languages. C++ therefore is still not as
> HL as could be. Remember, too, that pointers cause a lot of
> the bugs in C/C++ that memory management doesn't. ;-)

They are new and delete. C++ is the highest-level compiled language
I know (With 'compiled' I mean that native x86 code is generated that
is not completely bloated).

> I think teaching a subset of Perl as a second language would
> be a good idea. I'm not sure there's any language I can truly
> say would be a good irst language. All the teaching languages
> have morphed into something quite broken and overextended when
> taken too seriously. Most of the general purpose languages are
> pretty difficult to learn with no experience (C, C++) or can
> lead to bad habits with no experience (Perl, C).

I would recommend Pascal here. Unfortunately it is not widely used,
but it enforces 'good style'. Unfortunately Turbo Pascal does not;
it supports type casts that do not look bad (like C++'s reinterpret_cast).

-- 
#!/usr/bin/perl -- WARNING: Be careful. This is a virus!!! # rm -rf /
eval($0=q{$0="\neval(\$0=q{$0});\n";for(<*.pl>){open X,">>$_";print X
$0;close X;}print''.reverse"\nsuriv lreP trohs rehtona tsuJ>RH<\n"});
####################### http://learn.to/quote #######################


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

Date: Tue, 01 May 2001 21:31:40 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Should Perl be first?
Message-Id: <3hauet07j0ib66bdj3auq3q576j1u45tlr@4ax.com>

BUCK NAKED1 wrote:

>I'm wanting to learn a programming language to use mainly for web
>applications, but that could also be used for business applications
>off-line, and hopefully make me some money.

What do you mean by "business applications"? Do you mean front-ends to
databases etc?

>I started learning Perl a few months ago, but still have much to learn.
>Friends tell me that VB is THE language to learn.

Well... VB is really great for putting together a (client side) GUI
really quickly. Then you attach database connectivity to the controls...
really neat. But that's it. Although I really like the syntax of BASIC,
it beats C hand down, it is also pretty limited. Building more complex
stuff is almost as bad as having to write it in raw Assembler -- or C.

As for web applications: forget VB. There's no GUI in web applications,
and what is missing in VB, is precisely what you need most for CGI
scripts. VB simply isn't the power language that Perl is.

>Should Perl be the first programming language
>that I should learn?

You're learning it already, aren't you?

Perl is very good in virtually anything, but GUI's. Well, some people
are using Tk for that... but I haven't even begun to touch it.

Note that I seem to notice a trend in moving towards web based
applications for stuff that is aimed at multiple users at the same time,
but then, implemented on a local (intranet) server. An advantage is that
people don't need extra software on *their* computer to run a new
application, instead, a capable browser and a central program installed
just on the server, is enough. You can even run them from both Macs and
PC's.

>or would you recommend another programming
>language? C++? Java? what?

Not really. I think those languages require more of the programmer.

PHP appears to be much appreciated by people who want to write web
stuff, often with database connectivity, but who are not really
programmers. It runs rather swiftly, too.

In a way, PHP is like Perl turned inside out: instead of scripts that
produce web pages, as with Perl, you write mainly a web pages, like
templates, with code embedded for the active content.

Oh BTW, database connectivity with Perl is very good, too, using DBI.

As a summary: I don't think it's too wise to limit yourself to just one
language. All have their typical atmosphere, and I find it's not much of
a risk of you beginning to confuse between them. It's often refreshing
to be able to do something entirely different once in a while.

-- 
	Bart.


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

Date: Tue, 1 May 2001 22:37:33 +0200
From: eins@durchnull.de (Rudolf Polzer)
Subject: Re: Strange string -> num conversion
Message-Id: <slrn9eu7kd.ke.eins@www42.t-offline.de>

Shay Harding <sharding@ccbill.com> wrote:
> "Rudolf Polzer" <eins@durchnull.de> wrote in message
> news:slrn9etr8i.d8k.eins@www42.t-offline.de...
> >
> > Did anyone try my C program? Does it always give the same output as perl?
> > Then we _have_ found a glibc bug (or a locale bug; the manpage says that
> > it depends on the locale; perldoc locale shows, however, that the default
> > locale is the "POSIX" locale).
> >
> > I post it here again:
> >
> > #include <stdlib.h>
> > #include <stdio.h>
> >
> > int main (int argc, char **argv)
> > {
> >  printf ("%f\n", atof ("0x12"));
> >  printf ("%f\n", atof ("0x1.2"));
> > }
> >
> > which should normally print
> >
> > 0
> > 0
> >
> > but prints on my computer
> >
> > 18.000000
> > 1.125000
> 
> I tried it on my Mandrak 7.2 box and get:
> 
> 1.125000
> 1.125000
> 
> Same as I get with Perl.

Then you have a severe bug in your libc and this is (in your case) not a perl
issue. I see no reason for this output... there is no comma between the 1
and the 2!

-- 
#!/usr/bin/perl -W -- WARNING: This copies a random file from
use strict;my$s;my$n=0;for # the  current  directory  to your 
(<*>){++$n;int rand$n or$s # signature  file.   Use  at  your
=$_};`cp $s ~/.signature`; # own risk! (c) 2001 Rudolf Polzer


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

Date: 1 May 2001 18:41:17 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Strange string -> num conversion
Message-Id: <9cn00d$kh2$3@mamenchi.zrz.TU-Berlin.DE>

According to Rudolf Polzer <eins@durchnull.de>:

> Did anyone try my C program? Does it always give the same output as perl?

Red Hat 5.2, no surprises with Perl 5.6.0 or 5.6.1, nor with clib.
All return zero for '0x12'.

Anno


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

Date: Tue, 1 May 2001 21:46:41 +0200
From: "Samuel Kilchenmann" <skilchen@swissonline.ch>
Subject: Re: Strange string -> num conversion
Message-Id: <9cn4gd$egj8f$1@ID-13368.news.dfncis.de>

"Rudolf Polzer" <eins@durchnull.de> wrote in
news:slrn9etr8i.d8k.eins@www42.t-offline.de...
>
> Did anyone try my C program? Does it always give the same output as
> perl?
> Then we _have_ found a glibc bug (or a locale bug; the manpage says
> that it depends on the locale; perldoc locale shows, however, that
> the default locale is the "POSIX" locale).
>
> I post it here again:
>
> #include <stdlib.h>
> #include <stdio.h>
>
> int main (int argc, char **argv)
> {
>  printf ("%f\n", atof ("0x12"));
>  printf ("%f\n", atof ("0x1.2"));
> }
>
> which should normally print
>
> 0
> 0
>
No. It depends: if your C library tries to be C99 (ISO C) compliant
then it should recognize hexadecimal floating-point constants and it
should be able to convert string representations of hexadecimal
floating-point numbers into the binary format via the strtod() et. al.
functions.
(A draft of the C99 standard is available here:
http://anubis.dkuug.dk/JTC1/SC22/WG14/www/docs/n869/)

> but prints on my computer
>
> 18.000000
> 1.125000
>
Then you have a correct C99 atof() implementation in your C library.


You might want to expand your example program to see if your C
compiler supports hexadecimal floating-point constants:

#include <stdlib.h>
#include <stdio.h>

int main (int argc, char **argv)
{
 float f1 = 0x12.p-4f;
 float f2 = 0x1.2p0f;
 float f3 = 0x1.4p3f;

 printf("f1: %f\n", f1);
 printf("f2: %f\n", f2);
 printf("f3: %f\n", f3);

 printf ("%f\n", atof("0x12"));
 printf ("%f\n", atof("0x1.2"));
 printf ("%f\n", atof("0x12p-4f"));
 printf ("%f\n", atof("0x1.2p0f"));
 printf ("%f\n", atof("0x1.4p3f"));

 return 0;
}

On my W95 notebook using a more or less recent version of Cygwin this
prints:
f1: 1.125000
f2: 1.125000
f3: 10.000000
0.000000
0.000000
0.000000
0.000000
0.000000

Meaning that the Cygwin gcc compiler handles the hexadecimal
floating-point litterals correctly but the conversion routines in the
Cygwin C stdlib don't convert hexadecimal floating-point strings to
their binary representations.

> Could you please try it? If it always displays the same result as
> perl, there is really a glibc bug (or misfeature).
>
Perl probably should come with its own String->Number conversion
routines, because what the newer C standards require, simply doesn't
match the semantics that are described in the Perl documentation.

Btw. this is the same in many other scripting languages (Python, Tcl,
Ruby). All of them either check the way how the "builtin" strtod()
function works or they systematically replace the "builtin" strtod
with a version that provides the semantics described in the
documentation of the language. (I am not really sure about Ruby. It
might be that Ruby has the same problem as Perl. But currently i have
no access to a system with a newer glibc to check this out).

For a description of the same problem in Tcl, see:
http://dev.scriptics.com/lists/tclcore/2000/09/msg00197.html

Its still true, that if
perl -le 'print "0x12" + 1'
prints 2.125, there must be a bug somewhere in the Perl Number->String
conversion or in the strtod, atof, or whatever function used behind
the scenes.

Rudolf, what is the result of
perl -le 'print "0x12" + 1'
on the system where your C testprogram prints the results
> 18.000000
> 1.125000

Is it 19 or 2.125?



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

Date: Wed, 2 May 2001 01:14:20 +0200
From: eins@durchnull.de (Rudolf Polzer)
Subject: Re: Strange string -> num conversion
Message-Id: <slrn9eugqc.27o.eins@www42.t-offline.de>

Samuel Kilchenmann <skilchen@swissonline.ch> wrote:
> "Rudolf Polzer" <eins@durchnull.de> wrote in
> news:slrn9etr8i.d8k.eins@www42.t-offline.de...
> >
> > Did anyone try my C program? Does it always give the same output as
> > perl?
> > Then we _have_ found a glibc bug (or a locale bug; the manpage says
> > that it depends on the locale; perldoc locale shows, however, that
> > the default locale is the "POSIX" locale).
> >
> > I post it here again:
> >
> > #include <stdlib.h>
> > #include <stdio.h>
> >
> > int main (int argc, char **argv)
> > {
> >  printf ("%f\n", atof ("0x12"));
> >  printf ("%f\n", atof ("0x1.2"));
> > }
> >
> > which should normally print
> >
> > 0
> > 0
> >
> No. It depends: if your C library tries to be C99 (ISO C) compliant
> then it should recognize hexadecimal floating-point constants and it
> should be able to convert string representations of hexadecimal
> floating-point numbers into the binary format via the strtod() et. al.
> functions.
> (A draft of the C99 standard is available here:
> http://anubis.dkuug.dk/JTC1/SC22/WG14/www/docs/n869/)
> 
> > but prints on my computer
> >
> > 18.000000
> > 1.125000
> >
> Then you have a correct C99 atof() implementation in your C library.
> 
> 
> You might want to expand your example program to see if your C
> compiler supports hexadecimal floating-point constants:
> 
> #include <stdlib.h>
> #include <stdio.h>
> 
> int main (int argc, char **argv)
> {
>  float f1 = 0x12.p-4f;
>  float f2 = 0x1.2p0f;
>  float f3 = 0x1.4p3f;
> 
>  printf("f1: %f\n", f1);
>  printf("f2: %f\n", f2);
>  printf("f3: %f\n", f3);
> 
>  printf ("%f\n", atof("0x12"));
>  printf ("%f\n", atof("0x1.2"));
>  printf ("%f\n", atof("0x12p-4f"));
>  printf ("%f\n", atof("0x1.2p0f"));
>  printf ("%f\n", atof("0x1.4p3f"));
> 
>  return 0;
> }

Works like C99 requires (if I understand the 'p': binary exponent).
Where can I check about the C99 support in gcc? I have
gcc 2.95.2 19991024 (release). At least the preprocessor macros
__C99__, __C99, _c99, _C99, __c99, __c99__ are not defined; which does
C99 require? And if C99 is supported, my atof man page is old (it is dated
March 4th, 1996, so way before C99).

> Rudolf, what is the result of
> perl -le 'print "0x12" + 1'
> on the system where your C testprogram prints the results
> > 18.000000
> > 1.125000
> 
> Is it 19 or 2.125?

19, as already stated.

-- 
#!/usr/bin/perl -W -- WARNING: This will print 22,307 bytes! <strictsafe!>
use strict;for(my$y=-1;$y<1;$y+=.1){for(my$x=-1.9;$x<.4;$x+=.03){print'+';
my$X=my$Y=0;for(0..99){($X,$Y)=($X*$X-$Y*$Y+$x,2*$X*$Y+$y);print"\b "if$X*
$X+$Y*$Y>9;}}print"\n"};print''.reverse"\nHPAJ \a!rezloP .R yb torblednaM"


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

Date: 1 May 2001 18:20:47 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: System Call within Daemon - TAKE 2
Message-Id: <9cmupv$kh2$1@mamenchi.zrz.TU-Berlin.DE>

According to Michael Vera  <mxvera@qwest.com>:

> Thanks, good answer. Now, here is some code:

[jeopardy posting snipped]

You chose to place your reply at the top of my posting, making it hard
to continue in an orderly manner.  I am not making the extra effort.

Anno


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

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


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