[8860] in Perl-Users-Digest
Perl-Users Digest, Issue: 2477 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat May 2 11:05:46 1998
Date: Sat, 2 May 98 08:00:34 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 2 May 1998 Volume: 8 Number: 2477
Today's topics:
Re: 1701 days hath September (was: Re: rename funciton) (John Stanley)
Re: 1701 days hath September (was: Re: rename funciton) (Stuart McDow)
Re: 1701 days hath September (was: Re: rename funciton) <rjk@coos.dartmouth.edu>
Re: @ARGV in Win32 (Jonathan Stowe)
A bug in localtime() (Alex Dong Li)
Re: A bug in localtime() <tchrist@mox.perl.com>
Re: A bug in localtime() (Jonathan Stowe)
Re: ANSI Colour in Perl (Shawn )
Re: Confusion with new warning concerning split operato <danboo@negia.net>
Re: Confusion with new warning concerning split operato <danboo@negia.net>
Re: Confusion with new warning concerning split operato <rjk@coos.dartmouth.edu>
Re: Evaluation of hex character representation in doub (Jonathan Stowe)
Re: HELP Me PLEASE! (Jonathan Stowe)
Re: How do you call an executable file with Perl CGI? (Jonathan Stowe)
Re: HTML::Parser (Jonathan Stowe)
Re: Huge array/Win32::NetAdmin::GetUsers (Barry Roomberg)
Re: image size for jpg and/or gif <bbobb@we.be.catchin.spamz.at.europa.com>
Re: image size for jpg and/or gif (Jonathan Stowe)
Re: Man...I really need to get 'The Camel Book' this we (Jonathan Stowe)
Re: PC-based editors for Perl? (Rjack2)
Re: Perl/Wall lingo question <dformosa@st.nepean.uws.edu.au>
Re: Perl/Wall lingo question <jmuris@igr.nl>
Re: Problem evaluating scalars (Craig Berry)
Re: QRe: == vs. eq (Jonathan Stowe)
Silicon Valley: Tim O'Reilly To Speak On Open Source (Samuel Ockman)
Re: Test httpd server status (Jonathan Stowe)
Using the -- notation? (Jonas Bofjall)
Re: Win32::NetResource::AddConnection exhibiting undocu (Jonathan Stowe)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 2 May 1998 08:55:47 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: 1701 days hath September (was: Re: rename funciton)
Message-Id: <6ien2j$jip$1@news.NERO.NET>
In article <lt4sz9qqyp.fsf@asfast.com>, Lloyd Zusman <ljz@asfast.com> wrote:
>However, since c.l.p.misc will still exist, I don't see how these
>potentially non-utopian aspects of the proposed c.l.p.moderated would
>have any major effects on anyone who doesn't chose to participate in
>that new group ... assuming that this non-utopianness will come to
>pass at all.
Saying that those who are not able to participate will suffer no major
effects is a very damning admission about the value of the proposed
group. I suspect that, were you one of the excluded, your tune would be
different.
When you consider that some of the less-than-utopian aspects are not
necessary and will not serve to accomplish anything but exclude
otherwise acceptable members, there is no reason to include those
aspects.
------------------------------
Date: 2 May 1998 13:32:21 GMT
From: smcdow@arlut.utexas.edu (Stuart McDow)
Subject: Re: 1701 days hath September (was: Re: rename funciton)
Message-Id: <6if795$ia5$1@ns1.arlut.utexas.edu>
stanley@skyking.OCE.ORST.EDU (John Stanley) writes:
> Stuart McDow <smcdow@arlut.utexas.edu> wrote:
> >I'm not intending to be
> >incendiary here; I'm just trying to point out that it's a matter of
> >individual priorities.
>
> No, it is a matter of understanding how USENET groups work. All this
> touchy-feely stuff about people living in gated communitities and stuff
> is very nice, but it doesn't change how a moderated newsgroup works.
I disagree. IMO, the real point is that no one is ever forced to
participate in moderated newsgroups. If someone doesn't like moderated
newsgruops, then they don't have to subscribe. Finis. Done. It is
about individual priorities.
--
Stuart McDow Applied Research Laboratories
smcdow@arlut.utexas.edu The University of Texas at Austin
"It is obvious that about 750,000 people ago, Austin was a wonderful City."
------------------------------
Date: Sat, 02 May 1998 10:34:42 -0400
From: Ronald J Kimball <rjk@coos.dartmouth.edu>
Subject: Re: 1701 days hath September (was: Re: rename funciton)
Message-Id: <354B2F03.8DE651EE@coos.dartmouth.edu>
John Stanley wrote:
>
> In article <lt4sz9qqyp.fsf@asfast.com>, Lloyd Zusman <ljz@asfast.com> wrote:
> >However, since c.l.p.misc will still exist, I don't see how these
> >potentially non-utopian aspects of the proposed c.l.p.moderated would
> >have any major effects on anyone who doesn't chose to participate in
> >that new group ... assuming that this non-utopianness will come to
> >pass at all.
>
> Saying that those who are not able to participate will suffer no major
> effects is a very damning admission about the value of the proposed
> group. I suspect that, were you one of the excluded, your tune would be
> different.
Yes, but that's not what he said, is it? What he said was that anyone who
*chooses not to participate* will suffer no major effects.
There are already many people who *choose not to participate* in
comp.lang.perl.misc. Is that a very damning admission about the value of this
group? (Actually, it probably is - hence the desire for a moderated newsgroup!)
John, I know it's much harder to do, but could you try to prove your point
without twisting other people's words around?
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J. Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Fri, 01 May 1998 05:22:05 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: @ARGV in Win32
Message-Id: <354953c5.13618653@news.btinternet.com>
On 1 May 1998 14:14:21 -0600, johnnie@NOPERSONALMAIL.edu wrote :
>How about this? :)
>
>--- Code starts
>print "@ARGV\n";
>--- Code ends
>
>From the command line this should (will) work fine. All bets are off
however if you are running this as a CGI in which case you had better
consult some documentation on the subject.
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Sat, 02 May 1998 13:48:44 GMT
From: lidong@globalserve.net (Alex Dong Li)
Subject: A bug in localtime()
Message-Id: <6ifbmb$i6q$1@titan.globalserve.net>
Has anyone noticed a bug in function localtime()?
My system clock is right, but localtime() returns a wrong month value.
Alex
Testing code:
#!/usr/local/bin/perl
&GetTime();
sub GetTime {
local($second, $minute, $hour, $day, $month, $year, $weekday, $yearday,
$flag);
($second, $minute, $hour, $day, $month, $year, $weekday, $yearday,
$flag)=localtime(time());
print "$second, $minute, $hour, $day, $month, $year, $weekday, $yearday,
$flag\n";
}
------------------------------
Date: 2 May 1998 14:03:42 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: A bug in localtime()
Message-Id: <6if93u$b5j$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
lidong@globalserve.net (Alex Dong Li) writes:
:Has anyone noticed a bug in function localtime()?
No, but we've noticed millions of people thinking they did.
:My system clock is right, but localtime() returns a wrong month value.
You have a peculiar idea of right and wrong. Please consult
your documentation for an explanation. Hint: think array
offset addressing.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
"That government is best which governs not at all."
--Henry David Thoreau
------------------------------
Date: Fri, 01 May 1998 05:22:01 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: A bug in localtime()
Message-Id: <354950f5.12898477@news.btinternet.com>
On Sat, 02 May 1998 13:48:44 GMT, Alex Dong Li wrote :
>Has anyone noticed a bug in function localtime()?
>My system clock is right, but localtime() returns a wrong month value.
>
Works fine for me but you might re-examine the localtime
documentation:
<snip>
All array elements are numeric, and come straight out of
a struct tm. In particular this means that $mon has the
range 0..11 and $wday has the range 0..6 with sunday as
day 0. Also, $year is the number of years since 1900,
that is, $year is 123 in year 2023.
</snip>
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Sat, 02 May 1998 12:33:16 GMT
From: sweiner@usa.net (Shawn )
Subject: Re: ANSI Colour in Perl
Message-Id: <354c1276.14199067@news.wwa.com>
On 29 Apr 1998 18:14:50 GMT, Zenin <zenin@archive.rhps.org> was forced
by space aliens to write:
>Shawn <sweiner@usa.net> wrote:
>: There is at least 1 module in CPAN that I know of, located I believe
>: in the user interfaces area.
>: The name of the module is: ANSIColor-1_01.tar.gz
>
> Term::ANSIColor actually. If one scans for either 'ANSI' or
> the correct spelling of "color" on the WAIT it should be at
> the top of the list.
Sorry: I was providing the filename instead of the Package name.
(pardon me) :)
Shawn
shawn@wwa.com
shawns@wwa.com
sweiner@usa.net
slweiner@juno.com
sweiner@yahoo.com
IrunWulf@aol.com
ICQ#1925117 (visit www.mirabilis.com for more info)
------------------------------
Date: Sat, 02 May 1998 01:45:49 -0400
From: Dan Boorstein <danboo@negia.net>
Subject: Re: Confusion with new warning concerning split operator in perl5.004
Message-Id: <354AB30D.30EE49BF@negia.net>
Ronald J Kimball wrote:
>
> Dan Boorstein wrote:
> >
> > Alex Blume wrote:
> > >
> > > Under perl 5.004_04, the following code,
> > >
> > > $dash_count = split(/\-/, $test_string);
> > >
> > > now generates the warning
> > >
> > > Use of implicit split to @_ is deprecated at test.pl line 3.
> >
> > the message you are seeing is due to the split not being used in a
> > list context. if you wrap parens around $dash_count the error will
> > disappear, and you'll even have the right answer.
> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
>
> Huh?! If you wrap parens around $dash_count, then $dash_count will contain
> the first element from the split, not the number of elements.
actually, if you read beyond the point you clipped to, you will see that
it was a joke. note that the first number in his string was 3 and there
were 3 dashes. so wrapping parens around $dash_count gave it the value
3 (the right answer for the wrong reasons). it was meant to poke fun
at a recent rash of list assignment misunderstandings due to the
unsuspecting usage of "identity" arrays/lists.
so maybe it's not that funny, especially when you have to explain it.
:-)
--
Dan Boorstein home: danboo@negia.net work: danboo@y-dna.com
"THERE IS AS YET INSUFFICIENT DATA FOR A MEANINGFUL ANSWER."
- Cosmic AC
------------------------------
Date: Sat, 02 May 1998 02:14:19 -0400
From: Dan Boorstein <danboo@negia.net>
Subject: Re: Confusion with new warning concerning split operator in perl5.004
Message-Id: <354AB9BB.69D4B89B@negia.net>
Ronald J Kimball wrote:
>
> Dan Boorstein wrote:
> >
> > Alex Blume wrote:
> > >
> > > Under perl 5.004_04, the following code,
> > >
> > > $dash_count = split(/\-/, $test_string);
> > >
> > > now generates the warning
> > >
> > > Use of implicit split to @_ is deprecated at test.pl line 3.
> >
> > the message you are seeing is due to the split not being used in a
> > list context. if you wrap parens around $dash_count the error will
> > disappear, and you'll even have the right answer.
> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
>
> Huh?! If you wrap parens around $dash_count, then $dash_count will contain
> the first element from the split, not the number of elements.
>
>
> Perhaps you meant this:
>
> $dash_count = () = split(/\-/, $test_string);
no. since split 'cheats' and peeks over to the left hand side you get
an answer of 1. and even if you had an array there like:
$dash_count = @_ = split(/-/, $test_string);
you'd get the wrong answer so long as there are characters after
the last dash (as in the sample data). maybe you were thinking of:
$dash_count = () = $test_string =~ m/-/g;
--
Dan Boorstein home: danboo@negia.net work: danboo@y-dna.com
"THERE IS AS YET INSUFFICIENT DATA FOR A MEANINGFUL ANSWER."
- Cosmic AC
------------------------------
Date: Sat, 02 May 1998 10:39:19 -0400
From: Ronald J Kimball <rjk@coos.dartmouth.edu>
Subject: Re: Confusion with new warning concerning split operator in perl5.004
Message-Id: <354B3018.5151FA2C@coos.dartmouth.edu>
Dan Boorstein wrote:
>
> Ronald J Kimball wrote:
> >
> > Dan Boorstein wrote:
> > >
> > > Alex Blume wrote:
> > > >
> > > > Under perl 5.004_04, the following code,
> > > >
> > > > $dash_count = split(/\-/, $test_string);
> > > >
> > > > now generates the warning
> > > >
> > > > Use of implicit split to @_ is deprecated at test.pl line 3.
> > >
> > > the message you are seeing is due to the split not being used in a
> > > list context. if you wrap parens around $dash_count the error will
> > > disappear, and you'll even have the right answer.
> > ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
> >
> > Huh?! If you wrap parens around $dash_count, then $dash_count will contain
> > the first element from the split, not the number of elements.
>
> actually, if you read beyond the point you clipped to, you will see that
> it was a joke. note that the first number in his string was 3 and there
> were 3 dashes. so wrapping parens around $dash_count gave it the value
> 3 (the right answer for the wrong reasons). it was meant to poke fun
> at a recent rash of list assignment misunderstandings due to the
> unsuspecting usage of "identity" arrays/lists.
>
> so maybe it's not that funny, especially when you have to explain it.
> :-)
My bad! You're right, the final sentence in your paragraph, which I
unfortunately clipped, explained:
> this of course is coincidental and i recommend the following
> techniques for general purposes. ;-)
What's even funnier is that while your suggestion at least gives the right
answer for the wrong reasons, my suggestion doesn't even give the right answer.
Oops!
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J. Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Fri, 01 May 1998 04:24:45 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: Evaluation of hex character representation in double quoted strings
Message-Id: <35494b05.11697816@news.btinternet.com>
On Fri, 1 May 1998 16:08:33 +0100, Glenn Morgan wrote :
>
>Thanks for your response. I am working with a proprietary SGML DTD and many
>of the entities are non standard, therefore I suspect that HTML::Entities
>will not suffice.
>
<snip>
It might be instructive to take a look at the HTML modules nonetheless
- the distribution comes with a script called dtd2pm.pl that will
create a parser from a DTD also there is a script called ent.pl which
will take a list of SGML entities and convert them into the basic
lookup table for HTML::Entities.
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Fri, 01 May 1998 03:11:11 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: HELP Me PLEASE!
Message-Id: <35492cdb.4431678@news.btinternet.com>
On Fri, 1 May 1998 22:39:02 -0500, Alex wrote :
>Hello,
> I have a problem, I cannot chat in Java chats because I cannot type
>in the fields. I use Windows 98 1702 beta with IE. Help me, please. What is
>wrong?
>
The software incorporates a heuristic technique to determine if you
are ready to use the internet and it appears that in your case it has
determined against you. I'm sorry.
<cross-posts removed>
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Fri, 01 May 1998 03:11:13 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: How do you call an executable file with Perl CGI?
Message-Id: <35492e07.4731623@news.btinternet.com>
On Fri, 01 May 1998 20:33:05 -0600, mhannam@gardner-webb.edu wrote :
>How might one go about invoking a small executable file that resides on a
>server with a CGI script? Can it be done?
>
>Win32::Process::Create($Process,
> "c:\\windows\\ledoff.exe",
> "ledoff",
> "0",
> "DETACHED_PROCESS",
> "." ) || die "Create:$!";
>
>This works fine until I try it with CGI. Any help you can afford me would be
>fantastic. Thanks. Matt
>
Nothing to do with Perl of course. You might want to check out the
permissions of your IUSR_<server name> user however. Using system()
actually does work under most circumstatnces.
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Fri, 01 May 1998 03:11:09 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: HTML::Parser
Message-Id: <35492aa3.3863314@news.btinternet.com>
On Fri, 01 May 1998 15:14:08 -0600, carruda@propub2.com wrote :
>I'm having problems getting the output from the
>HTML Parser module. I get "HTML::Parser=HASH(0x7432b4)"
>as the result.
>
>How do I get the output from the code below to be readable as
>a group of variables (i.e. $tag,$attr,$attrseq,$origtext)?
>
>I've tried the sample code from the "readme" file
>and it has the same results.
>
>###################
>use HTML::Parser;
>
>$p = HTML::Parser->new;
>$chunk = "<b>fff</b>";
>print $p->parse($chunk);
>###################
>
I think you had better review the Docs for HTML::Parser again. The
parse method sets in train the parsing process and doesnt return
anything that would be useful to print.
I have a piece of code that exemplifies the use of HTML::Parser at
<URL:http://www.btinternet.com/~gellyfish/resources/htbeauty.pl>
which, whilst not being the highest example of the state of the Perl
art, may clarify the matter.
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Sat, 02 May 1998 14:15:52 GMT
From: broomberg@nospam-ccgroupnet.com (Barry Roomberg)
Subject: Re: Huge array/Win32::NetAdmin::GetUsers
Message-Id: <354b28fa.4831402@netnews.voicenet.com>
>On Thu, 30 Apr 1998 13:41:27 -0400, "John Felso" <jfelso@att.com> wrote:
>
>>Does anyone have experience handling really really large arrays? I need to
If you check out the 2nd line on the following display, you will
see that the mem_t.pl perl script allocated 1991M (almost 2GB) on
a system that has 1GB real and 2GB swap. The actual data quantity
WITHIN the program was approximately 1GB, but I'm sure the internal
PERL structures used a bunch keeping track of it. Also, since I used
the "push" function, methinks a wasted a bunch of memory as PERL
copied things around. Who cares, the test is valid!
Note: This was running simulatenously on 2 sessions. The 2nd one
errored out from lack of memory as it attempted to allocated past the
409MB mark.
I assume I ran out of swap + memory there. Also, note this program is
being run as "root" (supervisor). When ran as a regular user, it
errors out whenever the combined processes running under that user id
passed the 1GB mark (a GOOD thing). I'm sure I can be more
restrictive on that if needed, but this is a programmer's box, which
means I should get as much memory as I want!
***************************************************************************
Top program watching the system's top processes:
***************************************************************************
load averages: 0.11, 0.18, 0.15 08:44:49
81 processes: 80 sleeping, 1 on cpu
CPU states: 98.1% idle, 0.1% user, 0.9% kernel, 0.9% iowait, 0.0%
swap
Memory: 1024M real, 285M free, 443M swap in use, 1603M swap free
PID USERNAME THR PRI NICE SIZE RES STATE TIME CPU COMMAND
8847 broom 1 3 0 1784K 584K cpu/0 2:03 2.05% top
8923 root 1 33 0 1991M 660M sleep 0:14 0.01% mem_t.pl
540 root 1 23 0 6216K 1880K sleep 0:01 0.00% dtsession
8926 root 1 -7 10 5032K 2440K sleep 0:00 0.00% dtscreen
8925 root 1 23 0 2680K 1992K sleep 0:00 0.00% dtexec
403 root 1 34 0 10M 3240K sleep 0:09 0.00% Xsun
320 root 1 34 0 2544K 696K sleep 0:06 0.00% nsrd
175 root 1 34 0 2008K 808K sleep 0:04 0.00% rpcbind
539 root 4 34 0 3888K 1928K sleep 0:02 0.00% ttsession
547 root 5 34 0 6936K 1736K sleep 0:01 0.00% dtwm
552 root 1 -15 0 1600K 768K sleep 0:00 0.00%
sdtvolcheck
568 root 1 -13 0 816K 528K sleep 0:00 0.00% cat
8815 root 1 9 0 1520K 0K sleep 0:00 0.00% in.rlogind
963 root 1 9 0 288K 0K sleep 0:00 0.00% sh
8836 root 1 10 0 1520K 0K sleep 0:00 0.00% in.rlogind
***************************************************************************
Output of the program:
***************************************************************************
Pushing [55]... pushed [55]
MB Used: [955]
Pushing [56]... pushed [56]
MB Used: [972]
Pushing [57]... pushed [57]
MB Used: [989]
Pushing [58]... pushed [58]
MB Used: [1006]
Pushing [59]... pushed [59]
MB Used: [1023]
Just allocated (and USED) 1023 MB
Press ENTER to end the program...
***************************************************************************
The actual program:
***************************************************************************
#!/usr/local/bin/perl
$MAX_COUNT = 60; # This blows up on 61
# as a regular user, out of memory, ie 1 GB
$SLEEP_TIME = 1;
$MB = 1024 * 1024;
#
# Read in the TERMCAP file to make sure our test data is REAL
#
open (IN, 'tcap') || die "Ca't open tcap for read - $!";
(@all) = <IN>;
close (@all);
#
# Join many copies of it together in 1 big variable
#
$big = join('',
@all, @all, @all, @all, @all, @all, @all, @all, @all, @all,
@all, @all, @all, @all, @all, @all, @all, @all, @all, @all,
@all, @all, @all, @all, @all, @all, @all, @all, @all, @all,
@all, @all, @all, @all, @all, @all, @all, @all, @all, @all,
@all, @all, @all, @all, @all, @all, @all, @all, @all, @all,
@all, @all, @all, @all, @all, @all, @all, @all, @all, @all,
@all, @all, @all, @all, @all, @all, @all, @all, @all, @all,
@all, @all, @all, @all, @all, @all, @all, @all, @all, @all,
@all, @all, @all, @all, @all, @all, @all, @all, @all, @all,
@all, @all, @all, @all, @all, @all, @all, @all, @all, @all,
@all, @all, @all, @all, @all, @all, @all, @all, @all, @all,
@all, @all, @all, @all, @all, @all, @all, @all, @all, @all,
@all, @all, @all, @all, @all, @all, @all, @all, @all, @all,
@all, @all, @all, @all, @all, @all, @all, @all, @all, @all,
@all, @all, @all, @all, @all, @all, @all, @all, @all, @all,
@all
);
$len = length($big);
print "Len = [$len]\n";
#
# loop around, pushing the variable into the array to chew through
memory
#
for ($j = 0; $j < $MAX_COUNT; $j++){
print "Pushing [$j]...";
push(@BIG_ARR, $big); # this is where it will allocate
$mb_used = int(($len * ($j+1)) / $MB);
print " pushed [$j]\n";
print " MB Used: [$mb_used]\n";
sleep($SLEEP_TIME); # slow down so I can watch it easily
}
print "Just allocated (and USED) $mb_used MB\n";
# hold on to the memory so I can
# do other things to see if the system is too slow
print "Press ENTER to end the program...\n";
<>;
------------------------------
Date: 2 May 1998 13:41:56 GMT
From: Todd Santos <bbobb@we.be.catchin.spamz.at.europa.com>
Subject: Re: image size for jpg and/or gif
Message-Id: <6if7r4$889$1@supernews.com>
Henry Wolff <admin@hatsoft.com> got drunk and puked out something along the lines of:
c[_]
# It was my impression that the PREFIX=/libs according to the perlfaq8 did
# that. I also tried PREFIX=/res/home/hatsoft/WWW/libs and the same error (You
# do not have permissions to install into
# /usr/libdata/perl5/site_perl/i386-bs) came up on the make install. What
% grep libdata Makefile*
# permission level does the /libs directory have to have? I have it set for
# rwxrwxrwx or 777.
eghk? 0755. unless you want wierd people filling your hard drive.
- Todd, back to lurking
--
In that night, I found the answer to all the mysteries of life, and lots and lots of
really good sex.
- Devil dude #4 on Millenium
------------------------------
Date: Fri, 01 May 1998 05:22:03 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: image size for jpg and/or gif
Message-Id: <354951a2.13071600@news.btinternet.com>
On 2 May 1998 13:41:56 GMT, Todd Santos wrote :
>Henry Wolff <admin@hatsoft.com> got drunk and puked out something along the lines of:
>
nice
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Fri, 01 May 1998 03:11:06 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: Man...I really need to get 'The Camel Book' this weekend.
Message-Id: <35492914.3465108@news.btinternet.com>
On 01 May 1998 16:25:18 -0500, Jonathan Feinberg wrote :
> Good luck, and have fun with the Llama.
>
Ooer ,Missus 'baint nahtural. ;-}
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: 02 May 1998 11:03:12 GMT
From: rjack2@aol.com (Rjack2)
Subject: Re: PC-based editors for Perl?
Message-Id: <1998050211031200.HAA11678@ladder01.news.aol.com>
Folks,
I would like to put in a word for Multi-Edit (http://www.multiedit.com/). It
support all the languages I work with (Perl, Java, Javascript, HTML, C).
I just click the compile button and it throws me right into the Active State
debugger. Any error messages are thrown right into the messages window and I
can click on them to go the line of source code in the right file.
It has too many great features to list them all.
Robert Jackson
------------------------------
Date: 2 May 1998 11:18:58 GMT
From: ? the platypus {aka David Formosa} <dformosa@st.nepean.uws.edu.au>
Subject: Re: Perl/Wall lingo question
Message-Id: <894107938.656444@cabal>
In <354AAB16.16D1A506@coos.dartmouth.edu> Ronald J Kimball <rjk@coos.dartmouth.edu> writes:
>John Porter wrote:
>>
>> Followup-To: jdport@min.net
>Isn't that header supposed to refer to a list of newsgroups?
If Mr Porter wished to do what its looking like he is trying to do, the
line should be.
Followup-To: Poster
--
I'm a perl programer if you need perl programing hire me.
Please excuse my spelling as I suffer from agraphia see the url. Support NoCeM
http://www.cit.nepean.uws.edu.au/~dformosa/Spelling.html http://www.cm.org/
I'm sorry but I just don't consider 'because its yucky' a convincing argument
------------------------------
Date: Sat, 2 May 1998 15:31:28 +0200
From: "Jeroen Muris" <jmuris@igr.nl>
Subject: Re: Perl/Wall lingo question
Message-Id: <354b30d0.0@care4all.nursing.nl>
brian d foy heeft geschreven in bericht ...
>In article <3549DEAC.4287@aspentech.com>, Ian Boys <boys@aspentech.com>
posted:
[...]
>also, from my physics background, i tend to think of numbers as having
>a dimension, such as mass, length, or so on (which is why i tend to
>think we're arguing semantics). "dimension" means something different
>to an algebrist and a physicist. we can argue all we want, but i think
>it comes down to how we, as individuals, perceive the world since labels
>and names tend to be arbitrary. some of us think a number represents a
>point, hence the zero dimension camp, and others think it represents an
>abstract difference, hence the one dimension camp.
[...]
>brian d foy <comdog@computerdog.com>
Let me add to the confusion.
In mathematics I was told:
* A point is dimensionless.
* A line is 2-dimensional.
* A plane is 3-dimensional.
As a land-surveyor and geodesist, I tend to look at it from this angle:
* A point can only exist if there's a dimension to put it, hence in a space
with dimension of 1 or more. It can be represented by a number (in 1
dimension), or an array (in 2 or more dimensions).
* A line has got a location and a direction, and needs 2 dimensions to
exist.
* A plane has got a location and 2 directions (if I remember my classes
well, it is actually defined by two intersecting lines), thus needing 3
dimensions.
I think the difference is in wether you look at what an object is or where
an object is found.
But if you start thinking of variables, things become ugly:
* A 'scalar' is 1-dimensional; one can put a point in it, but not a line.
This may be a bit hard to grasp, but earlier in the discussion it was stated
that a scalar can be thought to be a point.
* A 'list of scalars' one can use in several ways:
- as a list of scalars, holding a number of points in 1 dimension { @foo =
[X1, X2, X3, ...] }
- as a vector, describing the location of a point in 1, 2 or more dimensions
{ @foo = [X1, Y1, Z1, ...] }
In the first case the list acts as a space to hold points in 1 dimension,
and can be called 1-dimensional. In the latter case, the list holds points
in 1 or more dimensions. Should one call this 1-dimensional, for the
dimension of the objects, or n-dimensional, for the dimension of the space??
I think 1-dimensional.
* A 'list of lists of scalars' can be put to even more uses:
- as a list of vectors, holding a number of points in 1, 2 or more
dimensions { @foo = [[X1, Y1, Z1, ...], [X2, Y2, Z2, ...], ...] }
- as a list of two vectors, to describe location and direction of a line
(2-dimensional) in 2 or more dimensions { @foo = [[X1, Y1, ...], [dX1, dY1,
...]] }
- as a list of three vectors, holding the location and two directions to
define a plane (3-dimensional) in 3 or more dimensions { @foo = [[X1, Y1,
Z1, ...], [dX1, dY1, dZ1, ...], [d'X1, d'Y1, d'Z1, ...]] }
- as a list of as many vectors as needed to describe an object with as many
dimensions as I like
You may tell me what is the dimension of this 'list of lists of scalars' in
each of these cases.
* A 'list of lists of of lists or scalars' - no, I'll stop!
I think the dimension of a variable depends on the use one makes of it. (And
the general way to call a list 1-dimensional, a list of lists 2-dimensional,
and so on, works just fine.)
Hope to see more comments on this point (or along this line (of in this
field)).
Jeroen Muris.
------------------------------
Date: 2 May 1998 06:07:22 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Problem evaluating scalars
Message-Id: <6ied6q$aeb$1@marina.cinenet.net>
Mihails Nikitins (nikitins@infoservriga.lv) wrote:
: I'd like to substitute scalar names with its values for some pattern
: text file looking like:
: Some preformatted text $some $good $values
My favorite way is to use this substitution:
s/(\$[A-Za-z]\w*)/$1/eeg;
That will turn every place a dollar sign is followed by a letter and zero
or more word characters into the value of the variable with that name.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Fri, 01 May 1998 03:11:04 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: QRe: == vs. eq
Message-Id: <354927f9.3181860@news.btinternet.com>
On Sat, 02 May 1998 05:02:02 +0200, N i c l a s O l o f s s o n wrote
:
<snip>
>That's kind of why I like Perl too. A surtain C knowledge (and some
>basic regexp knowledge) makes educated guessing in Perl almost
>entertaining. FTM, who needs it!
>
You did WHAT to the manual?
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: 2 May 1998 06:41:21 GMT
From: ockman@pasta.penguincomputing.com (Samuel Ockman)
Subject: Silicon Valley: Tim O'Reilly To Speak On Open Source
Message-Id: <6ief6h$1k8$2@news.via.net>
On May 6th, Tim O'Reilly will speak to the Silicon Valley Linux Users
Group at 7pm. He is the CEO of O'Reilly & Associates, and the leader
of last month's Open Source Summit. He will speak on the significance
of open source software: its historical impact on developers and the
Internet, and what the future impact on the corporation might be.
Everyone is invited to the meeting.
Tim O'Reilly was the moderator of the historic Open Source Summit
where Linus Torvalds (Linux), Larry Wall (Perl), Brian Behlendorf
(Apache), Paul Vixie (Bind, Cron), Eric Raymond (Fetchmail), Tom
Paquin (Mozilla), Eric Allman (Sendmail), John Ousterhout (Tcl/Tk),
Guido van Rossum (Python), Phil Zimmerman (PGP) and others met to
confirm advantages of open source development process and agree to
cooperate in spreading the word. For more info see
http://www.oreilly.com/oreilly/press/opensource.html And also
http://www.eklektix.com/lwn/980416/a/guido-oss.html
Tim is founder and president of O'Reilly & Associates, publisher of
books on the X Window System, Linux, Unix, Perl, Java, Python and
similar subjects. Tim has had a hand in writing or editing many of
the books published by O'Reilly & Associates.
This meeting will be held at the Gateway Conference Center, Building
J, Cisco Systems. The address of the conference center is
255 W. Tasman Drive
San Jose, CA 95134
Maps and directions are at http://www.svlug.org/meetings.shtml.
Our main web page is http:///www.svlug.org
We hope to see you there.
Afterwards we'll all go out to eat.
Coming up events include...
May 16th All Day Linux-Fest at UMax (11am-4pm)
June 3 at 7pm...Larry Wall on Perl
July 1 at 7pm...Mitch Wyle on Vim and Ben Wing on XEmacs
To get announcements about the group regularly please go to
http://www.svlug.org/mdstuff/lists.shtml
--
Sam Ockman | Penguin Comptuing
(415) 722-2851 | A Different Kind of Linux Company
ockman@penguincomputing.com | Opening Our Electronic Doors in June 1998
------------------------------
Date: Fri, 01 May 1998 04:24:43 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: Test httpd server status
Message-Id: <3549429e.9874086@news.btinternet.com>
On 01 May 1998 16:12:16 -0500, Quentin Fennessy wrote :
>
> use LWP::Simple;
> $doc = get 'http://www.sn.no/libwww-perl/';
>
alternatively:
($content_type, $document_length, $modified_time, $expires, $server) =
head "http://www.blah.com/";
For slightly less overhead in getting the whole document. However the
LWP::Simple methods do not return the HTTP respomse headers so if you
actually need to capture the response code or content-type or such you
will have to use LWP::UserAgent;
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: 2 May 1998 13:17:27 GMT
From: m9418@abc.se (Jonas Bofjall)
Subject: Using the -- notation?
Message-Id: <6if6d7$btq$1@oden.abc.se>
Why doesn't this:
open(blaj, ">$ARGV[$#ARGV--]");
work like this:
open(blaj, ">$ARGV[$#ARGV]");
$#ARGV--;
It seems to work with variables other than ARGV. Is there
a more simple way to achieve the same result? I am using
a standard perl 5 bundled with Debian GNU/Linux bo.
// Jonas <job@abc.se> [2:201/262.37]
------------------------------
Date: Fri, 01 May 1998 05:22:12 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: Win32::NetResource::AddConnection exhibiting undocumented behaviour ?
Message-Id: <354954c7.13876856@news.btinternet.com>
On Fri, 01 May 1998 13:22:57 GMT, Jeffrey R. Drumm wrote :
<posted and mailed>
<snip>
>
>I also tried using opendir on a UNC for which I have rights and it failed when
>run under the scheduler. I suspect the system account just doesn't get network
>access, at least to Netware resources. Pretty bad, eh?
>
Hey, how did you know that the first thing to fail was opendir ?
I have tried running the schedule service under various accounts
including Administrator and fiddled with the user rights in various
ways, I have tried both Novell & M$ clients etc etc but that is all NT
stuff and not Perl.
What I am more concerned with here is why AddConnection is returning a
true value when it hasnt actually made the connection. The answer to
this no doubt lies in some NT bollocks though.
I'd love to be running this on a Linux machine however that netware
client aint NDS aware and I dont want to be going asking the Netware
administrator to set up umpteen separate accounts for each machine.
Ho,hum. back to the drawing board.
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 2477
**************************************
