[29656] in Perl-Users-Digest
Perl-Users Digest, Issue: 900 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Oct 3 09:09:41 2007
Date: Wed, 3 Oct 2007 06:09: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 Wed, 3 Oct 2007 Volume: 11 Number: 900
Today's topics:
Re: $current_script_line_number <ben@morrow.me.uk>
APL2007 update <mkent@acm.org>
Re: FAQ 4.52 How do I sort an array by (anything)? <brian.d.foy@gmail.com>
I have address book with more than <Bond@james.bond>
Re: line 16 <bik.mido@tiscalinet.it>
Re: line 16 <bik.mido@tiscalinet.it>
new CPAN modules on Wed Oct 3 2007 (Randal Schwartz)
nike cheap sell wholesale shoes jordan shox air max fo <cheapestsell@hotmail.com>
Re: Odd regex behavior sln@netherlands.co
Re: the camel perl book <bik.mido@tiscalinet.it>
Re: The Modernization of Emacs: terminology buffer and (Bent C Dalager)
Re: The Modernization of Emacs: terminology buffer and <dak@gnu.org>
Re: The Modernization of Emacs: terminology buffer and (Bent C Dalager)
Re: Using fcntl and |= - "Argument .... isn't numeric i <allergic-to-spam@no-spam-allowed.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 3 Oct 2007 02:00:50 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: $current_script_line_number
Message-Id: <276bt4-ln42.ln1@osiris.mauzo.dyndns.org>
Quoth krahnj@telus.net:
> jidanni@jidanni.org wrote:
> > die() has access to these two:
> > $ perldoc -f die
> > the current script line number and input line number
> >
> > The latter is $., but what about the former? No accessing that
> > from within one's program unless one wants to die() or warn()?
>
> Search perldata for __LINE__
Also (caller 1)[2] if you're trying to imitate die.
Ben
------------------------------
Date: Wed, 03 Oct 2007 08:21:32 -0400
From: Mike Kent <mkent@acm.org>
Subject: APL2007 update
Message-Id: <4703894C.4080307@acm.org>
APL 2007 in Montreal (only 2 1/2 weeks away, Oct 20-22).
Summary program information is now available
on the APL2007 home page
http://www.sigapl.org/apl2007.html
with a link to the comprehensive program description at
http://www.sigapl.org/apl2007-program.html#a2
Registration for APL2007 is at
http://www.regmaster.com/conf/oopsla2007.html
------------------------------
Date: Tue, 02 Oct 2007 20:31:54 -0500
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: FAQ 4.52 How do I sort an array by (anything)?
Message-Id: <021020072031540327%brian.d.foy@gmail.com>
In article <1191289592.621583.198460@50g2000hsm.googlegroups.com>,
William James <w_a_x_man@yahoo.com> wrote:
> On Sep 30, 2:03 pm, PerlFAQ Server <br...@stonehenge.com> wrote:
>
> > 4.52: How do I sort an array by (anything)?
> [...]
> > which could also be written this way, using a trick that's come to be
> > known as the Schwartzian Transform:
> >
> > @sorted = map { $_->[0] }
> > sort { $a->[1] cmp $b->[1] }
> > map { [ $_, uc( (/\d+\s*(\S+)/)[0]) ] } @data;
> >
>
> Ruby:
>
> sorted = data.sort_by{|s| s[ /\d+\s*(\S+)/, 1 ].upcase }
http://www.ruby-doc.org/core/classes/Enumerable.html says:
As of Ruby 1.8, the method Enumerable#sort_by implements a built-in
Schwartzian Transform, useful when key computation or comparison is
expensive..
So, I guess I should say "You're welcome". :)
------------------------------
Date: Wed, 3 Oct 2007 10:04:04 +0200
From: "Bond" <Bond@james.bond>
Subject: I have address book with more than
Message-Id: <fdvidl$d0s$1@ss408.t-com.hr>
I have address book with more than 1000 e-mail address. Bu some of them are
no good because user cancel it or change e-mail (some are older 10 year).
How to control witches are bad, so I can delete it. I can export it to text
file, and read it from perl.
Please Help
------------------------------
Date: Wed, 03 Oct 2007 14:10:36 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: line 16
Message-Id: <k017g3dglvmtvrfrlab1tsnnkkcanmodes@4ax.com>
On Tue, 02 Oct 2007 17:26:13 -0700, Ron Bergin <rkb@i.frys.com> wrote:
>Your shebang line indicates that you're on some form of *nix, but your
>reference to perl.exe would indicate that you're on Windows. Which is
>it? If you're on *nix, try changing your shebang line to point
>directly to the perl binary and see if that makes a difference.
But the shebang line won't do harm under Windows anyway. In fact I
just include it there all the time too. (Perl processes it anyway for
switches, but that's not the only reason.) However
perl -lpe "$_=sprintf '%02d %s', $., $_" wade.pl
reveals that line 16 is
die "Failed to retrieve message ids\n" unless @{$msg_ids_ref};
So it is not likely that "perl.exe doesn't like that line". I suppose
he's having a runtime error. In fact that script was originally posted
by someone as a minimal example in answer to a question from the OP, a
few months ago. It is to be noted that the test is probably not
correct or at least accurate as it should because if the newnews()
method fails then $msg_ids_ref will be undef and an attempt to
dereference it will result in an error. I also think that this is
probable to happen because the NEWNEWS command seems not to be much
supported by news servers.
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: Wed, 03 Oct 2007 14:15:26 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: line 16
Message-Id: <ho17g314ftpkv65in6aepq13m7fmdo23aj@4ax.com>
On Tue, 2 Oct 2007 15:49:53 -0700, "Wade Ward" <zaxfuuq@invalid.net>
wrote:
>Subject: line 16
Please put the subject of your posts in the Subject. Here, it may be
line 16 of quite about any Perl program in the world. The actual error
message you get, or some reasonable portion or adaptation of it, would
have been more appropriate.
>#!/usr/bin/env perl
[snip]
>#end script begin comment
>q3) Why does perl.exe not like line 16? I've correceted this before but
You may have helped us all (to help you!) by putting a comment like
# line 16
on line 16.
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: Wed, 3 Oct 2007 04:42:15 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Wed Oct 3 2007
Message-Id: <JpBJqF.15EG@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.
Alien-IE7-0.9.2
http://search.cpan.org/~gtermars/Alien-IE7-0.9.2/
installing and finding IE7 JS compatibility library
----
Alien-Lightbox-2.03.3.2
http://search.cpan.org/~gtermars/Alien-Lightbox-2.03.3.2/
installing and finding Lightbox JS
----
Alien-Prototype-1.5.0.1
http://search.cpan.org/~gtermars/Alien-Prototype-1.5.0.1/
installing and finding Prototype JS library
----
Alien-Prototype-1.5.1.1
http://search.cpan.org/~gtermars/Alien-Prototype-1.5.1.1/
installing and finding Prototype JS library
----
Alien-Prototype-1.5.1.2
http://search.cpan.org/~gtermars/Alien-Prototype-1.5.1.2/
installing and finding Prototype JS library
----
Alien-Prototype-1.6.0.1_0
http://search.cpan.org/~gtermars/Alien-Prototype-1.6.0.1_0/
installing and finding Prototype JS library
----
Alien-Prototype-Carousel-0.26.2
http://search.cpan.org/~gtermars/Alien-Prototype-Carousel-0.26.2/
installing and finding Prototype Carousel component
----
Alien-Prototype-Window-1.3.2
http://search.cpan.org/~gtermars/Alien-Prototype-Window-1.3.2/
installing and finding Prototype Window Class
----
Alien-scriptaculous-1.7.1.2_03
http://search.cpan.org/~gtermars/Alien-scriptaculous-1.7.1.2_03/
installing and finding script.aculo.us
----
Apache-Session-1.84
http://search.cpan.org/~chorny/Apache-Session-1.84/
A persistence framework for session data
----
Authen-SASL-Authd-0.02
http://search.cpan.org/~sasha/Authen-SASL-Authd-0.02/
Client authentication via Cyrus saslauthd or Dovecot authentication daemon.
----
Business-ISBN-2.03
http://search.cpan.org/~bdfoy/Business-ISBN-2.03/
work with International Standard Book Numbers
----
CPAN-Reporter-0.99_14
http://search.cpan.org/~dagolden/CPAN-Reporter-0.99_14/
Adds CPAN Testers reporting to CPAN.pm
----
Catalyst-Controller-Atompub-0.1.8
http://search.cpan.org/~takeru/Catalyst-Controller-Atompub-0.1.8/
A Catalyst controller for the Atom Publishing Protocol
----
Catalyst-Model-DBIDM-0.02
http://search.cpan.org/~cbouvi/Catalyst-Model-DBIDM-0.02/
DBIx::DataModel model class
----
Catalyst-Plugin-CRUD-0.21
http://search.cpan.org/~bayside/Catalyst-Plugin-CRUD-0.21/
CRUD (create/read/update/delete) Plugin for Catalyst
----
Class-Plugin-Util-0.009
http://search.cpan.org/~asksh/Class-Plugin-Util-0.009/
Utility functions for supporting Plug-ins.
----
Class-Simple-0.14
http://search.cpan.org/~sullivan/Class-Simple-0.14/
Simple Object-Oriented Base Class
----
Data-Float-0.007
http://search.cpan.org/~zefram/Data-Float-0.007/
details of the floating point data type
----
Data-Ovulation-0.01
http://search.cpan.org/~tkremer/Data-Ovulation-0.01/
Female ovulation prediction based on basal body temperature values
----
DateTime-Format-Flexible-0.02
http://search.cpan.org/~thinc/DateTime-Format-Flexible-0.02/
DateTime::Format::Flexible - Flexibly parse strings and turn them into DateTime objects.
----
Devel-CheckOS-1.0
http://search.cpan.org/~dcantrell/Devel-CheckOS-1.0/
check what OS we're running on
----
Eludia-07.10.02
http://search.cpan.org/~dmow/Eludia-07.10.02/
----
Email-MIME-Attachment-Stripper-1.314
http://search.cpan.org/~rjbs/Email-MIME-Attachment-Stripper-1.314/
Strip the attachments from a mail
----
File-Find-Rule-Permissions-1.3
http://search.cpan.org/~dcantrell/File-Find-Rule-Permissions-1.3/
rule to match on file permissions and user access
----
HTML-LinkChanger-1.7
http://search.cpan.org/~sergeyche/HTML-LinkChanger-1.7/
abstract Perl class to change all linking URLs in HTML.
----
HTML-TurboForm-0.01
http://search.cpan.org/~camelcase/HTML-TurboForm-0.01/
----
HTML-TurboForm-0.02
http://search.cpan.org/~camelcase/HTML-TurboForm-0.02/
----
HTML-Widget-Factory-0.061
http://search.cpan.org/~rjbs/HTML-Widget-Factory-0.061/
churn out HTML widgets
----
Hash-Slice-0.02
http://search.cpan.org/~rkrimen/Hash-Slice-0.02/
Make a hash from a deep slice of another hash
----
JSON-DWIW-0.15
http://search.cpan.org/~dowens/JSON-DWIW-0.15/
JSON converter that Does What I Want
----
KeyedMutex-0.03
http://search.cpan.org/~kazuho/KeyedMutex-0.03/
An interprocess keyed mutex
----
KindaPerl6-0.001
http://search.cpan.org/~avar/KindaPerl6-0.001/
A bootstrapping Perl 6 compiler with multiple emitter backends
----
Kvasir-0.06
http://search.cpan.org/~claesjac/Kvasir-0.06/
Generic rule based processing engine
----
Kvasir-Loader-XML-0.02
http://search.cpan.org/~claesjac/Kvasir-Loader-XML-0.02/
Load Kvasir engine declarations in XML
----
Net-Citadel-0.01
http://search.cpan.org/~drrho/Net-Citadel-0.01/
Citadel.org protocol coverage
----
Net-OAuth-0.02
http://search.cpan.org/~kgrennan/Net-OAuth-0.02/
----
Net-TacacsPlus-1.06
http://search.cpan.org/~jkutej/Net-TacacsPlus-1.06/
Tacacs+ library
----
Netscape-Bookmarks-2.2_02
http://search.cpan.org/~bdfoy/Netscape-Bookmarks-2.2_02/
parse, manipulate, or create Netscape Bookmarks files
----
Parse-Marpa-v0.1_6
http://search.cpan.org/~jkegl/Parse-Marpa-v0.1_6/
Earley's Algorithm, with improvements
----
Sendmail_M4.0.27
http://search.cpan.org/~cml/Sendmail_M4.0.27/
----
TL1ng-0.03
http://search.cpan.org/~sscaffidi/TL1ng-0.03/
A simple, flexible, OO way to work with TL1.
----
Text-xSV-0.16
http://search.cpan.org/~tilly/Text-xSV-0.16/
read character separated files
----
Tree-Parser-0.15
http://search.cpan.org/~stevan/Tree-Parser-0.15/
Module to parse formatted files into tree structures
----
Tree-Simple-Manager-0.05
http://search.cpan.org/~stevan/Tree-Simple-Manager-0.05/
A class for managing multiple Tree::Simple hierarchies
----
WSO2-WSF-Perl-v1.0.0
http://search.cpan.org/~chintana/WSO2-WSF-Perl-v1.0.0/
----
WWW-Mixi-Scraper-0.07
http://search.cpan.org/~ishigaki/WWW-Mixi-Scraper-0.07/
yet another mixi scraper
----
WWW-Velib-0.01
http://search.cpan.org/~dland/WWW-Velib-0.01/
Download account information from the Velib website
----
Win32-GuiTest-1.51
http://search.cpan.org/~karasik/Win32-GuiTest-1.51/
Perl GUI Test Utilities.
----
Yahoo-Marketing-3.01
http://search.cpan.org/~jlavallee/Yahoo-Marketing-3.01/
an interface for Yahoo! Search Marketing's Web Services.
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.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
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: Wed, 03 Oct 2007 00:15:57 -0700
From: cheapestsell <cheapestsell@hotmail.com>
Subject: nike cheap sell wholesale shoes jordan shox air max force one gucci prada
Message-Id: <1191395757.253308.153030@k79g2000hse.googlegroups.com>
Hello.every one, our company have much cheap product . please visit
our web,
And chose the product of your like ,let go ,hope you shiping
happy ,Go
www.cheapest-sell.cn
Hotmail:cheapestsell@hotmail.com
Yahoo: cheapestsell@yahoo.com.cn
www.cheapest-sell.cn
Nike Air Jordan 1 ,Nike Air Jordan 2 Shoes,Nike Air Jordan 3,Nike Air
Jordan 4 Shoes ,Nike Air Jordan 5 Chaussure Shoes,Nike Air Jordan 6
Catalog ,Nike Air Jordan 7 Shoes Catalog ,
Nike Air Jordan 8 Customized ,Nike Air Jordan 9 Shoes
Customized ,Nike
Air Jordan 10 Wholesalers,Nike Jordan 11 Shoes Wholesalers,Nike Air
Jordan 12 retailer,Nike Air Jordan 13 Shoes Factory ,Nike Air Jordan
14 Shoes Sell,Nike Air Jordan 16 Exporter ,Nike Air Jordan 17 Shoes
Exporter, Nike Air Jordan 18 Offer, Nike Air Jordan 19 Shoes
Offer,Nike Air Jordan 20 Manufacture,Nike Jordan 21 Shoes
Manufacture,Nike Jordan 22 CUSTOMIZED ,
We Import&Export&Trading&Retail&sell&buy&distribution& Wholesale Nike
footwear and Nikes Sneakers Jordans Sneakers to this market:
USA,America,US,United States,UK,England,United Kingdom,IT,Italy,
NT,Netherlands,China,Chinese,Germany,DE,Greece,GR,France,
FR,Spain,Portugal,Switzerland,Switzerland,Brazil,Chile,Peru,C
Korea,Australia,Hongkong,Canada,Mexico,Etc
Nike shoes | china nike shoes | air jordan sneakers | cheap gucci
shoes | cheap prada sneakers | gucci sneakers | mix jordan sneakers |
chanel sandals | gucci sandals | dior sandals | wholesale jordan
sneakers | nike running shoes | nike stock shoes | air jordan at
whlesale price | nike shoes air jordan supplier from in china |
Lacoste Trainers | puma trainers | louis vuitton purse | prada purse
|
gucci handbags | chanel purse | coach purse | nike bas kerball shoes
|
Nike Sneakers| cheap nike sneakers | nike shoes from china | nike
replica | copy nike sneakers | nike factory stores | nike stores
Nike wholesale - Nike shoes wholesale
nike jordan sneakers wholesale( www.cheapest-sell.cn)
We (http: //www.cheapest-sell.cn)
Wholesale Cheap Jordan
Shoes,Michael
Jordan Shoes,Nike Jordan Basketball shoes, ... Jordan Shoes,Air
Jordan
Sneakers,Air Jordan Wholesale All of the Air Jordan sneakers have
Nike
Air in the shoes.Authentic quality Jordan Sneakers Custom Jordan
Sneakers Wholesale Jordan Sneakers gucci sneakers prada sneakers in
www.cheapest-sell.cn,lv
chanel coach dior DG DSQUARED2 DIESEL,miumiu handbags
sneakers,shoes,t-
shirts,jeans,jackets.We sale new Nike Sneakers,Air Jordan
Sneakers,AIR
FORCE 1S,Nike Dunks SB,Bape Sta from nike outlets and factory
stores,also Nike wholesale-Jordan Shoes,sneakers! china online store!
Cheap Lacoste Trainers Please,Lacoste Trainers for Women,Lacoste
Shoes
Online,Lacoste Shoes for Women,Buy Lacoste Trainers Online,Lacoste
Sneakers(www.cheapest-sell.cn)
Lacoste Footwear,Black Lacoste Trainers,Lacoste Trinity
Trainers(www.cheapest-sell.cn)
Lacoste Leisure Shoe, cheap nike dunks,cheap gucci
sneakers(www.cheapest-sell.cn)
cheap sunglasses factory,wholesale nike tshirts,cheap air jordans
(www.cheapest-sell.cn)
nike sb china wholesale,cheap puma sneakers,sneaker wholesale
china,jordans sneakers,gucci shirts wholesale,cheap bape
trainers,shoe
wholesalers in china,cheap nike sneakers,DISCOUNT nike
SNEAKERS,Tennis
Sneakers,gucci Sneakers, Prada Sneakers,Shoes Jordan's +
Wholesale,jordan wholesale manufacturers,nike customes,cheap
wholesale
jordans nike,cheap tiffany necklace,gucci shoes shop,Wholesale
Distributor Authentic Nike Shoes,wholesale air forces and
jordans,dsquared manufacturers,dsquared womens shoes,dsquared2
jeans,dsquared2
shoes
ed hardy caps,ed hardy caps cheap,ed hardy for cheap,ed hardy hats
for
cheap
addidas wholesalers distributor(www.cheapest-sell.cn)
bulk air force ones for sale(www.cheapest-sell.cn)
Burberry Handbags made in China(www.cheapest-sell.cn)
BUY ARMANI SHOES(www.cheapest-sell.cn)
Buy holesale from china GUCCI(www.cheapest-sell.cn)
buy jordans made in china(www.cheapest-sell.cn)
buy nike shoes at wholesale price(www.cheapest-sell.cn)
------------------------------
Date: Tue, 02 Oct 2007 18:14:52 -0700
From: sln@netherlands.co
Subject: Re: Odd regex behavior
Message-Id: <glq5g35ogkfvr8usivl3uhf1co7d9ue7aa@4ax.com>
On Tue, 02 Oct 2007 16:51:17 -0000, Brian McCauley <nobull67@gmail.com> wrote:
>On Oct 1, 4:37 am, Mintcake <t...@skelding.co.uk> wrote:
>> I wouldd be grateful to anyone who can shed some light on the
>> unexpected
>> results from the regex in the following program.
>
>I suspect that this is pretty much the same issue as was discussed
>here recently
>
>http://groups.google.com/group/comp.lang.perl.misc/msg/d128a5c4d28a917b
>
>Here's a much simpler way to reproduce it
>
>use strict;
>use warnings;
>
>'From outside loop' =~ /(.*)/;
>
>for my $pass ( 1, 2 ) {
> print "$1\n";
> 'From later inside loop' =~ /(.*)/;
>}
>__END__
>
>The above could reasonably be expected to print 'From outside loop'
>twice but actually prints 'From later inside loop' the second time.
>
>The work-round is simply to double the {}
>
>use strict;
>use warnings;
>
>'From outside loop' =~ /(.*)/;
>
>for my $pass ( 1, 2 ) {{
> print "$1\n";
> 'From later inside loop' =~ /(.*)/;
>}}
>__END__
>
>I am able to reproduce this in 5.9.5.
I'm a little unsure of the logic. In your loop, you do a regex behind
the print $1. Wouldn't you expect the result from the last regex?
If regex finally has "scope", you should expect garbage or unreliable results
in the first pass. The for { } is scope, the second pass prints the inside.
Probably, the $_ should clear the $n variables though, can't remember if it
does. I don't think it does in 8.
I didn't try your code. I'm a little skeptical if {{}} would/should do anything though.
------------------------------
Date: Wed, 03 Oct 2007 13:56:02 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: the camel perl book
Message-Id: <oj07g3dkts9646l3dkkd6re7s7ihuadml5@4ax.com>
On 02 Oct 2007 14:55:10 -0400, Charlton Wilbur
<cwilbur@chromatico.net> wrote:
>As I already noted in another post, 'irrespectful' is more properly
>'disrespectful' (though the meaning is clear).
>
>Other matters are stylistic rather than being clear-cut; I'd probably
>use 'such disrespectful behavior' because I think it's a category of
>behavior rather than a single behavior, and that's closer to your
>meaning; I'd put a comma after 'Honestly'; and I note that you use
>British spellings where I wouldn't, but you're rather closer to
>Britain than I am.
TY, I hope I will remember, and yes: somehow I prefer British
spelling, although when speaking I tend to have more of an American
accent. However that depends on whom I am speaking with, and I've not
been practicing much as of late, so my spoken English is rather rusty
anyway now. OTOH when I go to some anglophonic place I tend to assume
their own ways. With limits, of course... but it is a small particular
pride that I seem not to have that heavy Italian bent that most people
from my country have when they speak English.
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: Wed, 3 Oct 2007 09:23:48 +0000 (UTC)
From: bcd@pvv.ntnu.no (Bent C Dalager)
Subject: Re: The Modernization of Emacs: terminology buffer and keybinding
Message-Id: <fdvn34$odf$1@orkan.itea.ntnu.no>
In article <fdtsfu$iq6$03$1@news.t-online.com>,
Frank Goenninger <frgo@goenninger.net> wrote:
>
>Well, I didn't start the discussion. So you should ask the OP about the
>why. I jumped in when I came across the so often mentioned "hey, it's
>all well defined" statement was brought in. I simply said that if that
>"well-definedness" is against "common understanding" then I don't give
>a damn about that clever definitions. Because I have to know that there
>are such definitions - always also knowing that free is not really
>free.
"Liberated" is a valid meaning of the word "free". The main problem is
that there aren't really any other words in the English language that
have the same meaning as the word "free" when it is wearing its
"liberated" hat. It is unfortunate that the word is overloaded with
multiple other meanings, one of which is so central in our modern
market oriented society that it tends to come to the forefront of
people's minds when the word is used. But that's just the way it is.
You work with the language you've got.
> It is such a good subject to discuss over and over and over
>without ever reaching any conclusion or resolution because neither FSF
>nor GNU nor the FREE as in FREE BEER defenders will change their mind.
I am quite sure they would be overjoyed if someone were to come up
with a decent replacement for the word "free" so as to disambiguate
the term. A number of people have tried pretty hard, however, and
failed. If you fancy yourself an accomplished wordsmith, any
suggestions are sure to be welcome.
Cheers
Bent D
--
Bent Dalager - bcd@pvv.org - http://www.pvv.org/~bcd
powered by emacs
------------------------------
Date: Wed, 03 Oct 2007 11:28:18 +0200
From: David Kastrup <dak@gnu.org>
Subject: Re: The Modernization of Emacs: terminology buffer and keybinding
Message-Id: <85ve9ov971.fsf@lola.goethe.zz>
bcd@pvv.ntnu.no (Bent C Dalager) writes:
> In article <fdtsfu$iq6$03$1@news.t-online.com>,
> Frank Goenninger <frgo@goenninger.net> wrote:
>>
>>Well, I didn't start the discussion. So you should ask the OP about the
>>why. I jumped in when I came across the so often mentioned "hey, it's
>>all well defined" statement was brought in. I simply said that if that
>>"well-definedness" is against "common understanding" then I don't give
>>a damn about that clever definitions. Because I have to know that there
>>are such definitions - always also knowing that free is not really
>>free.
>
> "Liberated" is a valid meaning of the word "free".
No. It is a valid meaning of the word "freed".
Xpost+Fup2 gnu.misc.discuss: this is not really relevant for most of
the touched Usenet groups.
--
David Kastrup, Kriemhildstr. 15, 44793 Bochum
------------------------------
Date: Wed, 3 Oct 2007 09:36:40 +0000 (UTC)
From: bcd@pvv.ntnu.no (Bent C Dalager)
Subject: Re: The Modernization of Emacs: terminology buffer and keybinding
Message-Id: <fdvnr8$odf$2@orkan.itea.ntnu.no>
In article <85ve9ov971.fsf@lola.goethe.zz>, David Kastrup <dak@gnu.org> wrote:
>bcd@pvv.ntnu.no (Bent C Dalager) writes:
>
>> In article <fdtsfu$iq6$03$1@news.t-online.com>,
>> Frank Goenninger <frgo@goenninger.net> wrote:
>>>
>>>Well, I didn't start the discussion. So you should ask the OP about the
>>>why. I jumped in when I came across the so often mentioned "hey, it's
>>>all well defined" statement was brought in. I simply said that if that
>>>"well-definedness" is against "common understanding" then I don't give
>>>a damn about that clever definitions. Because I have to know that there
>>>are such definitions - always also knowing that free is not really
>>>free.
>>
>> "Liberated" is a valid meaning of the word "free".
>
>No. It is a valid meaning of the word "freed".
Only if you're being exceedingly pedantic and probably not even
then. Webster 1913 lists, among other meanings,
Free
(...)
"Liberated, by arriving at a certain age, from the control
of parents, guardian, or master."
The point presumably being that having been "liberated", you are now
"free".
As I do not read gnu.misc.discuss, I reinstated the previous bunch.
Apologies to those who may be annoyed at this.
Cheers
Bent D
--
Bent Dalager - bcd@pvv.org - http://www.pvv.org/~bcd
powered by emacs
------------------------------
Date: Wed, 3 Oct 2007 04:35:08 +0200 (CEST)
From: Jim Cochrane <allergic-to-spam@no-spam-allowed.org>
Subject: Re: Using fcntl and |= - "Argument .... isn't numeric in bitwise or ..."
Message-Id: <slrnfg5vul.7cg.allergic-to-spam@no-spam-allowed.org>
On 2007-10-02, Joe Smith <joe@inwap.com> wrote:
> Jim Cochrane wrote:
>
>> my $flags = '';
>> Argument "" isn't numeric in bitwise or ...
>
> That's because you did not put $flags on the left hand side of
> an equal sign. Both undef and '0' are legal for |=, '' is not.
Duh - I wrote my code based on the example in Perl Cookbook (p. 284).
But I should have noticed that - "$flags = '';" is an empty string, not
a number. I wrongly assumed $flags got its non-numeric value from the
first fcntl call. I need to remember not to take books - even those
with good reputations - as gospel.
Thanks for pointing this out; everyone else who responded missed it.
>
>> fcntl($file, F_GETFL, $flags) or die "Could not get flags: $!";
>
> That's not how its documented in "perldoc -f fcntl".
>
> Here's an example of setting a filehandle named "REMOTE" to be
> non-blocking at the system level.
>
> use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK);
>
> $flags = fcntl(REMOTE, F_GETFL, 0)
> or die "Can't get flags for the socket: $!\n";
>
> $flags = fcntl(REMOTE, F_SETFL, $flags | O_NONBLOCK)
> or die "Can't set flags for the socket: $!\n";
>
Thanks; another thing wrong with the Cookbook example, although
'fcntl(REMOTE, F_GETFL, $flags)' version appears to work (I think -
don't have time to test it right now); but the form documented in perldoc
is cleaner.
>
> That last line in the docs is misleading. It should be:
>
> $value = fcntl(REMOTE, F_SETFL, $flags | O_NONBLOCK)
> or die "Can't set flags for the socket: $!\n";
You mean the result is a status value, not a new 'flags' value. OK.
>
>
> #!/usr/bin/perl
> use strict;
> use warnings;
> use Fcntl;
>
> my $file;
> open $file, '>/tmp/test1';
> printf "0: O_NONBLOCK = %d = 0x%X, file = %s\n",O_NONBLOCK,O_NONBLOCK,$file;
>
> my $flags;
> $flags = fcntl($file, F_GETFL, 0) or die "Could not get flags: $!";
> printf "1: flags = 0x%08X\n",$flags;
> $flags |= O_NONBLOCK;
> printf "2: flags = 0x%08X\n",$flags;
> $_ = fcntl($file, F_SETFL, $flags) or die "Could not set flags: $!";
> printf "3: value as string = %s\n",$_;
>
> $flags = fcntl($file, F_GETFL, 0) or die "Could not get flags: $!";
> printf "4: flags = 0x%08X\n",$flags;
> $flags |= 8;
> printf "5: flags = 0x%08X\n",$flags;
> $_ = fcntl($file, F_SETFL, $flags) or die "Could not set flags: $!";
> printf "6: value as string = %s\n",$_;
>
> $flags = fcntl($file, F_GETFL, $flags) or die "Could not get flags: $!";
> printf "7: flags = 0x%08X\n",$flags;
> print "Setting bit for 8 is ",($flags&8 ? 'supported' : 'not implemented'),
> " on $^O\n";
>
> ########
> 0: O_NONBLOCK = 2048 = 0x800, file = GLOB(0x8770c20)
> 1: flags = 0x00008001
> 2: flags = 0x00008801
> 3: value as string = 0 but true
> 4: flags = 0x00008801
> 5: flags = 0x00008809
> 6: value as string = 0 but true
> 7: flags = 0x00008801
> Setting bit for 8 is not implemented on linux
Cool.
>
>
> Works as documented.
>
> -Joe
Thanks
--
------------------------------
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 V11 Issue 900
**************************************
