[31129] in Perl-Users-Digest
Perl-Users Digest, Issue: 2374 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Apr 29 03:14:32 2009
Date: Wed, 29 Apr 2009 00:09:07 -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, 29 Apr 2009 Volume: 11 Number: 2374
Today's topics:
linked list <alexxx.magni@gmail.com>
Re: Net::NNTP <rabbits77@my-deja.com>
new CPAN modules on Wed Apr 29 2009 (Randal Schwartz)
Re: Perl is too slow - A statement <nat.k@gm.ml>
Re: Perl is too slow - A statement <uri@stemsystems.com>
Re: perl tk - pass function inside button <slick.users@gmail.com>
Re: perl tk - pass function inside button sln@netherlands.com
Re: perl tk - pass function inside button <1usa@llenroc.ude.invalid>
Re: perl tk - pass function inside button <tadmc@seesig.invalid>
Re: perl tk - pass function inside button <jurgenex@hotmail.com>
Possible unintended interpolation of @$ in string jidanni@jidanni.org
Re: Possible unintended interpolation of @$ in string derykus@gmail.com
Re: Posting to perl.beginners via google groups <nat.k@gm.ml>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 28 Apr 2009 23:45:06 -0700 (PDT)
From: "alexxx.magni@gmail.com" <alexxx.magni@gmail.com>
Subject: linked list
Message-Id: <3419986e-cf11-451b-815d-2afbafa3a081@n7g2000prc.googlegroups.com>
please forgive me if this is a dumb question, but I'm unable to code a
linked list in perl - to be precise I'm able to create it but I'm
unable to delete nodes...
the linked list contains 2 coordinates 'x','y' for each node:
my $pixies=undef;
for(1..10)
{ $pixies= [ $pixies, {'x'=>int(3*rand()), 'y'=>int(10*rand())} ] }
my $head=$pixies;
for $i(1..10)
{
print("$i\t",$pixies->[1]{'x'},"\t",$pixies->[1]{'y'},"\n");
$pixies=$pixies->[0];
}
# trying to delete the 8th node:
for $i(1..7)
{ $pixies=$pixies->[0] }
# now!
$pixies->[0]=$pixies->[0][0];
print"\n\n\tdeleted 8...\n\n\n";
# check:
$pixies=$head;
for $i(1..10)
{
print("$i\t",$pixies->[1]{'x'},"\t",$pixies->[1]{'y'},"\n");
$pixies=$pixies->[0];
}
and I got the same nodes again!!! What am I doing wrong?
Thanks a lot for any help on this...
P.S.: I read often that linked lists implemented this way are not the
way to go in perl, that you can do the same things with arrays (arrays
of hashes, in my case).
Do you agree? And in that case, how would you delete a node in the
middle of the array without too much copying around of large
structures?
thanks again
alessandro
------------------------------
Date: Tue, 28 Apr 2009 22:22:34 -0400
From: rabbits77 <rabbits77@my-deja.com>
Subject: Re: Net::NNTP
Message-Id: <6ed88$49f7ba10$48fb3989$12315@news.eurofeeds.com>
Horny Girls wrote:
[snip]
Uhmm, like, you know that you sound like a spammer, right?
Someone looking for auto-posting advice with a name like "Horny Girls"
is probably not going to get much help!
------------------------------
Date: Wed, 29 Apr 2009 04:42:28 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Wed Apr 29 2009
Message-Id: <KIuIEs.yM1@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.
App-Colloqueer-0.01
http://search.cpan.org/~leedo/App-Colloqueer-0.01/
----
Aspect-Library-Trace-0.01
http://search.cpan.org/~adamk/Aspect-Library-Trace-0.01/
Aspect-oriented function call tracing
----
Aspect-Library-Trace-0.02
http://search.cpan.org/~adamk/Aspect-Library-Trace-0.02/
Aspect-oriented function call tracing
----
CGI-Application-Plugin-Thumbnail-1.05
http://search.cpan.org/~leocharre/CGI-Application-Plugin-Thumbnail-1.05/
have a runmode that makes thumbnails
----
CGI-PathRequest-1.19
http://search.cpan.org/~leocharre/CGI-PathRequest-1.19/
get file info in a cgi environment
----
Cairo-CuttingLine-0.05
http://search.cpan.org/~cornelius/Cairo-CuttingLine-0.05/
draw cutting line to cairo surface
----
Catalyst-Action-Role-ACL-0.04
http://search.cpan.org/~converter/Catalyst-Action-Role-ACL-0.04/
User role-based authorization action class
----
Catalyst-Authentication-Store-Jifty-DBI-0.02
http://search.cpan.org/~ishigaki/Catalyst-Authentication-Store-Jifty-DBI-0.02/
A storage class for Catalyst Authentication using Jifty::DBI
----
Catalyst-Model-Jifty-DBI-0.06
http://search.cpan.org/~ishigaki/Catalyst-Model-Jifty-DBI-0.06/
Jifty::DBI Model Class with some magic on top
----
Catalyst-Plugin-Session-Store-Jifty-DBI-0.02
http://search.cpan.org/~ishigaki/Catalyst-Plugin-Session-Store-Jifty-DBI-0.02/
Store your session with Jifty::DBI
----
Catalyst-Plugin-Unicode-Encoding-0.2
http://search.cpan.org/~mramberg/Catalyst-Plugin-Unicode-Encoding-0.2/
Unicode aware Catalyst
----
Class-C3-Adopt-NEXT-0.09
http://search.cpan.org/~bobtfish/Class-C3-Adopt-NEXT-0.09/
make NEXT suck less
----
Config-Tiny-Ordered-1.00
http://search.cpan.org/~rsavage/Config-Tiny-Ordered-1.00/
Read/Write ordered .ini style files with as little code as possible
----
DBD-ODBC-1.21
http://search.cpan.org/~mjevans/DBD-ODBC-1.21/
ODBC Driver for DBI
----
DateTimeX-Easy-0.086
http://search.cpan.org/~rkrimen/DateTimeX-Easy-0.086/
Parse a date/time string using the best method available
----
DayDayUp-0.90
http://search.cpan.org/~fayland/DayDayUp-0.90/
good good study, day day up
----
DayDayUp-0.91
http://search.cpan.org/~fayland/DayDayUp-0.91/
good good study, day day up
----
DayDayUp-0.92
http://search.cpan.org/~fayland/DayDayUp-0.92/
good good study, day day up
----
DayDayUp-0.93
http://search.cpan.org/~fayland/DayDayUp-0.93/
good good study, day day up
----
Debian-Packages-0.01
http://search.cpan.org/~jeremiah/Debian-Packages-0.01/
----
Ed2k_link-20090428
http://search.cpan.org/~val/Ed2k_link-20090428/
module for creation and work with eD2K links
----
Elive-0.10
http://search.cpan.org/~warringd/Elive-0.10/
Elluminate Live (c) client library
----
LEOCHARRE-Dev-1.11
http://search.cpan.org/~leocharre/LEOCHARRE-Dev-1.11/
----
Lexical-Types-0.05
http://search.cpan.org/~vpit/Lexical-Types-0.05/
Extend the semantics of typed lexicals.
----
Mac-iTunes-Library-0.4
http://search.cpan.org/~dinomite/Mac-iTunes-Library-0.4/
Perl extension for representing an iTunes library
----
Mail-DKIM-0.33_7
http://search.cpan.org/~jaslong/Mail-DKIM-0.33_7/
Signs/verifies Internet mail with DKIM/DomainKey signatures
----
Module-Install-NoAutomatedTesting-0.04
http://search.cpan.org/~bingos/Module-Install-NoAutomatedTesting-0.04/
A Module::Install extension to avoid CPAN Testers
----
Module-Install-NoAutomatedTesting-0.06
http://search.cpan.org/~bingos/Module-Install-NoAutomatedTesting-0.06/
A Module::Install extension to avoid CPAN Testers
----
MooseX-MethodAttributes-0.09
http://search.cpan.org/~bobtfish/MooseX-MethodAttributes-0.09/
code attribute introspection
----
MooseX-Object-Pluggable-0.00010
http://search.cpan.org/~groditi/MooseX-Object-Pluggable-0.00010/
Make your classes pluggable
----
MooseX-Object-Pluggable-0.0011
http://search.cpan.org/~groditi/MooseX-Object-Pluggable-0.0011/
Make your classes pluggable
----
PBS-Logs-0.04
http://search.cpan.org/~rkowen/PBS-Logs-0.04/
general parser for PBS log files
----
PDF-Burst-1.16
http://search.cpan.org/~leocharre/PDF-Burst-1.16/
create one pdf doc for each page in existing pdf document
----
POE-Component-SNMP-Session-0.1200
http://search.cpan.org/~rdb/POE-Component-SNMP-Session-0.1200/
Wrap Net-SNMP's SNMP::Session in POE
----
Padre-0.34
http://search.cpan.org/~szabgab/Padre-0.34/
Perl Application Development and Refactoring Environment
----
Parse-Deb-Control-0.01
http://search.cpan.org/~jkutej/Parse-Deb-Control-0.01/
parse and manipulate debian/control in a controlable way
----
Reaction-0.001002
http://search.cpan.org/~mstrout/Reaction-0.001002/
----
SQL-Abstract-1.52
http://search.cpan.org/~mstrout/SQL-Abstract-1.52/
Generate SQL from Perl data structures
----
Syntax-Highlight-Perl6-0.47
http://search.cpan.org/~azawawi/Syntax-Highlight-Perl6-0.47/
Perl 6 Syntax Highlighter
----
TM-Corpus-0.10
http://search.cpan.org/~drrho/TM-Corpus-0.10/
Topic Maps, Document Corpus
----
URI-SmartURI-0.028
http://search.cpan.org/~rkitover/URI-SmartURI-0.028/
Subclassable and hostless URIs
----
UUID-Generator-PurePerl-0.80
http://search.cpan.org/~banb/UUID-Generator-PurePerl-0.80/
Universally Unique IDentifier (UUID) Generator
----
Verilog-Perl-3.201
http://search.cpan.org/~wsnyder/Verilog-Perl-3.201/
----
WWW-Scraper-Yahoo360-0.02
http://search.cpan.org/~cosimo/WWW-Scraper-Yahoo360-0.02/
Yahoo 360 blogs old-fashioned crappy scraper
----
WWW-Shorten-0rz-0.07
http://search.cpan.org/~gugod/WWW-Shorten-0rz-0.07/
Shorten URL using 0rz.tw
----
XML-Compile-1.05
http://search.cpan.org/~markov/XML-Compile-1.05/
Compilation based XML processing
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/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion
------------------------------
Date: Tue, 28 Apr 2009 22:19:46 -0700
From: Nathan Keel <nat.k@gm.ml>
Subject: Re: Perl is too slow - A statement
Message-Id: <1sRJl.115225$qO1.35878@newsfe13.iad>
Uri Guttman wrote:
>>>>>> "n" == neilsolent <n@solenttechnology.co.uk> writes:
>
> >> > char *str = "This is a long sentence";
> >> > printf ("%s", &str[10]);
> >> > ----------------
> >> > my $str = "This is a long sentence";
> >> print substr($str, 10);
>
> n> Running these "equivalent" bits of Perl an C in a tight loop
> (1000000 n> iterations) - shows on my machine:
>
> n> approx 0.3s run time for the C
> n> approx 0.9s run time for Perl
>
> n> I think this is pretty good considering Perl is interpreted and
> (I n> suspect) the example is deliberately picked to find something
> C is n> faster at!
>
> it also shows you have no clue about what is important these
> days. development time is way more expensive than running time. you
> can always get a faster computer but you rarely can speed up a
> development schedule.
>
> uri
>
Are you being sarcastic? If not, too bad, and that's scary. About 10
years ago I had some guy try and steal me away from the company I was
working at and things looked good, until he wanted to do everything in
Visual Basic and using MS Access databases over C/C++ and MySQL or
equivalent.
If you know the language, development time isn't an issue, so comparing
an experience C programmer (whom will have libraries (their own),
template scripts, etc. to re-use, unless they are an idiot) and compare
it to an interpreted language and development time, it's likely not
going to be a whole lot different. And, the compiled code, if it's
written well, will easily out perform the interpreted code.
I quickly turned down the guy's offer, because he said exactly what you
did above "If people want the program to run faster, they can get a
faster computer". That's an awful and often ignorant attitude. Never
settle for code that's inefficient for the sake of a quick turn around
time. Perl is my favorite language, but if I care about speed (and I
mean really care), I'll plan to write it in C. If you are speaking
from experience and how "in the real world", it's important to consider
that you won't get jobs if you want to create the best programs, that's
one thing, but hopefully not many people have to work for shitty
companies that are that clueless (or people above them that force them
into that situation due to lack of planning or understanding the
project). But, to each their own. I just hope I never end up having
to work for someone like that, and luckily I've always been able to
tell them to f--- off.
------------------------------
Date: Wed, 29 Apr 2009 01:30:14 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Perl is too slow - A statement
Message-Id: <87skjst4bd.fsf@quad.sysarch.com>
>>>>> "NK" == Nathan Keel <nat.k@gm.ml> writes:
NK> Uri Guttman wrote:
>> it also shows you have no clue about what is important these
>> days. development time is way more expensive than running time. you
>> can always get a faster computer but you rarely can speed up a
>> development schedule.
NK> If you know the language, development time isn't an issue, so comparing
NK> an experience C programmer (whom will have libraries (their own),
NK> template scripts, etc. to re-use, unless they are an idiot) and compare
NK> it to an interpreted language and development time, it's likely not
NK> going to be a whole lot different. And, the compiled code, if it's
NK> written well, will easily out perform the interpreted code.
study some computer history and come back when you have finished. have
you ever worked on a computer which actually accounted for your cpu
time? you don't understand my point which is well known and
supported. cpu time used to be the major expense in those days,
developer time is the major expense now.
NK> I quickly turned down the guy's offer, because he said exactly what you
NK> did above "If people want the program to run faster, they can get a
NK> faster computer". That's an awful and often ignorant attitude. Never
NK> settle for code that's inefficient for the sake of a quick turn around
NK> time. Perl is my favorite language, but if I care about speed (and I
NK> mean really care), I'll plan to write it in C. If you are speaking
NK> from experience and how "in the real world", it's important to consider
NK> that you won't get jobs if you want to create the best programs, that's
NK> one thing, but hopefully not many people have to work for shitty
NK> companies that are that clueless (or people above them that force them
NK> into that situation due to lack of planning or understanding the
NK> project). But, to each their own. I just hope I never end up having
NK> to work for someone like that, and luckily I've always been able to
NK> tell them to f--- off.
you don't get it. study some history as i said. computer power is dirt
cheap today. cheaper than you realize. developer cost is way more
expensive. so buying more/faster computers is usually more economical
than hiring more and better developers. of course this isn't always
possible but it is a very strong rule of thumb. and note, i am a speed
freak coder. most of my cpan modules (id: uri) are about doing things as
fast as possible. and they usually succeed. :)
for a starter, read the mythical man month.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Free Perl Training --- http://perlhunter.com/college.html ---------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Tue, 28 Apr 2009 15:56:22 -0700 (PDT)
From: Slickuser <slick.users@gmail.com>
Subject: Re: perl tk - pass function inside button
Message-Id: <a485e5cd-33e4-442d-b2fe-86528369cfea@q33g2000pra.googlegroups.com>
I have a lot of buttons and each button have different function call
(once clicked).
I created a generic sub routine to create the button and grab inputs
from method call.
Now I want to pass in a "sub routine" so this button will execute the
right method call once a button is click.
Thanks.
On Apr 28, 2:51=A0pm, "A. Sinan Unur" <1...@llenroc.ude.invalid> wrote:
> Slickuser <slick.us...@gmail.com> wrote in news:8703c486-548f-44e0-a181-
> 95943a5d7...@u39g2000pru.googlegroups.com:
>
> > I have this generic function to add a button to the main Tk window.
> > How do I pass this correction function in when a button is press for
> > this Button?
>
> I can't make sense of this paragraph no matter how many times I read it.
>
> > add_button('test a',1,0,\&test_a);
> > add_button('test b',1,1,\&test_b);
>
> > sub add_button ( $$$$)
>
> Why are you using a prototype?
>
> > {
> > =A0 =A0 =A0my ($text,$row,$col,$cmd) =3D @_;
> > $main->Button
> > =A0 =A0 =A0(
> > =A0 =A0 =A0 =A0 =A0 -text =A0 =A0 =A0 =A0 =A0=3D> $text,
> > =A0 =A0 =A0 =A0 =A0 -command =A0 =A0 =A0=3D>\&function_pass
> > =A0 =A0 =A0 =A0 =A0 ## pass in user command?
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 ##\&test_a
> > ### \&test_b
> > =A0 =A0 =A0)
>
> Shouldn't you be referring to the fourth argument passed to add_button
> (which is in $cmd)? What the heck is function_pass?
>
> Sinan
>
> --
> A. Sinan Unur <1...@llenroc.ude.invalid>
> (remove .invalid and reverse each component for email address)
>
> comp.lang.perl.misc guidelines on the WWW:http://www.rehabitation.com/clp=
misc/
------------------------------
Date: Tue, 28 Apr 2009 17:56:42 -0700
From: sln@netherlands.com
Subject: Re: perl tk - pass function inside button
Message-Id: <eu8fv4lifoeea1hfojrv2fhk9ub46tdj61@4ax.com>
On Tue, 28 Apr 2009 10:39:29 -0700 (PDT), Slickuser <slick.users@gmail.com> wrote:
>I have this generic function to add a button to the main Tk window.
>How do I pass this correction function in when a button is press for
>this Button?
>
[untested]
sub add_button
{
my ($text, $row, $col, $func_ref) = @_;
$main->Button
(
-text => $text,
-command => [\&function_pass, $func_ref],
)
->grid
(
-row => $row,
-column => $col
);
}
sub function_pass
{
my $func = shift;
$func->();
}
add_button('test a',1,0,\&test_a);
add_button('test b',1,1,\&test_b);
-----------------------------------
References:
http://oreilly.com/catalog/mastperltk/chapter/ch15.html
http://oreilly.com/catalog/lperltk/chapter/ch02.html
You should re-read all the chapters.
I'm pretty sure you haven't a clue as to even what a frame windows is.
-sln
------------------------------
Date: Wed, 29 Apr 2009 01:00:11 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: perl tk - pass function inside button
Message-Id: <Xns9BFBD5A31B95Aasu1cornelledu@127.0.0.1>
Slickuser <slick.users@gmail.com> wrote in
news:a485e5cd-33e4-442d-b2fe-86528369cfea@q33g2000pra.googlegroups.com:
[ don't top post. don't quote sigs. read and follow the posting
guidelines already ]
> On Apr 28, 2:51 pm, "A. Sinan Unur" <1...@llenroc.ude.invalid> wrote:
>> Slickuser <slick.us...@gmail.com> wrote in
>> news:8703c486-548f-44e0-a181-
>> 95943a5d7...@u39g2000pru.googlegroups.com:
>>
>> > I have this generic function to add a button to the main Tk window.
>> > How do I pass this correction function in when a button is press
>> > for this Button?
>>
>> I can't make sense of this paragraph no matter how many times I read
>> it.
>>
>> > add_button('test a',1,0,\&test_a);
>> > add_button('test b',1,1,\&test_b);
>>
>> > sub add_button ( $$$$)
>>
>> Why are you using a prototype?
>>
>> > {
>> > my ($text,$row,$col,$cmd) = @_;
>> > $main->Button
>> > (
>> > -text => $text,
>> > -command =>\&function_pass
>> > ## pass in user command?
>> > ##\&test_a
>> > ### \&test_b
>> > )
>>
>> Shouldn't you be referring to the fourth argument passed to
>> add_button (which is in $cmd)? What the heck is function_pass?
>>
> I have a lot of buttons and each button have different function call
> (once clicked).
>
> I created a generic sub routine to create the button and grab inputs
> from method call.
> Now I want to pass in a "sub routine" so this button will execute the
> right method call once a button is click.
You still haven't explained what exactly is giving you a problem and why
you are using prototypes.
I was assuming you understood what function arguments are etc in my
original response but it looks like that's where the problem lies.
So, is this (not tested) really what you are asking for?
sub add_button {
my ($text, $row, $col, $cmd) = @_;
$main->Button(
-text => $text,
-command => $cmd,
)->grid(
-row => $row,
-column => $col,
);
}
--
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://www.rehabitation.com/clpmisc/
------------------------------
Date: Tue, 28 Apr 2009 22:11:18 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: perl tk - pass function inside button
Message-Id: <slrngvfham.arv.tadmc@tadmc30.sbcglobal.net>
A. Sinan Unur <1usa@llenroc.ude.invalid> wrote:
> Slickuser <slick.users@gmail.com> wrote in
> news:a485e5cd-33e4-442d-b2fe-86528369cfea@q33g2000pra.googlegroups.com:
>
> [ don't top post.
Message-ID: <slrngb951a.rpi.tadmc@tadmc30.sbcglobal.net>
>> On Apr 28, 2:51 pm, "A. Sinan Unur" <1...@llenroc.ude.invalid> wrote:
>>> Slickuser <slick.us...@gmail.com> wrote in
>>> news:8703c486-548f-44e0-a181-
>>> 95943a5d7...@u39g2000pru.googlegroups.com:
>>> > sub add_button ( $$$$)
>>> Why are you using a prototype?
> You still haven't explained what exactly is giving you a problem and why
> you are using prototypes.
Message-ID: <slrng82dru.q80.tadmc@tadmc30.sbcglobal.net>
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Tue, 28 Apr 2009 21:18:02 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: perl tk - pass function inside button
Message-Id: <irkfv4h1imfff0fsqp9pfotrgv4ccrtthl@4ax.com>
Slickuser <slick.users@gmail.com> wrote:
>I have a lot of buttons and each button have different function call
>(once clicked).
>
>I created a generic sub routine to create the button and grab inputs
>from method call.
>Now I want to pass in a "sub routine" so this button will execute the
>right method call once a button is click.
Let me try to rephrase the way I understand your question:
You got a subroutine A and you want to pass other subroutines X, Y, Z,
... to that subroutine as a parameter. Is this correct?
You cannot do that directly. In Perl subroutine parameters must be
scalars and subroutines are not scalars.
However nothing is stopping you from passing a reference to the other
subroutine(s) because references are scalars, too.
[Bottom quote snipped, please don't do that]]
jue
------------------------------
Date: Wed, 29 Apr 2009 10:38:03 +0800
From: jidanni@jidanni.org
Subject: Possible unintended interpolation of @$ in string
Message-Id: <87r5zc89ro.fsf@jidanni.org>
Perl warns here,
$ echo o|perl -plwe 's/./@@@@$&/'
Possible unintended interpolation of @$ in string at -e line 1.
@@@&
Perhaps it should also warn here:
$ echo o|perl -plwe 's/(.)/@@@@$1/'
@@@
If so please submit a bug for me, because my address is blocked from
perl.org.
------------------------------
Date: Tue, 28 Apr 2009 20:41:34 -0700 (PDT)
From: derykus@gmail.com
Subject: Re: Possible unintended interpolation of @$ in string
Message-Id: <19f87b35-1f2a-4d6d-aa57-e36d81ae1ec7@d38g2000prn.googlegroups.com>
On Apr 28, 7:38=A0pm, jida...@jidanni.org wrote:
> Perl warns here,
> $ echo o|perl -plwe 's/./@@@@$&/'
^^^^^
-Mdiagnostics -plwe
> Possible unintended interpolation of @$ in string at -e line 1.
> @@@&
--
Charles DeRykus
------------------------------
Date: Tue, 28 Apr 2009 22:22:56 -0700
From: Nathan Keel <nat.k@gm.ml>
Subject: Re: Posting to perl.beginners via google groups
Message-Id: <QuRJl.115226$qO1.89580@newsfe13.iad>
Peter J. Holzer wrote:
> On 2009-04-26 14:44, Eric Pozharski <whynot@pozharski.name> wrote:
>> On 2009-04-25, Peter J. Holzer <hjp-usenet2@hjp.at> wrote:
>>> On 2009-04-24 00:00, Eric Pozharski <whynot@pozharski.name> wrote:
>>>> On 2009-04-22, Peter J. Holzer <hjp-usenet2@hjp.at> wrote:
>>>
>>> [postings to a moderated group via google groups vanish]
>>>
>>>>> The moderator might not even get messages posted through google
>>>>> groups. For a moderated group, the newsserver where you post
>>>>> (Google Groups in this case) needs to be set up to send all
>>>>> postings by email to the moderator's address. The address is of
>>>>> course different for each moderated group, although many
>>>>> hierarchies have a common pattern. If Google Groups wasn't
>>>>> careful, they may send the submissions to
>>>>> perl-beginners@moderators.isc.org or something like that ...
>>>>
>>>> Google Groups isn't newsserver
>>>
>>> Of course it is. You can read and write usenet messages there and it
>>> exchanges these messages with other news servers. So it is a
>>> newsserver.
>>
>> There's no NNTP capable software on this host --
>
> You are confusing "Usenet" and "NNTP". NNTP is only one of many
> protocols to exchange Usenet messages. By far the most common these
> days, but not the only one. So newsservers without NNTP capable
> software are entirely possible. (But google almost certainly does have
> NNTP capable software on the cluster of hosts known as "Google Groups"
> - they exchange News with other news servers and it would be crazy to
> use anything other than NNTP for that. They just don't offer an NNTP
> interface for NUAs - you have to use their web interface).
>
>> According to RFC3977, newsserver MUST send a greeting (section 3.1.).
>> Greetings are described in section 5.1.1.
>>
>> {5732:7} [0:0]$ telnet groups.google.com www
>
> How do you get the crazy idea that RFC3977 has anything to say about
> what should happen on the HTTP port? Ok, don't answer this question,
> it was purely rhetorical.
>
> hp
Good grief, you people will argue about anything (admittedly, so will I,
sometimes). I was looking at hardware/tool tips about people's
experience the other day online and every place that people said their
experiences, all turned into fighting about who was right or wrong,
even if it was just one person's experience or opinion vs. another.
You'd think they were working for the company who they were defending
the product for about people's negative experiences. Lame.
------------------------------
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 2374
***************************************
