[27761] in Perl-Users-Digest
Perl-Users Digest, Issue: 9139 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Apr 10 09:06:06 2006
Date: Mon, 10 Apr 2006 06:05:05 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 10 Apr 2006 Volume: 10 Number: 9139
Today's topics:
Re: [VERY OT] Seeya all! <bik.mido@tiscalinet.it>
Re: [VERY OT] Seeya all! <1usa@llenroc.ude.invalid>
Re: DOS globbing <daveandniki@ntlworld.com>
Re: DOS globbing <rvtol+news@isolution.nl>
Re: FAQ 3.22 How can I compile Perl into Java? (Anno Siegel)
How to read pixels from monochrome BMP <info@perot.com>
new CPAN modules at Mon Apr 10 2006 (Randal Schwartz)
Problem using Openoffice::OODoc <daveandniki@ntlworld.com>
Re: Problem using Openoffice::OODoc <thepoet_nospam@arcor.de>
Re: SYMANTIC ?: Is my Perl code called a script or a pr <matthew.garrish@sympatico.ca>
Re: XS progamming question <bol@adv.magwien.gv.at>
Re: XS progamming question <bol@adv.magwien.gv.at>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 10 Apr 2006 12:06:29 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: [VERY OT] Seeya all!
Message-Id: <jej932tj1j5le0umokpaj1pmku9o0n6752@4ax.com>
On Wed, 05 Apr 2006 16:38:30 -0700, robic0 wrote:
>Hey I don't even know you. Mind divulging 'which' fucked up degree?
Do you really care? It's in Physics. Don't mind, it was just a thing
for old-time regulars here...
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Mon, 10 Apr 2006 12:26:14 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: [VERY OT] Seeya all!
Message-Id: <Xns97A155F90783Easu1cornelledu@127.0.0.1>
Michele Dondi <bik.mido@tiscalinet.it> wrote in
news:jej932tj1j5le0umokpaj1pmku9o0n6752@4ax.com:
> On Wed, 05 Apr 2006 16:38:30 -0700, robic0 wrote:
>
>>Hey I don't even know you. Mind divulging 'which' fucked up degree?
>
> Do you really care?
I guess you did not get the memo ;-) Please avoid the troll.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Mon, 10 Apr 2006 09:30:20 +0200
From: "Dave" <daveandniki@ntlworld.com>
Subject: Re: DOS globbing
Message-Id: <443a0992$0$18307$8fcfb975@news.wanadoo.fr>
"Dr.Ruud" <rvtol+news@isolution.nl> wrote in message
news:e1c16l.1fg.1@news.isolution.nl...
> Have fun:
>
> C:> perl -le "while ( glob q(c:/*.sys) ) {print}"
> c:/CONFIG.SYS
> c:/IO.SYS
> c:/MSDOS.SYS
>
> C:> perl -le "while ( glob q(c:\*.sys) ) {print}"
> c:\CONFIG.SYS
> c:\IO.SYS
> c:\MSDOS.SYS
>
> C:> perl -le "while ( glob q(c:\\*.sys) ) {print}"
> c:\CONFIG.SYS
> c:\IO.SYS
> c:\MSDOS.SYS
>
> C:> perl -le "while ( glob q(c:\\\\*.sys) ) {print}"
> c:\CONFIG.SYS
> c:\IO.SYS
> c:\MSDOS.SYS
>
>
> C:> perl -le "while ( glob q(c:\\\\\*.sys) ) {print}"
> c:\\CONFIG.SYS
> c:\\IO.SYS
> c:\\MSDOS.SYS
>
> C:\Perl>perl -le "while ( glob q(c://*.sys) ) {print}"
> c://CONFIG.SYS
> c://hiberfil.sys
> c://IO.SYS
> c://MSDOS.SYS
>
> C:> perl -le "while ( glob q(c:///*.sys) ) {print}"
> c:///CONFIG.SYS
> c:///hiberfil.sys
> c:///IO.SYS
> c:///MSDOS.SYS
>
> C:> perl -le "while ( glob q(c:\/*.sys) ) {print}"
> c:\/CONFIG.SYS
> c:\/hiberfil.sys
> c:\/IO.SYS
> c:\/MSDOS.SYS
>
> (etc.)
>
> --
> Affijn, Ruud
>
> "Gewoon is een tijger."
What version of Perl, which platform precisely, which enviroment on that
platform? With Perl 5.8.7 on Windows XP, cmd.exe window, I do not get your
results I get the same set of files each time.
------------------------------
Date: Mon, 10 Apr 2006 11:39:44 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: DOS globbing
Message-Id: <e1dg8e.q0.1@news.isolution.nl>
Dave schreef:
> Dr.Ruud:
>> Have fun:
>>
>> C:> perl -le "while ( glob q(c:/*.sys) ) {print}"
>> c:/CONFIG.SYS
>>
>> C:> perl -le "while ( glob q(c:\*.sys) ) {print}"
>> c:\CONFIG.SYS
>>
>> C:> perl -le "while ( glob q(c:\\*.sys) ) {print}"
>> c:\CONFIG.SYS
>>
>> C:> perl -le "while ( glob q(c:\\\\*.sys) ) {print}"
>> c:\CONFIG.SYS
>>
>> C:> perl -le "while ( glob q(c:\\\\\*.sys) ) {print}"
>> c:\\CONFIG.SYS
>>
>> C:\Perl>perl -le "while ( glob q(c://*.sys) ) {print}"
>> c://CONFIG.SYS
>>
>> C:> perl -le "while ( glob q(c:///*.sys) ) {print}"
>> c:///CONFIG.SYS
>>
>> C:> perl -le "while ( glob q(c:\/*.sys) ) {print}"
>> c:\/CONFIG.SYS
>>
>> (etc.)
>
> What version of Perl, which platform precisely, which enviroment on
> that platform? With Perl 5.8.7 on Windows XP, cmd.exe window, I do
> not get your results I get the same set of files each time.
Windows 2000, Perl 5.8.8.
I get the same set of files too. I should have made clear that this is
not about the files but about the funny treatment (IMO) of the
separators.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 10 Apr 2006 09:48:01 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: FAQ 3.22 How can I compile Perl into Java?
Message-Id: <49unuhFqeal6U1@news.dfncis.de>
Matt Garrish <matthew.garrish@sympatico.ca> wrote in comp.lang.perl.misc:
>
> "PerlFAQ Server" <brian@stonehenge.com> wrote in message
> news:69dng3-nkc.ln1@blue.stonehenge.com...
> > This is an excerpt from the latest version perlfaq3.pod, which
> > comes with the standard Perl distribution. These postings aim to
> > reduce the number of repeated questions as well as allow the community
> > to review and update the answers. The latest version of the complete
> > perlfaq is at http://faq.perl.org .
> >
> > --------------------------------------------------------------------
> >
> > 3.22: How can I compile Perl into Java?
> >
> > You can also integrate Java and Perl with the Perl Resource Kit from
> > O'Reilly Media. See http://www.oreilly.com/catalog/prkunix/ .
> >
>
> A case of bad grammar, or is part of this FAQ missing?
It ("also") makes more sense in context with the previous question
"How can I compile my Perl program into byte code or C?", but I'd
take it out.
Anno
--
If you want to post a followup via groups.google.com, don't use
the broken "Reply" link at the bottom of the article. Click on
"show options" at the top of the article, then click on the
"Reply" at the bottom of the article headers.
------------------------------
Date: Mon, 10 Apr 2006 08:50:22 +0200
From: <info@perot.com>
Subject: How to read pixels from monochrome BMP
Message-Id: <e1cv6r$6mm$1@ss405.t-com.hr>
How to read pixels from monochrome BMP (or GIF) image?
I want to recognize object on bitmap?
Thanks
------------------------------
Date: Mon, 10 Apr 2006 04:42:12 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules at Mon Apr 10 2006
Message-Id: <IxHp2C.Lx4@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
DBD-SQLite-1.12
http://search.cpan.org/~msergeant/DBD-SQLite-1.12/
Self Contained RDBMS in a DBI Driver
----
URI-Fetch-0.06
http://search.cpan.org/~btrott/URI-Fetch-0.06/
Smart URI fetching/caching
----
Cvs-Trigger-0.01
http://search.cpan.org/~mschilli/Cvs-Trigger-0.01/
Argument parsers for CVS triggers
----
Number-Base-DWIM-0.02
http://search.cpan.org/~cmo/Number-Base-DWIM-0.02/
delay parsing of based constants as long as possible.
----
Number-Base-DWIM-0.01
http://search.cpan.org/~cmo/Number-Base-DWIM-0.01/
delay parsing of based constants as long as possible.
----
Acme-MetaSyntactic-0.69
http://search.cpan.org/~book/Acme-MetaSyntactic-0.69/
Themed metasyntactic variables names
----
Array-Group-1.00
http://search.cpan.org/~tbone/Array-Group-1.00/
Convert an array into array of arrayrefs of uniform size N.
----
ExtUtils-Install-1.38
http://search.cpan.org/~yves/ExtUtils-Install-1.38/
install files from here to there
----
Class-BuildMethods-0.111
http://search.cpan.org/~ovid/Class-BuildMethods-0.111/
Lightweight implementation-agnostic generic methods.
----
Class-CGI-0.03
http://search.cpan.org/~ovid/Class-CGI-0.03/
Fetch objects from your CGI object
----
SVG-Graph-Kit-0.00_5
http://search.cpan.org/~gene/SVG-Graph-Kit-0.00_5/
Simplified data plotting
----
Tk-Image-Cut-0.07
http://search.cpan.org/~knorr/Tk-Image-Cut-0.07/
Perl extension for a graphic user interface to cut pictures.
----
VCS-CMSynergy-1.28
http://search.cpan.org/~rschupp/VCS-CMSynergy-1.28/
Perl interface to Telelogic SYNERGY/CM (aka Continuus/CM)
----
WWW-Mixi-0.45
http://search.cpan.org/~tsukamoto/WWW-Mixi-0.45/
Perl extension for scraping the MIXI social networking service.
----
Test-Deep-0.094
http://search.cpan.org/~fdaly/Test-Deep-0.094/
Extremely flexible deep comparison
----
String-Approx-3.26
http://search.cpan.org/~jhi/String-Approx-3.26/
Perl extension for approximate matching (fuzzy matching)
----
Math-Units-PhysicalValue-0.51
http://search.cpan.org/~jettero/Math-Units-PhysicalValue-0.51/
An object oriented interface for handling values with units.
----
BSD-Resource-1.25
http://search.cpan.org/~jhi/BSD-Resource-1.25/
BSD process resource limit and priority functions
----
Gtk2-Ex-FormFactory-0.62
http://search.cpan.org/~jred/Gtk2-Ex-FormFactory-0.62/
Makes building complex GUI's easy
----
FormValidator-Simple-ProfileManager-YAML-0.06
http://search.cpan.org/~horiuchi/FormValidator-Simple-ProfileManager-YAML-0.06/
YAML profile manager for FormValidator::Simple
----
Term-ReadLine-Perl-1.03
http://search.cpan.org/~ilyaz/Term-ReadLine-Perl-1.03/
----
POE-Component-SNMP-0.95
http://search.cpan.org/~rdb/POE-Component-SNMP-0.95/
POE interface to Net::SNMP
----
Test-MockObject-1.05
http://search.cpan.org/~chromatic/Test-MockObject-1.05/
Perl extension for emulating troublesome interfaces
----
Module-Start-0.10
http://search.cpan.org/~ingy/Module-Start-0.10/
The Simple/Flexible Way to Create New Modules
----
FileHandle-Fmode-0.04
http://search.cpan.org/~sisyphus/FileHandle-Fmode-0.04/
determine whether a filehandle is opened for reading, writing, or both.
----
Set-Array-0.13
http://search.cpan.org/~rsavage/Set-Array-0.13/
Arrays as objects with lots of handy methods (including Set comparisons) and support for method chaining.
----
Net-DNS-ZoneFile-Fast-0.6.1
http://search.cpan.org/~hardaker/Net-DNS-ZoneFile-Fast-0.6.1/
parse BIND8/9 zone files
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Mon, 10 Apr 2006 11:11:49 +0200
From: "Dave" <daveandniki@ntlworld.com>
Subject: Problem using Openoffice::OODoc
Message-Id: <443a2158$0$21274$8fcfb975@news.wanadoo.fr>
In the following test script I am expecting the second sentence in paragraph
2 to be in the Emphasis style (italicised), but it remains in the default
style. Does anyone know why? I think that I am following the documentation
correctly. (Perl 5.8.7, Openoffice::OODoc 2.02 on Windows XP with OpenOffice
2.0).
use strict;
use warnings;
use OpenOffice::OODoc;
my $document = ooDocument(file => 'test.odt', create => 'text');
my $para1 = $document->appendParagraph( text => 'Heading',
style => 'Heading 1'
);
my $para2 = $document->appendParagraph( text => 'First sentence para2. ',
style => 'default'
);
my $para3 = $document->appendParagraph( text => 'First sentence para3. ',
style => 'default'
);
$document->extendText($para2, 'Second sentence para2.', 'Emphasis');
$document->save;
------------------------------
Date: Mon, 10 Apr 2006 14:18:45 +0200
From: Christian Winter <thepoet_nospam@arcor.de>
Subject: Re: Problem using Openoffice::OODoc
Message-Id: <443a4d26$0$11062$9b4e6d93@newsread4.arcor-online.net>
Dave schrieb:
> In the following test script I am expecting the second sentence in paragraph
> 2 to be in the Emphasis style (italicised), but it remains in the default
> style. Does anyone know why? I think that I am following the documentation
> correctly. (Perl 5.8.7, Openoffice::OODoc 2.02 on Windows XP with OpenOffice
> 2.0).
>
> use strict;
> use warnings;
> use OpenOffice::OODoc;
>
> my $document = ooDocument(file => 'test.odt', create => 'text');
>
> my $para1 = $document->appendParagraph( text => 'Heading',
> style => 'Heading 1'
> );
>
> my $para2 = $document->appendParagraph( text => 'First sentence para2. ',
> style => 'default'
> );
>
> my $para3 = $document->appendParagraph( text => 'First sentence para3. ',
> style => 'default'
> );
>
> $document->extendText($para2, 'Second sentence para2.', 'Emphasis');
>
> $document->save;
It seems that either the behaviour of the extendText method has changed
with Version 2.222 or the documentation is inconsistent (I'll asume the
first). While the 2.222 documentation on CPAN lists an
extendText(element,style) method, my local installation (Version 2.219)
only has the following two:
extendText(path, position, text)
extendText(element, text)
so I guess that it silently discards the third parameter.
To assign a different style to a subset of a paragraph you can use the
setSpan() method:
$document->extendText($para2, ' Second sentence para2.' );
$document->setSpan( $para2, 'Second.*para2.', 'Emphasis' );
HTH
-Chris
------------------------------
Date: Mon, 10 Apr 2006 07:10:17 -0400
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: SYMANTIC ?: Is my Perl code called a script or a program
Message-Id: <p2r_f.1078$fo1.75547@news20.bellglobal.com>
<robic0> wrote in message news:gpjj32lt412cl9k881qv63laiighdc4md4@4ax.com...
> use strict;
I'm sure the nice people at Symantec are much too busy with viruses to worry
about you...
Matt
------------------------------
Date: Mon, 10 Apr 2006 11:52:28 +0200
From: "Ferry Bolhar" <bol@adv.magwien.gv.at>
Subject: Re: XS progamming question
Message-Id: <1144662749.282811@proxy.dienste.wien.at>
Ilya Zakharevich:
> Then your sentences should have been:
>
> "That's true if x is a valid Anno's identifier"
Please add "Ferry's" in addition. Because - to go back to my initial
question - what is the meaning of:
*x = 3;
the "3" really doesn't look like an identifier. Well, that's exactly was the
reason for my question...
Greetings, Ferry
--
Ing. Ferry Bolhar
Municipality of Vienna, Department 14
A-1010 Vienna / AUSTRIA
E-mail: bol@adv.magwien.gv.at
------------------------------
Date: Mon, 10 Apr 2006 12:12:39 +0200
From: "Ferry Bolhar" <bol@adv.magwien.gv.at>
Subject: Re: XS progamming question
Message-Id: <1144663959.957971@proxy.dienste.wien.at>
Ilya Zakharevich:
>> I have different (internal) C functions, but want to make visible to Perl
>> only one of them, but always with the same name.
>
> So, as I said, do it in Perl.
I would very appreciate if you could tell me how - no, I do not mean any
kind of aliasing. I do not want to make the other function(s) visible from
Perl, only the one selected during execution of the BOOT code.
> > I think the corresponding
> > module BOOT section is a good place for this kind of action, isn't it?`
>
> How can it be a good place if you miss the knowledge how to implement
> it there?
I don't miss this knowledge (at least I hope so ;-). I've added a PPBOOT
directive to xsubpp - behaviour is similar to PPCODE within an xsub.
Works great now, and our developers are happy!
If anyone is interested in this modified xsubpp, I gladly can send the code.
It's xsubpp 1.9508, but the modifications can be applied to any xsubpp
supporting the BOOT directive.
Thanks again for your help,
Ferry
--
Ing. Ferry Bolhar
Municipality of Vienna, Department 14
A-1010 Vienna / AUSTRIA
E-mail: bol@adv.magwien.gv.at
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 9139
***************************************
