[25734] in Perl-Users-Digest
Perl-Users Digest, Issue: 7974 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Apr 14 14:05:39 2005
Date: Thu, 14 Apr 2005 11:05:09 -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 Thu, 14 Apr 2005 Volume: 10 Number: 7974
Today's topics:
(OT) Web Hosting Special Offer......................... host@host.com
Re: (the simplest question of the century ?) Simple a <Milca@laposte.net>
Re: can anyone explain the last two lines to me?thanks! <richard@zync.co.uk>
Re: help understanding ++ <eric-amick@comcast.net>
Re: help understanding ++ <sisyphus1@nomail.afraid.org>
Re: Is Perl open source? <josef.moellers@fujitsu-siemens.com>
Re: Is Perl open source? <matternc@comcast.net>
Re: LWP::UserAgent and basic authentication <ThomasKratz@REMOVEwebCAPS.de>
Re: Net::Telnet prompt problem <m.sloyko@mostcom.ru>
Re: Net::Telnet prompt problem colintelfer@hotmail.com
Problem with Net::LDAP::DSML or XML::SAX::Writer <Schering@zrz.TU-Berlin.DE>
Q: Extract AVI/MOV video frames to JPEG files ? <iain@firewall.nbg.bricbrac.de>
Remplacer le contenu d'un fichier par un autre fichier <pontoize*NOSPAM*@Efrei.fr.invalid>
Re: Remplacer le contenu d'un fichier par un autre fich <vp@yahoo.com>
Search Beta Test :secure login without Password (Philippe Lumbroso)
Re: suggestion for perlop (Anno Siegel)
Re: suggestion for perlop <hendrik_maryns@despammed.com>
Supercomputer and encryption and compression @ rate of c3poptuse@yahoo.com
Re: Supercomputer and encryption and compression @ rate <postmaster@castleamber.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 14 Apr 2005 08:03:16 +0000 (UTC)
From: host@host.com
Subject: (OT) Web Hosting Special Offer..................................
Message-Id: <d3l844$1mmo$34@news.hgc.com.hk>
UHOSTNET.COM ¤¤´ä¥x²Ä¤@¥N¤¬ÁpºôªA°È¤½¥q ²{±À¥X¥þ·sÀu´f
©Ò¦³¦b¥»¤ë§C«e¥Ó½Ðªº¨ä¥¦¤½¥qÂಾ«È¤á§Y¦h°e±z¤TÓ¤ëªA°È
¤ä´© PHP+MySQL, Access+ASP, ASP.NET, CGI, SSI ¹q¶l¯f¬r¹LÂo, ©U§£¹q¶l¹LÂo ¤Î WebMail µ¥......
¥»¤ë§C«e¥Ó½ÐW1000§Y°eº¦¸¦w¸ËÁʪ«¨®µ{¦¡ osc.
http://shop2.uhostnet.com
¨C¤ë¥u»Ý $20 °_
º¶
http://www.uhostnet.com
·s«È¤á¶}³q¼ËªO
http://dummy.uhostnet.com
·s«Ȥᴣ¨Ñ¤C¤Ñ§K¶O«Ø¯¸´Á¡C
¥i¨Ï¥Î¥»¤½¥q§K¶O´£¨Ñªº°Æ°ì¦W¡C
ªA°Èp¹º¶R¤Q°e¤G¡A¤Z¹wú¤QÓ¤ëªA°È¤ë¶O¡A¦h°e¨âÓ¤ë¡C
²{§Y¥Ó¨ä¥¦¤½¥qÂà¥Î§ÚÌ¡A§Y¦h°e±z¤TÓ¤ëªA°È¡C(¥ô¦ó°ì¦WÂಾ)
¥H¤Wp¹º¥þ±Ä¥Î¤¤¤åWIN2003¥¥x¡A«È¤á¥ç¥i¿ï¥Î¥»¤½¥qªºLinux¥¥xªA°Èp¹º¡C
ªþ°e¹ê¥Îµ{¦¡
ASP ¯d¨¥Ã¯,²á¤Ñ«Ç,ASP ¤H¼Æ¾¹,PHP ¤H¼Æ¾¹,ASP ºô¤W¹q¶lªí®æ,ASP Àɮ׺޲zµ{¦¡,ºô¤W°Ó©±,©ç½æ¨t²Î¤Î¦U´Ú½×¾Âµ{¦¡..
¨C¤ë $20 ºô¶±H¦sªA°È
Basic Plan W200: (¨C¤ë $20)
-- 200MB ºô¶ªÅ¶¡
-- µL¹q¶l«H½c
-- µL¸ê®Æ¶Ç¿é¶q
-- ¤ä´© ASP+Access / CGI
-- ¹q¶l¯f¬r¹LÂo¨t²Î
-- ©U§£¹q¶l¹LÂo¨t²Î
http://www.uhostnet.com/modules.php?name=service&file=index&func=windetails&plan=A
Windows W300: (¨C¤ë $38)
-- ¤@¦~°ê»Ú·s°ì¦W
-- 300MB ºô¶ªÅ¶¡
-- µL¹q¶l«H½c
-- µL¸ê®Æ¶Ç¿é¶q
-- ¤ä´© PHP+MySQL, ASP+ACCESS, CGI, SSI
-- 1 Ó MySQL ¸ê®Æ®w (5MB)
-- ¹q¶l¯f¬r¹LÂo¨t²Î
-- ©U§£¹q¶l¹LÂo¨t²Î
http://www.uhostnet.com/modules.php?name=service&file=index&func=windetails&plan=B
Windows W500: (¨C¤ë $48)
-- ¤@¦~°ê»Ú·s°ì¦W
-- ¤lºô°ì 3 Ó (¼v®g¤£¦P¥Ø¿ý)
-- 500MB ºô¶ªÅ¶¡
-- µL¹q¶l«H½c
-- µL¸ê®Æ¶Ç¿é¶q
-- ¤ä´© PHP+MySQL, ASP+ACCESS, CGI, SSI
-- 1 Ó MySQL ¸ê®Æ®w (10MB)
-- ¹q¶l¯f¬r¹LÂo¨t²Î
-- ©U§£¹q¶l¹LÂo¨t²Î
http://www.uhostnet.com/modules.php?name=service&file=index&func=windetails&plan=C
Windows W800: (¨C¤ë $58)
-- ¤@¦~°ê»Ú·s°ì¦W
-- ¤lºô°ì 5 Ó (¼v®g¤£¦P¥Ø¿ý)
-- 800MB ºô¶ªÅ¶¡
-- µL¹q¶l«H½c
-- µL¸ê®Æ¶Ç¿é¶q
-- ¤ä´© PHP+MySQL, ASP+ACCESS, CGI, SSI
-- 1 Ó MySQL ¸ê®Æ®w (20MB)
-- ¹q¶l¯f¬r¹LÂo¨t²Î
-- ©U§£¹q¶l¹LÂo¨t²Î
http://www.uhostnet.com/modules.php?name=service&file=index&func=windetails&plan=D
Windows W1000: (¨C¤ë $68)
-- ¤@¦~°ê»Ú·s°ì¦W
-- ¤lºô°ì 10 Ó (¼v®g¤£¦P¥Ø¿ý)
-- 1GB ºô¶ªÅ¶¡
-- µL¹q¶l«H½c
-- µL¸ê®Æ¶Ç¿é¶q
-- ¤ä´© PHP+MySQL, ASP+ACCESS, CGI, SSI
-- 1 Ó MySQL ¸ê®Æ®w (50MB)
-- ¹q¶l¯f¬r¹LÂo¨t²Î
-- ©U§£¹q¶l¹LÂo¨t²Î
-- °eº¦¸¦w¸Ë½×¾Âµ{¦¡©Î¶W±jºô¤W°Ó©±¨t²Î
http://www.uhostnet.com/modules.php?name=service&file=index&func=windetails&plan=E
«È ¤á ¦C ªí : http://www.uhostnet.com/modules.php?name=clients
.................................
------------------------------
Date: Thu, 14 Apr 2005 15:37:25 +0200
From: Milca <Milca@laposte.net>
Subject: Re: (the simplest question of the century ?) Simple access to ... ACCESS !
Message-Id: <d3lqe2$sod$1@s1.news.oleane.net>
Thank's one thousand times : despite the fact that it necessarily had to
work (and then should never have run at all), it has perfectly run,
rapidly, in total conformance with the "Manual", I have made my first
request without any problem, and - until here - the result is exactly
what it has to be ...!!! I've been very close to this result with the
tests I had made before (ODBC parameters good), but the result has
"exploded" only now !
Thank's again ! The face of the planet should change fast and soon, from
now ...! :-)))
Micla.
Bill Segraves wrote:
> "Milca" <Milca@laposte.net> wrote in message
> news:d3gtgq$c3n$1@s1.news.oleane.net...
>
>>Hi all,
>>
>>I'm a (or "one more") newcomer in Perl, and ask for very basic help.
>>
>>Despite some time spent to read all this forum and some CPAN docs, I've
>>not found a simple explanation of my request however simple.
>>
>>I'd like to access - read only is sufficient for the beginning - to an
>>MS ACCESS database from perls scripts. I'm on Win 2K.I'd like to make
>>simple SQL or SQL-like queries (is that a pure dream ?) :seeing my
>>tables, seeing the data of each table, bing able to select elementary
>>data in tables, and even not necessarily with joining them. ... Truly a
>>"basic access to ACCESS" !
>
>
> Search Google Groups for "Access to MS-Access database with the Reader via
> ODBC", where you'll find a thread with the same name. The link to Geoff Cox'
> article has changed to http://www.micro-active.com/dbase.htm.
>
> Search Google for "Dabbling in Live Databases Aaron Weiss" for a useful
> tutorial. Another Google search for "Dabbling in Live Databases Aaron Weiss
> GUFE" will show you the way to another useful tutorial.
> --
> Bill Segraves
>
>
>
>
>
>
------------------------------
Date: Thu, 14 Apr 2005 10:42:49 +0000
From: Richard Gration <richard@zync.co.uk>
Subject: Re: can anyone explain the last two lines to me?thanks!
Message-Id: <pan.2005.04.14.10.42.46.204430@zync.co.uk>
On Wed, 13 Apr 2005 17:11:41 -0700, biomahui wrote:
>
> a problem encountered when I created my own email address as follows:
>
> #!/usr/bin/perl
> $_='comil.gmaui@mahbio';
> 1 while s/(.{2})(.{2})?/$_{$2}=$1,$2/e;
> print $_ while $_=$_{$_};
>
> If I use $_='biomahui@gmail.com'; the program will never stop.
> what's the problem?
Check your hash keys. You're in a loop.
------------------------------
Date: Thu, 14 Apr 2005 00:06:37 -0400
From: Eric Amick <eric-amick@comcast.net>
Subject: Re: help understanding ++
Message-Id: <rqqr515ilkpcpf65utla5ddehvbe9ee0n4@4ax.com>
On Thu, 14 Apr 2005 10:48:25 +1000, "Sisyphus"
<sisyphus1@nomail.afraid.org> wrote:
>> The auto-increment operator has a little extra builtin magic to it. If
>> you increment a variable that is numeric, or that has ever been used in
>> a numeric context, you get a normal increment. If, however, the variable
>> has been used in only string contexts since it was set, and has a value
>> that is not the empty string and matches the pattern
>> /^[a-zA-Z]*[0-9]*\z/, the increment is done as a string, preserving each
>> character within its range, with carry:
>>
>> print ++($foo = '99'); # prints '100'
>> print ++($foo = 'a0'); # prints 'a1'
>> print ++($foo = 'Az'); # prints 'Ba'
>> print ++($foo = 'zz'); # prints 'aaa'
>> -----------
>>
>
>Seems to me that's not quite right. The following prints '9', not '8d' as I
>would expect:
>
>print ++($foo = '8c');
>
Look at the pattern again. The magic autoincrement occurs when all the
letters are before the digits. When the string starts with a digit, Perl
converts it to a number before incrementing.
--
Eric Amick
Columbia, MD
------------------------------
Date: Thu, 14 Apr 2005 14:48:15 +1000
From: "Sisyphus" <sisyphus1@nomail.afraid.org>
Subject: Re: help understanding ++
Message-Id: <425df612$0$5596$afc38c87@news.optusnet.com.au>
"Eric Amick" <eric-amick@comcast.net> wrote in message
news:rqqr515ilkpcpf65utla5ddehvbe9ee0n4@4ax.com...
>
> Look at the pattern again. The magic autoincrement occurs when all the
> letters are before the digits. When the string starts with a digit, Perl
> converts it to a number before incrementing.
>
Aaah, yes .... I didn't examine the pattern properly. Thanks.
Cheers,
Rob
------------------------------
Date: Thu, 14 Apr 2005 08:43:01 +0200
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: Is Perl open source?
Message-Id: <d3l3l8$pfo$2@nntp.fujitsu-siemens.com>
xhoster@gmail.com wrote:
> soup_or_power@yahoo.com wrote:
>=20
>>If much of perl is implemented in C, why should we prefer Perl over C
>>for performance critical projects?
>=20
>=20
> Because 1 plus 3 is less than 10 plus 1.
>=20
> Time spent writing and righting the program is time during which the
> program cannot be "performancing".
A second spent optimizing a frequently used program is many seconds=20
saved during performance.
--=20
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: Thu, 14 Apr 2005 07:52:26 -0400
From: Chris Mattern <matternc@comcast.net>
Subject: Re: Is Perl open source?
Message-Id: <E6GdnWFtg8bnxMPfRVn-jA@comcast.com>
Josef Moellers wrote:
> xhoster@gmail.com wrote:
>> soup_or_power@yahoo.com wrote:
>>
>>>If much of perl is implemented in C, why should we prefer Perl over C
>>>for performance critical projects?
>>
>>
>> Because 1 plus 3 is less than 10 plus 1.
>>
>> Time spent writing and righting the program is time during which the
>> program cannot be "performancing".
>
> A second spent optimizing a frequently used program is many seconds
> saved during performance.
>
Yet it is good to remember that often, that second of programmer's time
is more expensive than the many seconds of machine time that is saved.
--
Christopher Mattern
"Which one you figure tracked us?"
"The ugly one, sir."
"...Could you be more specific?"
------------------------------
Date: Thu, 14 Apr 2005 11:37:15 +0200
From: Thomas Kratz <ThomasKratz@REMOVEwebCAPS.de>
Subject: Re: LWP::UserAgent and basic authentication
Message-Id: <425e39ca$0$838$bb690d87@news.main-rheiner.de>
Brian Wakem wrote:
> Have done. I get -
>
>
> LWP::UserAgent::new: ()
> LWP::UserAgent::request: ()
> LWP::UserAgent::send_request: GET <url>
> LWP::UserAgent::_need_proxy: Not proxied
> LWP::Protocol::http::request: ()
> LWP::Protocol::collect: read 841 bytes
> LWP::Protocol::collect: read 976 bytes
> LWP::Protocol::collect: read 1017 bytes
> LWP::Protocol::collect: read 426 bytes
> LWP::Protocol::collect: read 1448 bytes
> LWP::Protocol::collect: read 171 bytes
> LWP::Protocol::collect: read 1017 bytes
> LWP::Protocol::collect: read 47 bytes
> LWP::Protocol::collect: read 7 bytes
> LWP::Protocol::collect: read 186 bytes
> LWP::Protocol::collect: read 1448 bytes
> LWP::Protocol::collect: read 1448 bytes
> LWP::Protocol::collect: read 1448 bytes
> LWP::Protocol::collect: read 1448 bytes
> LWP::Protocol::collect: read 1448 bytes
> LWP::Protocol::collect: read 1448 bytes
> LWP::Protocol::collect: read 378 bytes
> LWP::Protocol::collect: read 1016 bytes
> LWP::Protocol::collect: read 46 bytes
> LWP::Protocol::collect: read 1448 bytes
> LWP::Protocol::collect: read 1448 bytes
> LWP::Protocol::collect: read 1448 bytes
> LWP::Protocol::collect: read 2786 bytes
> LWP::Protocol::collect: read 1016 bytes
> LWP::Protocol::collect: read 534 bytes
> LWP::Protocol::collect: read 1448 bytes
> LWP::Protocol::collect: read 1448 bytes
> LWP::Protocol::collect: read 1448 bytes
> LWP::Protocol::collect: read 1448 bytes
> LWP::Protocol::collect: read 850 bytes
> LWP::Protocol::collect: read 591 bytes
> LWP::Protocol::collect: read 1448 bytes
> LWP::Protocol::collect: read 1072 bytes
> LWP::Protocol::collect: read 369 bytes
> LWP::Protocol::collect: read 200 bytes
> LWP::Protocol::collect: read 15 bytes
> LWP::UserAgent::request: Simple response: OK
>
Thanks! I don't know exactly, why it behaves differently on my side.
But I derived my own UA class from LWP::UserAgent and changed the request
method, so that it only fails once at the beginning and uses the working
authorisation for subsequent calls to request.
Works without problem.
Thomas
--
$/=$,,$_=<DATA>,s,(.*),$1,see;__END__
s,^(.*\043),,mg,@_=map{[split'']}split;{#>J~.>_an~>>e~......>r~
$_=$_[$%][$"];y,<~>^,-++-,?{$/=--$|?'"':#..u.t.^.o.P.r.>ha~.e..
'%',s,(.),\$$/$1=1,,$;=$_}:/\w/?{y,_, ,,#..>s^~ht<._..._..c....
print}:y,.,,||last,,,,,,$_=$;;eval,redo}#.....>.e.r^.>l^..>k^.-
------------------------------
Date: Thu, 14 Apr 2005 09:36:20 +0400
From: Maxim <m.sloyko@mostcom.ru>
Subject: Re: Net::Telnet prompt problem
Message-Id: <d3kvgg$srg$1@domitilla.aioe.org>
colintelfer@hotmail.com wrote:
> I get this error when running my small test program...
>
> timed-out waiting for login prompt
>
> ...
> $host = '192.168.100.251';
> $port = '24';
> $username = 'admin';
> $password = '';
> $prompt = '/User:/';
> $session = new Net::Telnet
> (
> Timeout => 5,
> Prompt => $prompt
> );
>
> $session->input_log("inputlog.txt");
> $session -> open(Host => $host,Port => $port);
> $session -> login($username, $password);
> ...
>
> Here is the ouput from inputlog.txt:
>
> (Sys)
> User:
>
> I am guessing there is a problem with prompt, but I have tried a few
> different matches without success...
>
> Any help?
>
> Thanks!
>
Prompt has no effect on login function. Well, it does, but not on
username/password command-line patterns.
login function waits for patterns like this:
/login[: ]*$/i
/username[: ]*$/i
/password[: ]*$/i
You have the prompt "User:", that is why login times out; Try using
print/waitfor instead. It can be something like this:
$session->waitfor('/User:/')
$session->print($username);
$session->waitfor('/password:');
$session->print($password);
$session->waitfor($cmd_line_prompt);
...
and so on.
Hope this Helps a little.
--
Maxim Sloyko
------------------------------
Date: 14 Apr 2005 06:38:34 -0700
From: colintelfer@hotmail.com
Subject: Re: Net::Telnet prompt problem
Message-Id: <1113485914.351144.5000@z14g2000cwz.googlegroups.com>
Helps a lot!
Thanks this works.
------------------------------
Date: Thu, 14 Apr 2005 11:52:50 +0200
From: Gerd Schering <Schering@zrz.TU-Berlin.DE>
Subject: Problem with Net::LDAP::DSML or XML::SAX::Writer
Message-Id: <d3lehi$3ga$1@mamenchi.zrz.TU-Berlin.DE>
Hi,
when I dump a ldap entry in dsml format via
$dsml->write_entry($entry),
the final closing tags
</dsml:directory-entries>
</dsml:dsml>
are missing.
Because Net::LDAP::DSML calls XML::SAX::Writer for writing, I think it's
more the fault of the latter (on which btw development seems to have
stopped sinc 2002).
Has anyone exprienced and overcome this behaviour or a hint which
module(s) to use instead?
Thanks
Gerd
------------------------------
Date: Thu, 14 Apr 2005 08:19:23 +0200
From: Iain Lea <iain@firewall.nbg.bricbrac.de>
Subject: Q: Extract AVI/MOV video frames to JPEG files ?
Message-Id: <d3l21b$bko$00$1@news.t-online.com>
I am looking for a script that can extract single frames
from an AVI/MOV video file and write them to JPEG images.
Thanx
Iain
--
+49-172-8196039 Skype VoIP: iain.lea
------------------------------
Date: 14 Apr 2005 08:54:49 GMT
From: Nicolas Pontoizeau <pontoize*NOSPAM*@Efrei.fr.invalid>
Subject: Remplacer le contenu d'un fichier par un autre fichier
Message-Id: <slrnd5sa97.m2o.pontoize*NOSPAM*@choam.unix.efrei.fr>
Bonjour,
J'ai fait un menu pour un site web et maintenant je souhaite recopier ce
menu sur toutes les pages de mon site.
Existe-t-il un moyen pour copier tout ce qui se trouve entre les
commentaires :
<!-- here starts the menu-->
<div id="topmenu">
<div id="menu">
[...]
</div><!--menu-->
</div><!--topmenu-->
<!-- here end the menu-->
et de mettre à jour tout le contenu des pages du site entre les
commentaires :
<!-- here starts the menu-->
[...]
<!-- here end the menu--> ?
J'ai pensé à perl car ça ressemble à :
for i in *.htm; do perl -pe "s/htm/php/g" -i $i; done
qui me permet de remplacer html par php mais là c'est un plus complexe
et je connais très mal perl.
Merci d'avance,
--
http://www.nicolas.pontoizeau.org/
Nicolas Pontoizeau - Promotion EFREI 2005
------------------------------
Date: Thu, 14 Apr 2005 10:55:04 +0100
From: VP <vp@yahoo.com>
Subject: Re: Remplacer le contenu d'un fichier par un autre fichier
Message-Id: <425e2fb1$0$20667$ba620e4c@news.skynet.be>
Nicolas Pontoizeau wrote:
> Bonjour,
>
> J'ai fait un menu pour un site web et maintenant je souhaite recopier ce
> menu sur toutes les pages de mon site.
>
> Existe-t-il un moyen pour copier tout ce qui se trouve entre les
> commentaires :
>
> <!-- here starts the menu-->
>
> <div id="topmenu">
>
> <div id="menu">
> [...]
> </div><!--menu-->
> </div><!--topmenu-->
>
> <!-- here end the menu-->
>
> et de mettre à jour tout le contenu des pages du site entre les
> commentaires :
> <!-- here starts the menu-->
> [...]
> <!-- here end the menu--> ?
>
> J'ai pensé à perl car ça ressemble à :
> for i in *.htm; do perl -pe "s/htm/php/g" -i $i; done
>
> qui me permet de remplacer html par php mais là c'est un plus complexe
> et je connais très mal perl.
>
> Merci d'avance,
>
===> fr.comp.lang.perl ?
------------------------------
Date: 14 Apr 2005 02:53:15 -0700
From: plumbros@012.net.il (Philippe Lumbroso)
Subject: Search Beta Test :secure login without Password
Message-Id: <a01206c9.0504140153.3ea4cf34@posting.google.com>
Hello,
We are now starting a limited public beta of a new security program
for Windows named "NaturalLogin".
The program can use one or more hardware devices (such as standard USB
storage keys) and/or custom questions to enable a multi-factor (2 or
more) login.
We are looking for serious beta testers with the following
configuration:
- Windows NT, 2000 or XP;
- Not connected to a domain manager (stand-alone PC or
workgroup);
- At least one USB removable storage device.
If you are interested please register on our Web site at:
http://www.palcott.com/betatest/
The beta testers who will fill a valid report will receive a discount
code to purchase the final version of Natural Login at a very low
price.
For more information about NaturalLogin or about our company:
http://www.palcott.com
To read the online documentation:
http://www.palcott.com/betatest/proddoc/
Thank you for all your comments,
Philippe Lumbroso
BetaTest Program - Palcott
plumbroso@palcott.com
www.palcott.com
------------------------------
Date: 14 Apr 2005 08:47:52 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: suggestion for perlop
Message-Id: <d3lano$kk$1@mamenchi.zrz.TU-Berlin.DE>
Hendrik Maryns <hendrik_maryns@despammed.com> wrote in comp.lang.perl.misc:
> Hi,
>
> I'm reading through perlop, and encountered the following:
>
> ---------
> Unary ``+'' has no effect whatsoever, even on strings. It is useful
> syntactically for separating a function name from a parenthesized
> expression that would otherwise be interpreted as the complete list of
> function arguments. (See examples above under Terms and List Operators
> (Leftward).)
> ---------
>
> But in Terms and List Operators, + is not used (as far as I can tell).
> Instead, it is used in the section Named Unary Operators. I suppose
> this should be changed.
The section "Terms and List Operators (Leftward)" is split into sub-
sections "The Arrow Operator", "Auto-increment and Auto-decrement" and
so on. The ninth of these is "Named Unary Operators", which is thus
part of "Terms and List Operators (Leftward)".
The structure is less than clear in the pod, where the section and
its subsections are all marked up as "=head2". A look at the printed
version in the Camel (identically structured) makes the intention
clear. Perhaps the subsections should become "=head3", but I'd hesitate
to suggest this without a close look at how "=headN" is used throughout
the perldoc pods.
Anno
------------------------------
Date: Thu, 14 Apr 2005 19:54:35 +0200
From: Hendrik Maryns <hendrik_maryns@despammed.com>
Subject: Re: suggestion for perlop
Message-Id: <1113501290.270898@seven.kulnet.kuleuven.ac.be>
Anno Siegel uitte de volgende tekst op 14/04/2005 10:47:
> Hendrik Maryns <hendrik_maryns@despammed.com> wrote in comp.lang.perl.misc:
>
>>Hi,
>>
>>I'm reading through perlop, and encountered the following:
>>
>>---------
>>Unary ``+'' has no effect whatsoever, even on strings. It is useful
>>syntactically for separating a function name from a parenthesized
>>expression that would otherwise be interpreted as the complete list of
>>function arguments. (See examples above under Terms and List Operators
>>(Leftward).)
>>---------
>>
>>But in Terms and List Operators, + is not used (as far as I can tell).
>>Instead, it is used in the section Named Unary Operators. I suppose
>>this should be changed.
>
>
> The section "Terms and List Operators (Leftward)" is split into sub-
> sections "The Arrow Operator", "Auto-increment and Auto-decrement" and
> so on. The ninth of these is "Named Unary Operators", which is thus
> part of "Terms and List Operators (Leftward)".
>
> The structure is less than clear in the pod, where the section and
> its subsections are all marked up as "=head2". A look at the printed
> version in the Camel (identically structured) makes the intention
> clear. Perhaps the subsections should become "=head3", but I'd hesitate
> to suggest this without a close look at how "=headN" is used throughout
> the perldoc pods.
I see. In the offline html versions I'm looking at, (provided by
ActivePerl) there's no difference visible at all.
H.
--
Hendrik Maryns
Interesting websites:
www.lieverleven.be (I cooperate)
www.eu04.com European Referendum Campaign
aouw.org The Art Of Urban Warfare
------------------------------
Date: 14 Apr 2005 02:29:19 -0700
From: c3poptuse@yahoo.com
Subject: Supercomputer and encryption and compression @ rate of 96%
Message-Id: <1113470959.800641.73130@z14g2000cwz.googlegroups.com>
Supercomputer and encryption and compression @ rate of 96%
Take a document then or a 3D matrix document change it two random or
binary code or just a program for 0's and 1's and fold it over and over
like a piece of paper then having the 1 and 0 add each other or the
0,1's canceling each other out 1+0=0 and 0+1=1 1+1=1 0+0=0 if you gave
the folds addresses like on a spread sheet there would be no math.
First A 1-24 would fold to k 1-24 down.(See Example A ) Then at F1-24
down two k 1-24 ( See example B ) If you written a very long letter
and then change it two binary code it would look like this.
123456789.............24
a.01010101010101010101010
b.10010101010101010101010
c.01010101001010101010010
e.00010101000101010101010
f.10010101010100101010101 First A 24 would fold to k 24 down
g.01010101010100001100101 See Example A
h.01001010101010101010111
I.11110111001101010101010
j.01010101010101010101010
k.10101010101010101010101
See Example A
123456789.............24
f.10010101010100101010101
g.01010101010100001100101
h.01001010101010101010111 Then at F1-24 down two k 1-24
I.11110111001101010101010
j.01010101010101010101010
k.10101010101010101010101
See example B
123456789.............24
I.11110111001101010101010
j.01010101010101010101010 Then from I 1-24 to K 1-24
k.10101010101010101010101
123456789.............24
j.01010101010101010101010 Then from j-24 to j-1
123456789...
j.010101010101 Then from j-12 to j-1
123456
j.010101 Then from j-6 to j1
123
j.010 Then from j-3 to j1
12
j.01 Then from j-2 to j1
j.0 Then you would have
1 bit to transfer over the
Internet
The bit sent would be 0 and the key code would be F1-24,k 1-24,
I 1-24,K 1-24,j24,j1,j12,j1,j6,j1,j3,j1,j2,j1 and would unzip or be new
encryption you could encrypt or compress 100 terabits down to 1 bit of
information. Now if you take this idea from my web site you could make
this allot more complex and unbreakable. Data encryption 360 degrees
rotation document 90 degrees and encrypt on every angel then 45 degrees
change it two binary code do it again and again and fold it over like a
piece of paper then having the one's and zero cancel each other out. In
theory you could send a 100 terabit program to someone's computer and
have it unzip and run and install or make
A computer processor like the new 64 bit AMD have the bit unzip into a
large ram drive and buffer use one half of the 64 bit processor decode
the message and the main 64 bit run the numbers. Another way of doing
this is to have a parallel computers with using one of the processes
run the compressed 1 bit of information give the uncompressed a address
on the ram drive to change and not even go threw the processor and then
with different information on each machine compare and run statistics
on information on a 45 tflops supercomputer and turn that 45 tflops
computer into a 1 bit = 100,000 terabits to infinite as long as you
have the ram for storage! with my calculations 45 tflops wouldn't
matter any more it would be how much data you have on a 32bit operating
system changing that to a 1 bit system it would be 32 * 45tflops would
= 1440 tflops Matter moves so fast that it intergreats and
deintergreats faster then any speed we can see it like water from a
hose at real close speed it moves in -------- lines.
------------------------------
Date: 14 Apr 2005 16:48:50 GMT
From: John Bokma <postmaster@castleamber.com>
Subject: Re: Supercomputer and encryption and compression @ rate of 96%
Message-Id: <Xns96387819353E8castleamber@130.133.1.4>
wrote:
> Supercomputer and encryption and compression @ rate of 96%
April Fools day was some time ago.
--
John Small Perl scripts: http://johnbokma.com/perl/
Perl programmer available: http://castleamber.com/
Happy Customers: http://castleamber.com/testimonials.html
------------------------------
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 7974
***************************************
