[17798] in Perl-Users-Digest
Perl-Users Digest, Issue: 5218 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Dec 29 09:05:34 2000
Date: Fri, 29 Dec 2000 06:05:13 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <978098712-v9-i5218@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 29 Dec 2000 Volume: 9 Number: 5218
Today's topics:
about sendmail~~ <perl@dotexpress.com>
Re: about sendmail~~ (Rafael Garcia-Suarez)
bitwise operation to find the inversion of a color <adam.walton@btconnect.com>
Re: bitwise operation to find the inversion of a color <jbuff1856@my-deja.com>
Re: bitwise operation to find the inversion of a color <bart.lateur@skynet.be>
build perl 2.6.0 socket.c problem <chlai@stdhk.com>
Converting int to bin <korjonen@cc.tut.fi>
Re: Converting int to bin (Martien Verbruggen)
Re: Create time <Jerome.Abela@free.fr>
Re: Extract the nth word from a line <ebenezer@mosi.is>
Re: Extract the nth word from a line (Rafael Garcia-Suarez)
Re: Extract the nth word from a line <Jerome.Abela@free.fr>
Re: flat file database question <bart.lateur@skynet.be>
Re: HTTPS using LWP but no OpenSSL nobull@mail.com
Making a program run repeatedly <ssomneb@my-deja.com>
Re: Making a program run repeatedly <jbuff1856@my-deja.com>
Re: Making a program run repeatedly <johnm@acadiacom.net>
Re: Newbie with Session Key and META questions (Rafael Garcia-Suarez)
Re: Open a big text file ( large than 200MB ) ghorghor@my-deja.com
Re: Perl's BigInts/BigFloats (Peter J. Acklam)
Problems in writing in file ....? <jaya_j_k@hotmail.com>
R: HELP with https <artax@shineline.it>
Regular expression Stuff? <jaya_j_k@hotmail.com>
Re: Syntax for "eq" and "||" (Anno Siegel)
Re: Syntax for "eq" and "||" (Martien Verbruggen)
Re: Syntax for "eq" and "||" (Anno Siegel)
Re: Syntax for "eq" and "||" (Martien Verbruggen)
Thank You, Works Fine! <adam.walton@btconnect.com>
Unable to assign a value to an array element. <johngros@Spam.bigpond.net.au>
Re: Unable to assign a value to an array element. <johngros@Spam.bigpond.net.au>
Re: Unable to assign a value to an array element. <bart.lateur@skynet.be>
Re: Upload multi files with same source <johngros@Spam.bigpond.net.au>
Re: Where to obtain the perlrtfm podpage? (Steve)
Re: Win NT service <abe@ztreet.demon.nl>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 29 Dec 2000 16:17:44 +0800
From: "Tommy Au" <perl@dotexpress.com>
Subject: about sendmail~~
Message-Id: <92hh91$pfk$1@taliesin.netcom.net.uk>
hi everyone~
who know how to use sendmail with perl in win9x platform?
thanks
------------------------------
Date: Fri, 29 Dec 2000 08:43:45 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: about sendmail~~
Message-Id: <slrn94ojlg.ioe.rgarciasuarez@rafael.kazibao.net>
Tommy Au wrote in comp.lang.perl.misc:
>
> who know how to use sendmail with perl in win9x platform?
Why do you want to do that? Your actual problem is probably "how do I
send a mail with Perl on a Windows platform". In this case, you should
probably use Net::SMTP, a module that allows you to connect to an SMTP
server and to send a mail. This module is available on CPAN. More info
can be found in the perlfaq9 manual page: "How do I send mail?"
--
# Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: Fri, 29 Dec 2000 11:10:01 -0000
From: "Adam T Walton" <adam.walton@btconnect.com>
Subject: bitwise operation to find the inversion of a color
Message-Id: <ig_26.4651$nu5.23912@NewsReader>
Hello and Happy New Year
A scalar (my $bg_color) contains the hex value of an <HTML> page's
background color... how do I create another scalar that contains the inverse
value of $bg_color?
Basically, I want the op to be able to specify the background color for
pages / table cells etc etc in hex... the program will then automatically
set a high contrast foreground color for the default font.
I thought it might be as simple as:-
my $bg_color=0xffffff;
my $font_color=(!$bg_color);
Obviously I haven't delved too far into the world of bitwise operators!
Thanks
Adam
------------------------------
Date: Fri, 29 Dec 2000 11:52:08 GMT
From: jbuff <jbuff1856@my-deja.com>
Subject: Re: bitwise operation to find the inversion of a color
Message-Id: <92htt8$5m8$1@nnrp1.deja.com>
In article <ig_26.4651$nu5.23912@NewsReader>,
"Adam T Walton" <adam.walton@btconnect.com> wrote:
> I thought it might be as simple as:-
>
> my $bg_color=0xffffff;
> my $font_color=(!$bg_color);
>
> Obviously I haven't delved too far into the world of bitwise
operators!
>
>
From perldoc perlop
Unary "~" performs bitwise negation, i.e., 1's complement.
For example, 0666 &~ 027 is 0640.
I think what you need is my $font_color=(~$bg_color);
-- jbuff
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Fri, 29 Dec 2000 12:01:16 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: bitwise operation to find the inversion of a color
Message-Id: <0tuo4t403js7udppo2ca40o8r5skea0dg5@4ax.com>
Adam T Walton wrote:
>I thought it might be as simple as:-
>
>my $bg_color=0xffffff;
>my $font_color=(!$bg_color);
>
>Obviously I haven't delved too far into the world of bitwise operators!
Close. You're using the wrong kind of invertor, you want "~" not "!",
because that's a logical invertor. And second, mask out uninteresting
bits, so do a bitwise AND of that result with 0xFFFFFF:
my $bg_color=0xffffff;
my $font_color= ~$bg_color & 0xffffff;
Or, simply do a bitwise XOR with 0xffffff:
my $bg_color=0xffffff;
my $font_color= $bg_color ^ 0xffffff;
Only the bits that are set in the second argument will be inverted in
the first. Or vice versa, same thing.
p.s. You'll get a rather uninteresting result for this particular
example: 0.
p.p.s. you might be interested into turning this integer back into a
hexadecimal string representation:
$stringified_font_color = sprintf '#%06x', $font_color;
I've prepended a '#'. No particular reason.
--
Bart.
------------------------------
Date: Fri, 29 Dec 2000 16:42:42 +0800
From: "C.H.Lai" <chlai@stdhk.com>
Subject: build perl 2.6.0 socket.c problem
Message-Id: <3A4C4E82.E1C7036F@stdhk.com>
Dear guys:
I got following compile error for ver. 2.6.0:
----------------------------------------
cd ..\ext\Socket && \
..\..\miniperl -I..\..\lib Makefile.PL INSTALLDIRS=perl
Writing Makefile for Socket
cd ..\ext\Socket && f:\gnu\dmake\dmake.exe -S
gcc -c -g -O2 -DWIN32 -fno-strict-aliasing -DPERL_MSVCRT_READFIX -g -O2
-DVERSION=\"1.72\" -DXS_VERSION=\"1.72\" -I..\..\lib\CORE
Socket.c
Socket.c: In function `boot_Socket':
Socket.c:1224: incompatible type for argument 1 of `strcmp'
dmake.exe: Error code 1, while making 'Socket.o'
dmake.exe: Error code 255, while making '..\lib\auto\Socket\Socket.dll'
------------------------------------------
I using:
dmake-4.1pl1-win32
gcc-2.95.2-msvcrt (i386-mingw32msvc)
winnt 4.0 (i.e. cmd.exe shell)
Any idea where to look?
regards
------------------------------
Date: Fri, 29 Dec 2000 09:37:10 GMT
From: Antti-Jussi Korjonen <korjonen@cc.tut.fi>
Subject: Converting int to bin
Message-Id: <3A4C5B46.3D6640F8@cc.tut.fi>
Hi.
I couldn't find a function that would convert
integer to binary.
Instead I had to install Math::BaseCalc.
Didn't I search hard enough or is it really
true that perl doesn't contain conversion
to binary form?
version 5.005_03
------------------------------
Date: Fri, 29 Dec 2000 21:44:07 +1100
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: Converting int to bin
Message-Id: <slrn94oqnm.2ud.mgjv@martien.heliotrope.home>
On Fri, 29 Dec 2000 09:37:10 GMT,
Antti-Jussi Korjonen <korjonen@cc.tut.fi> wrote:
> Hi.
>
> I couldn't find a function that would convert
> integer to binary.
Integer and binary are not different. You can have an integer that is
stored as a binary number. In fact, that is the most common way for
integers to be stored in computers. I suspect you meant that you want to
convert the representation of an integer between binary and decimal
notation. Correct?
> Instead I had to install Math::BaseCalc.
>
> Didn't I search hard enough or is it really
> true that perl doesn't contain conversion
> to binary form?
# man perlfaq4
[snip]
How do I convert bits into ints?
To turn a string of 1s and 0s like `10110110' into a
scalar containing its binary value, use the pack() and
unpack() functions (documented in the pack entry in the
perlfunc manpage and the unpack entry in the perlfunc man
page):
$decimal = unpack('c', pack('B8', '10110110'));
This packs the string `10110110' into an eight bit binary
structure. This is then unpacked as a character, which
returns its ordinal value.
This does the same thing:
$decimal = ord(pack('B8', '10110110'));
Here's an example of going the other way:
$binary_string = unpack('B*', "\x29");
[snip]
Combining that a bit, you could do something like:
$n = 29;
$b = unpack "B*", pack "C", 29;
Of course, if you have integers that are longer than 8 bits, you may
need to use one of the other pack templates, like S, I, L, n, or N.
If you have signed integers, you may need other templates. Check the
documentation for pack().
In other words, the answer you were looking for was in the Perl FAQ,
part 4. he Perl FAQ is installed wherever Perl is installed, and
accessible through man and perldoc (or other platform specific tools).
Now, with these tools, you can also access the perlfunc documentation
(where you'd find pack). If you have 5.6.0 you will also find, under
sprintf, that there is now a %b specifier:
$b = sprintf "%b", $n;
Martien
--
Martien Verbruggen |
Interactive Media Division | If at first you don't succeed, try
Commercial Dynamics Pty. Ltd. | again. Then quit; there's no use
NSW, Australia | being a damn fool about it.
------------------------------
Date: Fri, 29 Dec 2000 13:04:03 GMT
From: Jerome Abela <Jerome.Abela@free.fr>
Subject: Re: Create time
Message-Id: <3A4C8AEF.645272A9@free.fr>
Mikey N a écrit :
> Is there any way to create a time object with a date in this
> format:
> 'yyyy-mm-dd'?
use POSIX qw(mktime);
But you won't need this if all you need to do is below.
> The values are formatted, for example,
> '2000-12-25'. I would like to be able to use this format to create a
> string that says:
> "The data for Monday, Dec. 25th is ..."
use POSIX qw(strftime);
/(\d+)-(\d+)-(\d+)/;
$string = strftime("The data for %A, %b %d is ...", 0, 0, 0, $3, $2,
$1);
Jerome.
------------------------------
Date: Fri, 29 Dec 2000 12:29:02 -0000
From: "Ebenezer Bodvarsson" <ebenezer@mosi.is>
Subject: Re: Extract the nth word from a line
Message-Id: <3a4cf743.0@news.isholf.is>
my ($word1, $word2, $word3)= split(/\s+/,$text, 3);
News <dpmurphy@emc.com> wrote in message
news:92gb3e$kbk2@emcnews1.lss.emc.com...
> I would like to extract a word in a particular position in a line.
> For example, if $_ is the line "This is a Perl script", I might want to
> extract the word "Perl" and assign it to a variable.
> I would like to do this for a word in any position in the line.
> Thanks.
>
>
>
------------------------------
Date: Fri, 29 Dec 2000 12:57:56 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: Extract the nth word from a line
Message-Id: <slrn94p2i2.jqc.rgarciasuarez@rafael.kazibao.net>
Ebenezer Bodvarsson wrote in comp.lang.perl.misc:
> my ($word1, $word2, $word3)= split(/\s+/,$text, 3);
Thus $word3 will contains all words from the 3rd to the end of $text.
--
# Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: Fri, 29 Dec 2000 13:37:37 GMT
From: Jerome Abela <Jerome.Abela@free.fr>
Subject: Re: Extract the nth word from a line
Message-Id: <3A4C92CF.C16B6D6@free.fr>
John Lin a écrit :
> > $count = 0;
> > while (/(\w+)\s+fish\b/gi) {
> > if (++$count == $WANT) {
> > print "The third fish is a $1 one.\n";
> > # Warning: don't `last' out of this loop
> > }
> > }
>
> I did some experiments. There was nothing wrong to 'last' out of a
> while loop with /g modifier. It's OK, isn't it?
//g keeps track of its position. If you repeat this code twice without
'last', it will work. If you 'last' out of the loop before //g fails, it
will display the 6th fish instead of the 3rd on the second run.
Without 'last', the code always works, but with 'last' its behaviour
depends on its context, which is bad.
Jerome.
------------------------------
Date: Fri, 29 Dec 2000 11:46:23 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: flat file database question
Message-Id: <b3uo4tcvkisu3ge6iulun2uri3boriu98q@4ax.com>
Gregory Spath wrote:
>IIRC, there is a DBI module that allows use of flat files. Check out
>CPAN.
There's even more than one.
* DBD::CSV
* DBD::RAM
* DBD::Sprite
Check out CPAN to see which one you like best.
--
Bart.
------------------------------
Date: 29 Dec 2000 07:56:03 +0000
From: nobull@mail.com
Subject: Re: HTTPS using LWP but no OpenSSL
Message-Id: <u9n1df602v.fsf@wcl-l.bham.ac.uk>
newsgroup@nathigh.com (Scott Zsori) writes:
> How do you perform a HTTPS GET? I know the standard response of LWP with
> OpenSSL and Net::SSLeay, but I don't have access to OpenSSL or Net:SSLeay
> on the server. Any help would be appreciated.
If you have no SSL support in Perl on the client[1] you may be able to
use a proxy on the same or another machine. Of course if it's on
another machine this means that you have to trust that the network
between the LWP client and the proxy is not vulnerable to snooping.
I know the Apache HTTP proxy will accept HTTPS requests over an HTTP
channel (and vice-versa). I don't know if other HTTP proxies can do
this.
I don't know if LWP::UserAgent can currently be made to forward HTTPS
requests to a HTTP proxy but if it can't then it can't be too hard to
hack it.
[1] I do wish people wouldn't say "the server" when in the context of
the transaction under discussion the machine in question is the client.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Fri, 29 Dec 2000 07:46:43 GMT
From: John Galt <ssomneb@my-deja.com>
Subject: Making a program run repeatedly
Message-Id: <92hfh3$rdj$1@nnrp1.deja.com>
I've written a perl script that I want my linux machine to run
automatically every 5 minutes (or any length of time). I'm pretty new
to this; any ideas on how to do that? Is it a linux thing or a perl
thing?
Thanks!
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Fri, 29 Dec 2000 08:01:34 GMT
From: jbuff <jbuff1856@my-deja.com>
Subject: Re: Making a program run repeatedly
Message-Id: <92hgct$rtr$1@nnrp1.deja.com>
In article <92hfh3$rdj$1@nnrp1.deja.com>,
John Galt <ssomneb@my-deja.com> wrote:
> I've written a perl script that I want my linux machine to run
> automatically every 5 minutes (or any length of time). I'm pretty new
> to this; any ideas on how to do that? Is it a linux thing or a perl
> thing?
> Thanks!
>
>
It's a *nix thing.
man crontab
-- jbuff
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Fri, 29 Dec 2000 02:33:25 -0600
From: "John Michael" <johnm@acadiacom.net>
Subject: Re: Making a program run repeatedly
Message-Id: <3a4c4db5@news.acadiacom.net>
It is a linux thing and it is called crontab.
refer to:
http://realtimescripts.com/
and check out the tutorial on Crontab.
"John Galt" <ssomneb@my-deja.com> wrote in message
news:92hfh3$rdj$1@nnrp1.deja.com...
> I've written a perl script that I want my linux machine to run
> automatically every 5 minutes (or any length of time). I'm pretty new
> to this; any ideas on how to do that? Is it a linux thing or a perl
> thing?
> Thanks!
>
>
> Sent via Deja.com
> http://www.deja.com/
------------------------------
Date: Fri, 29 Dec 2000 07:58:37 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: Newbie with Session Key and META questions
Message-Id: <slrn94oh0r.ijp.rgarciasuarez@rafael.kazibao.net>
MarkyMoon wrote in comp.lang.perl.misc:
>
> 1. If I'm trying to generate web pages on the fly using CGI will the resulting
> pages still be indexable on search engines/bots using META info?
An indexing bot (or any user-agent, including browsers) cannot tell
whether a document it fetches is generated by a CGI program or another
server-side mechanism (PHP, SSI, Zope...) or if it is a static file.
There's no difference then, as long as the generated HTML document
contains META tags. Of course, there are caveats : e.g. if a generated
document depends on the input of a form or on the identification of a
user.
> 2. I've run across a few sites that display the number of users that are
> _currently_ logged onto a web site (i.e. # registered users/# guests). I can
> understand how users could be tracked coming into a site (or maybe opens a
> different page in a new window) using cookies, but how do I determine when a
> user leaves the site? Could this be done using some sort of temporary
> cookie/session key combo? Is it possible to create a session key that expires
> after x minutes if there no new request but is refreshed if the user selects a
> new page within the site's domain?
Yes, I imagine that's possible and that's a good way to implement it.
--
# Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: Fri, 29 Dec 2000 08:11:00 GMT
From: ghorghor@my-deja.com
Subject: Re: Open a big text file ( large than 200MB )
Message-Id: <92hgui$saa$1@nnrp1.deja.com>
OK thanks to all helping me
i ll try now to do better and proper script
with perl -w and use strit
bye
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: 29 Dec 2000 14:22:55 +0100
From: jacklam@math.uio.no (Peter J. Acklam)
Subject: Re: Perl's BigInts/BigFloats
Message-Id: <wkelyrmkeo.fsf@math.uio.no>
Speaking of big numbers -- why does this happen:
perl -we "$a = 1e9999; print $a/$a"
-1.#IND
perl -we "print 1e9999/1e9999"
-2147483648
I assume the former quotient is computed at run-time and the
latter at compile time. Still, I shouldn't get different results,
I think?
(perl v5.6.0 built for MSWin32-x86-multi-thread, ActiveState build 613)
Peter
--
$\="\n";$_='The quick brown fox jumps over the lazy dog';print +(split
//)[20,5,24,31,3,36,14,12,31,1,2,11,9,23,33,29,35,15,32,36,7,8,28,29];
------------------------------
Date: Fri, 29 Dec 2000 13:30:04 -0000
From: jaya <jaya_j_k@hotmail.com>
Subject: Problems in writing in file ....?
Message-Id: <t4p4es1c8annca@corp.supernews.com>
Hello,
I have one file and want to modify that file at 50 different places I know
the line numbers where I want to modify that.
Let's say my line number 20 is :
$c = 50;
And I want that line as
$c = 30;
If I open the file with ">>" then perl is not allowing the chomp in that
as I want to read the file upto 20 lines.
Presently I'm reading that file (opened in Read mode) and creating a new
file (opened in write mode) with new contents and then renaming the new
file.
Is there any way, by which I can change the contents of same file, without
using another file.
Help me out..
Thanks in advance,
Regards,
Jaya
--
Posted via CNET Help.com
http://www.help.com/
------------------------------
Date: Fri, 29 Dec 2000 11:34:03 +0100
From: "Federico" <artax@shineline.it>
Subject: R: HELP with https
Message-Id: <3a4c68f1$1_1@news.telnetwork.it>
>
> See the README.SSL file in the libwww distribution.
>
I have not found that document. I tried to search it with the search form in
www.perl.com but there isn't. Do you know how and where could i find it
please? Thank you very much,
Federico.
------------------------------
Date: Fri, 29 Dec 2000 12:30:05 -0000
From: jaya <jaya_j_k@hotmail.com>
Subject: Regular expression Stuff?
Message-Id: <t4p0udjf6if370@corp.supernews.com>
Hello,
My problem is:
In one file I have
#Some Statements
$x = 20
#Some Statements
screen $a1 = 10;
screen $MY_MMI=34, $Te11=$1as83a, $x4585=abcd, $B =20;
#Some Statements
I'm filtering all the screen related lines and storing in an array. Now
the array contains:
$a1 = 10;
$MY_MMI=34, $Te11=$1as83a, $x4585=abcd, $B =20;
Now I want to write the vairables and values in some different file.
I gave the following condition:
(/^\$\w*\s*=/)
This is giving me all variables (i.e., $MY_MMI=34, $Te11=$1as83a,
$x85=abcd)
But skipping the $B =20 and $a1 = 10
as they contains the spaces.
I want that variables also.
Will anyone help me out, please.
Thanks in advance,
Regards,
Jaya
--
Posted via CNET Help.com
http://www.help.com/
------------------------------
Date: 29 Dec 2000 10:08:39 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Syntax for "eq" and "||"
Message-Id: <92hnr7$b6o$1@mamenchi.zrz.TU-Berlin.DE>
The WebDragon <nospam@nospam.com> wrote in comp.lang.perl.misc:
>In article <92g3m7$sl1$1@mamenchi.zrz.TU-Berlin.DE>,
>anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote:
>
> | The WebDragon <nospam@nospam.com> wrote in comp.lang.perl.misc:
> | >In article <3a486ebf.56fd$233@news.op.net>, mjd@plover.com (Mark-Jason
> | >Dominus) wrote:
> |
> | > | If Damian's Quantum Superpositions thing goes into Perl 6, you'll be
> | > | able to write
> | > |
> | > | if ($in{'Contact_Country'} eq
> | > | any("Australia","Canada","UK"))
> | > | {
> | > | ...
> | > | }
> | >
> | >indeed.. looks *quite* nice, but I've run into a few things in 5.004
> | >(MacPerl) that I've mailed him about and hope to see an update for
> | >soonish. (failing some test cases, etc)
> |
> | This public complaint about Damian's maintenance is in very bad style.
> |
> | I find it hard to believe you posted that, but I don't see how your
> | paragraph can be read otherwise.
>
>YOU read far too much into what I said.. did I press a little hot button
>for you or something?
What did I read that you didn't write? You mailed Damian about some
problem you have on MacOS, got no reply, and took the fist chance
to go public about it. Bad style.
>I ONLY JUST mailed him within the past few days.
Ah. That makes it acceptable. I see.
Anno
------------------------------
Date: Fri, 29 Dec 2000 22:03:36 +1100
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: Syntax for "eq" and "||"
Message-Id: <slrn94ors8.2ud.mgjv@martien.heliotrope.home>
On 29 Dec 2000 10:08:39 GMT,
Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote:
> The WebDragon <nospam@nospam.com> wrote in comp.lang.perl.misc:
>>In article <92g3m7$sl1$1@mamenchi.zrz.TU-Berlin.DE>,
>>anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote:
>>
>> | The WebDragon <nospam@nospam.com> wrote in comp.lang.perl.misc:
>> | >
>> | >indeed.. looks *quite* nice, but I've run into a few things in 5.004
>> | >(MacPerl) that I've mailed him about and hope to see an update for
>> | >soonish. (failing some test cases, etc)
>> |
>> | This public complaint about Damian's maintenance is in very bad style.
>> |
>> | I find it hard to believe you posted that, but I don't see how your
>> | paragraph can be read otherwise.
>>
>>YOU read far too much into what I said.. did I press a little hot button
>>for you or something?
>
> What did I read that you didn't write? You mailed Damian about some
> problem you have on MacOS, got no reply, and took the fist chance
> to go public about it. Bad style.
I must say that I didn't read it the way you did. I read it as "I've
found some problems with the module, and have notified the maintainer".
And that is exactly what the maintainer probably wishes for: A speedy
bug report.
As far as I can see there is nothing in that statement that expresses
dissatisfaction with the response, or even whether there already has
been any response or not. All it says is that he hopes the next version
will be released soon, and will address the issues he reported to
Damian.
I certainly didn't see it as a public complaint.
Maybe you did indeed read more into the statement than it actually
contained?
Martien
--
Martien Verbruggen |
Interactive Media Division | That's funny, that plane's dustin'
Commercial Dynamics Pty. Ltd. | crops where there ain't no crops.
NSW, Australia |
------------------------------
Date: 29 Dec 2000 12:42:35 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Syntax for "eq" and "||"
Message-Id: <92i0rr$im8$1@mamenchi.zrz.TU-Berlin.DE>
Martien Verbruggen <mgjv@tradingpost.com.au> wrote in comp.lang.perl.misc:
>On 29 Dec 2000 10:08:39 GMT,
> Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote:
>> The WebDragon <nospam@nospam.com> wrote in comp.lang.perl.misc:
>>>In article <92g3m7$sl1$1@mamenchi.zrz.TU-Berlin.DE>,
>>>anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote:
>>>
>>> | The WebDragon <nospam@nospam.com> wrote in comp.lang.perl.misc:
>>> | >
>>> | >indeed.. looks *quite* nice, but I've run into a few things in 5.004
>>> | >(MacPerl) that I've mailed him about and hope to see an update for
>>> | >soonish. (failing some test cases, etc)
>>> |
>>> | This public complaint about Damian's maintenance is in very bad style.
>>> |
>>> | I find it hard to believe you posted that, but I don't see how your
>>> | paragraph can be read otherwise.
>>>
>>>YOU read far too much into what I said.. did I press a little hot button
>>>for you or something?
>>
>> What did I read that you didn't write? You mailed Damian about some
>> problem you have on MacOS, got no reply, and took the fist chance
>> to go public about it. Bad style.
>
>I must say that I didn't read it the way you did. I read it as "I've
>found some problems with the module, and have notified the maintainer".
>And that is exactly what the maintainer probably wishes for: A speedy
>bug report.
>
>As far as I can see there is nothing in that statement that expresses
>dissatisfaction with the response, or even whether there already has
>been any response or not. All it says is that he hopes the next version
>will be released soon, and will address the issues he reported to
>Damian.
>
>I certainly didn't see it as a public complaint.
>
>Maybe you did indeed read more into the statement than it actually
>contained?
Hmm... looks like I must consider this. Thanks for your unbiased
opinion, maybe I overreacted.
I still don't see why this had to be brought up at all. If it isn't
a complaint, why mention it? The thread was about Damian's "quantum
superposition operator" at the point. Outside the author's name
I don't see a connection to the MacPerl problem. Or is there?
Anno
------------------------------
Date: Sat, 30 Dec 2000 00:07:58 +1100
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: Syntax for "eq" and "||"
Message-Id: <slrn94p35e.2ud.mgjv@martien.heliotrope.home>
On 29 Dec 2000 12:42:35 GMT,
Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote:
> Martien Verbruggen <mgjv@tradingpost.com.au> wrote in comp.lang.perl.misc:
>>On 29 Dec 2000 10:08:39 GMT,
>> Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote:
>>> The WebDragon <nospam@nospam.com> wrote in comp.lang.perl.misc:
>>>>In article <92g3m7$sl1$1@mamenchi.zrz.TU-Berlin.DE>,
>>>>anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote:
>>>>
>>>> | The WebDragon <nospam@nospam.com> wrote in comp.lang.perl.misc:
>>>> | >
>>>> | >indeed.. looks *quite* nice, but I've run into a few things in 5.004
>>>> | >(MacPerl) that I've mailed him about and hope to see an update for
>>>> | >soonish. (failing some test cases, etc)
>>>> |
>>>> | This public complaint about Damian's maintenance is in very bad style.
>>>> |
>>>> | I find it hard to believe you posted that, but I don't see how your
>>>> | paragraph can be read otherwise.
>>>>
>>>>YOU read far too much into what I said.. did I press a little hot button
>>>>for you or something?
>>>
>>> What did I read that you didn't write? You mailed Damian about some
>>> problem you have on MacOS, got no reply, and took the fist chance
>>> to go public about it. Bad style.
>>
>>I must say that I didn't read it the way you did. I read it as "I've
>>found some problems with the module, and have notified the maintainer".
>>And that is exactly what the maintainer probably wishes for: A speedy
>>bug report.
[snip]
> Hmm... looks like I must consider this. Thanks for your unbiased
> opinion, maybe I overreacted.
>
> I still don't see why this had to be brought up at all. If it isn't
> a complaint, why mention it? The thread was about Damian's "quantum
> superposition operator" at the point. Outside the author's name
> I don't see a connection to the MacPerl problem. Or is there?
I don't think it was brought up for any reason besides too much verbosity
:), but I'll leave it to WebDragon to confirm or deny that. I have found
that MacPerl users often find 'problems' in code and/or test programs,
because they work with an older version of Perl, unfortunately. I
suspect that some of the problems were related to newer syntax not
compiling correctly, or something like that. This really should be an
incentive to someone who knows Macs and loves Perl (and has the
knowledge of Perl internally) to get the Macperl versions up to the
latest (altough I am not certain ow hard that would be).
I think the information intended was no more than: "Yes, I know about
that module, it looks nice, but it also looks like I won't be able to
just use it as-is, because there seem to be some problems still with
MacPerl (or perl 5.004). I have notified Damian, and hope that he'll be
able to fix it soon, so I can start using it with the full confidence
that Damian's code deserves". Since the problems seem to occur only in
the tests, maybe he's already using it, ignoring the failed tests.
Of course, I am now assuming a lot, maybe even too much :)
Martien
--
Martien Verbruggen |
Interactive Media Division | This matter is best disposed of from
Commercial Dynamics Pty. Ltd. | a great height, over water.
NSW, Australia |
------------------------------
Date: Fri, 29 Dec 2000 12:40:09 -0000
From: "Adam T Walton" <adam.walton@btconnect.com>
Subject: Thank You, Works Fine!
Message-Id: <OA%26.45673$_h.289601@NewsReader>
------------------------------
Date: Fri, 29 Dec 2000 06:33:00 GMT
From: "John Boy Walton" <johngros@Spam.bigpond.net.au>
Subject: Unable to assign a value to an array element.
Message-Id: <weW26.36934$xW4.291783@news-server.bigpond.net.au>
I can't assign the array element the string value 'B'.
I get the following error.
Scalar found where operator expected at working.pl line 15, near ")
$cells"
(Missing operator before $cells?)
syntax error at working.pl line 15, near ")
$cells"
Execution of working.pl aborted due to compilation errors.
This is the code
#!f:/millenium programs/perl/bin/perl -w
use strict;
srand;
my (@cells, @visible_cells, $xaxis, $yaxis, $i);
# initialisation.
for ($i = 1; $i == 99; $i++)
{
do
{
$xaxis = rand(30);
$yaxis = rand(16);
} while ($cells[$xaxis][$yaxis] eq 'B')
$cells[$xaxis][$yaxis] = 'B';
}
------------------------------
Date: Fri, 29 Dec 2000 06:38:44 GMT
From: "John Boy Walton" <johngros@Spam.bigpond.net.au>
Subject: Re: Unable to assign a value to an array element.
Message-Id: <UjW26.36941$xW4.291645@news-server.bigpond.net.au>
"John Boy Walton" <johngros@Spam.bigpond.net.au> wrote in message
news:weW26.36934$xW4.291783@news-server.bigpond.net.au...
Can you believe it?
I worked it out as soon as I sent it.
A missing colon on the 'do while'
------------------------------
Date: Fri, 29 Dec 2000 11:53:46 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Unable to assign a value to an array element.
Message-Id: <kkuo4tkcme8g1fc8s0a3vp23skig84cbln@4ax.com>
John Boy Walton wrote:
>for ($i = 1; $i == 99; $i++)
>{
I don't believe this will work.
for ($i = 1; $i == 99; $i++) {
print "tick ";
}
print "Boom.\n";
-->
Boom.
The loop body is NEVER executed, because the second expression in your
for trio, is tested before anything is done. If this results in false,
and it does, since 1 is not 99, the loop is aborted.
You probably want "$i < 99" or "$i <= 99".
--
Bart.
------------------------------
Date: Fri, 29 Dec 2000 12:05:03 GMT
From: "John Boy Walton" <johngros@Spam.bigpond.net.au>
Subject: Re: Upload multi files with same source
Message-Id: <P5%26.37218$xW4.295052@news-server.bigpond.net.au>
> And how to find the CGI.pm version?
PPM query CGI.pm
or if CPAN is your favourite,
perl -MCPAN -e shell
m CGI.pm
------------------------------
Date: 24 Dec 2000 00:49:16 GMT
From: steve@zeropps.uklinux.net (Steve)
Subject: Re: Where to obtain the perlrtfm podpage?
Message-Id: <slrn94ahu8.dum.steve@zero-pps.localdomain>
On Sat, 23 Dec 2000 17:38:27 GMT, Brad Bollenbach wrote:
>Hello,
>
> I've seen Tom Christiansen mention his newly penned "perlrtfm" podpage.
>Where can I obtain this? I've search clpm on deja, tried google, and also
>tried my own perl installation to see if I could find it, but have had no
>luck yet.
If you're looking for a specific piece of information then probably a good
idea to search the perlfaq first and if it's not there have a more detailed
look at the documentation. Some pointers:
$ perldoc -f split
Finds the documentation on the perl "split" function.
$ perldoc -q split
Finds any question (and it's answer), in the faq that contains
the word split.
$ perldoc perl
This will give you a man page that lists all the perl documentation
along with a brief description of each. There's other good
information in that page that's also worth a read.
--
Cheers
Steve email mailto:steve@zeropps.uklinux.net
%HAV-A-NICEDAY Error not enough coffee 0 pps.
web http://www.zeropps.uklinux.net/
or http://start.at/zero-pps
12:24am up 5 days, 11:45, 2 users, load average: 1.16, 1.09, 1.03
------------------------------
Date: Fri, 29 Dec 2000 13:51:34 +0100
From: Abe Timmerman <abe@ztreet.demon.nl>
Subject: Re: Win NT service
Message-Id: <r12p4t04qvg7pe6i1hipvmi4nohl0aq3ii@4ax.com>
On Thu, 28 Dec 2000 17:34:29 +0100, Peter Ruester
<Peter.Ruester@t-online.de> wrote:
> Hi, i´m new in perl, and i would like to write a script that give me the
> current state of an NT - Service.
> I find the funktion GetStatus(hostName, serviceName, status) but i
> can´t use it because i don´t
> understand the using of the status variable
>
> any suggestions are welcome
#!/usr/bin/perl -w
use strict;
use Win32::Service qw( GetServices GetStatus );
# See: perldoc Win32::Service
# empty first arg => this box
# get all installed services on this NT-box
my %services;
GetServices('', \%services);
# get status foreach service on this box
foreach my $service ( sort keys %services ) {
my %status;
GetStatus('', $services{$service}, \%status);
print "$service [$services{$service}]\n",
map "\t$_ [$status{$_}]\n" => sort keys %status;
}
__END__
hth
--
Good luck,
Abe
perl -wle '$_=q@Just\@another\@Perl\@hacker@;print qq@\@{[split/\@/]}@'
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 5218
**************************************
