[28816] in Perl-Users-Digest
Perl-Users Digest, Issue: 60 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jan 22 11:05:51 2007
Date: Mon, 22 Jan 2007 08:05:06 -0800 (PST)
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, 22 Jan 2007 Volume: 11 Number: 60
Today's topics:
Re: explanation needed <anir.dr@gmail.com>
extract text body of email jcharth@hotmail.com
Re: FAQ 3.18 How can I free an array or hash so my prog <brian.d.foy@gmail.com>
Re: FAQ 3.18 How can I free an array or hash so my prog <uri@stemsystems.com>
Re: How to decode javascript encodeURI / encodeURICompo <ianaturner@gmail.com>
Re: How to decode javascript encodeURI / encodeURICompo <ianaturner@gmail.com>
Re: How to decode javascript encodeURI / encodeURICompo <bik.mido@tiscalinet.it>
Re: How to decode javascript encodeURI / encodeURICompo <jurgenex@hotmail.com>
Re: How to decode javascript encodeURI / encodeURICompo <jurgenex@hotmail.com>
multiline pattern matching from file <dongiulio@gmail.com>
Re: multiline pattern matching from file <bik.mido@tiscalinet.it>
Please help to write this simaple regular expression <cylix2000@gmail.com>
Re: Please help to write this simaple regular expressio anno4000@radom.zrz.tu-berlin.de
Re: Please help to write this simaple regular expressio <bik.mido@tiscalinet.it>
Re: problem GD and my package Random->Random::new <john.swilting@wanadoo.fr>
Re: problem GD and my package Random->Random::new anno4000@radom.zrz.tu-berlin.de
Re: sed/grep out lines in file <bik.mido@tiscalinet.it>
Re: the => operator <abigail@abigail.be>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 22 Jan 2007 01:23:46 -0800
From: "anirban" <anir.dr@gmail.com>
Subject: Re: explanation needed
Message-Id: <1169457826.208493.255220@51g2000cwl.googlegroups.com>
Thanks a lot Michele.Your explanation helped me a lot.
anirban
------------------------------
Date: 22 Jan 2007 07:14:13 -0800
From: jcharth@hotmail.com
Subject: extract text body of email
Message-Id: <1169478853.844836.70330@l53g2000cwa.googlegroups.com>
Hello I need to extract the text body of an email address. I tried
email::mime and email::simple but probably i dont think i am doing this
correctly.
my $old_body = $emailsimple->body;
the variable old_body here has all the attachments may be i can use
something else email::simple is probably not what i need. Thanks
------------------------------
Date: Mon, 22 Jan 2007 08:06:30 -0500
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: FAQ 3.18 How can I free an array or hash so my program shrinks?
Message-Id: <220120070806308785%brian.d.foy@gmail.com>
In article <slrner7k2h.4sk.hjp-usenet2@yoyo.hjp.at>, Peter J. Holzer
<hjp-usenet2@hjp.at> wrote:
> > You usually can't. Memory allocated to lexicals (i.e. my() variables)
> > cannot be reclaimed or reused even if they go out of scope.
>
> As far as I know they are reclaimed when the function they are in
> returns. So if you temporarily need lots of memory to compute something
> it is better do it in a function.
Do you have anything to support this? I'm not a guts sorta guy.
> > On most operating systems, memory allocated to a program can never be
> ^^^^^^^^^^^^^^^^^^^^^^^^^
> > returned to the system.
> I'm not sure if this is still true, at least if you take market shares
> into account.
It's not talking about market share, just how many operating system
that statement applies to.
> Linux is one of the systems using mmap, so it can return chunks of
> memory to the system if they are large enough
That's if the perl uses the system mmap, though, isn't it?
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: Mon, 22 Jan 2007 10:51:27 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: FAQ 3.18 How can I free an array or hash so my program shrinks?
Message-Id: <x74pqjf4ao.fsf@mail.sysarch.com>
>>>>> "bdf" == brian d foy <brian.d.foy@gmail.com> writes:
bdf> In article <slrner7k2h.4sk.hjp-usenet2@yoyo.hjp.at>, Peter J. Holzer
bdf> <hjp-usenet2@hjp.at> wrote:
>> > You usually can't. Memory allocated to lexicals (i.e. my() variables)
>> > cannot be reclaimed or reused even if they go out of scope.
>>
>> As far as I know they are reclaimed when the function they are in
>> returns. So if you temporarily need lots of memory to compute something
>> it is better do it in a function.
bdf> Do you have anything to support this? I'm not a guts sorta guy.
it is not a function scope but a block scope that can free lexical vars
in perl. and in some cases it is not freed in anticipation for nea
future reuse (as in a loop block).
>> > On most operating systems, memory allocated to a program can never be
>> ^^^^^^^^^^^^^^^^^^^^^^^^^
>> > returned to the system.
that isn't true at all. on all unix/linux flavors the brk/sbrk system calls
are what is used to allocate new ram space and it can also be used to
free any ram location only at the top of that space (it must be
contiguous). from solaris man pages:
The brk() function sets the break value to endds and changes
the allocated space accordingly.
The sbrk() function adds incr function bytes to the break
value and changes the allocated space accordingly. The incr
function can be negative, in which case the amount of allo-
cated space is decreased.
>> Linux is one of the systems using mmap, so it can return chunks of
>> memory to the system if they are large enough
bdf> That's if the perl uses the system mmap, though, isn't it?
mmap has nothing to do with freeing ram to the OS. only brk/sbrk can do
that. mmap needs ram usually allocated with malloc (or friends) and that
will call brk to allocate more system ram as needed. but perl doesn't do
any consolidation of free ram at the top of ram space so it can't call
brk/sbrk to free it to the OS. i doubt many langs do that, it is a
rarely done thing as you need to do a fair amount of extra work to free
only the top of ram and you will likely need to realloc it later.
if you must use very large amounts of ram temporaroly and you know you
must free it or you will have servere ram shortages, fork a process to
use the ram and it will all be freed when it dies and gets reaped.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: 22 Jan 2007 01:12:03 -0800
From: "Ian" <ianaturner@gmail.com>
Subject: Re: How to decode javascript encodeURI / encodeURIComponent ?
Message-Id: <1169457123.447745.20930@l53g2000cwa.googlegroups.com>
Seriously people, is it any wonder that Perl is so niche!
With "helpers" like those in this group, there's no wonder that PHP's
so popular - the beginning Perler must take one look at this group of
self-appointed a**holes and run away shrieking!
To quote "Flower", the skunk in Bambi "If ya aint got nothing nice to
say, don't say nothing at all"
Why do you pill*cks even bother replying - oh wait, that's rhetorical
so I'll leave off the question mark and supply the answer myself...
because you have a pent-up need to show how superior you are (without
actually showing any real superior knowledge of the subject - NONE of
you actually came up with the answer, did you?).
Get a life you pr*cks! This newsgroup posting is yet another that will
be indexed by the search engines and give zero information to the
searcher.
*sheesh*
(And don't bother with your "clever" replies, I won't be coming back to
read them)
------------------------------
Date: 22 Jan 2007 01:18:27 -0800
From: "Ian" <ianaturner@gmail.com>
Subject: Re: How to decode javascript encodeURI / encodeURIComponent ?
Message-Id: <1169457507.168288.95510@m58g2000cwm.googlegroups.com>
Brian McCauley wrote:
> But there is (almost) an exact mention in the FAQ.
I gather "it's courtesy to provide a link"... that would have avoided
confusion over what was meant by "the FAQ"
8;o)
------------------------------
Date: Mon, 22 Jan 2007 13:30:58 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: How to decode javascript encodeURI / encodeURIComponent ?
Message-Id: <04b9r2p456ua0dmss9orpl2o47p09bjq28@4ax.com>
On 22 Jan 2007 01:18:27 -0800, "Ian" <ianaturner@gmail.com> wrote:
>> But there is (almost) an exact mention in the FAQ.
>
>I gather "it's courtesy to provide a link"... that would have avoided
>confusion over what was meant by "the FAQ"
If people write "the FAQ" it is implicitly clear that there's and
official FAQ to be referred to in those terms. There's no real need to
provide a link since it comes with Perl's core documentation and
should thus be available on your own system. Just do:
perldoc perlfaq
You can also search individual faq entries like thus:
perldoc -q 'some reasonable keyword'
Admittedly, it's not always 100% how to choose reasonable keywords,
but most of the time you mandage to do so.
Indeed, the FAQ, just like the rest of Perl's documentation, is *also*
available from the web:
http://perldoc.perl.org/index-faq.html
IMHO you there's no real advantage reading that rather than the one
that ships with your installation, but for some reason you may prefer
it...
HTH,
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, 22 Jan 2007 12:56:28 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: How to decode javascript encodeURI / encodeURIComponent ?
Message-Id: <0w2th.1086$2n.416@trndny06>
[see subject]
Ian wrote:
> [long rant snipped]
> NONE of
> you actually came up with the answer, did you?).
Do you want us to READ the answer in the FAQ to you?
> (And don't bother with your "clever" replies, I won't be coming back
> to read them)
Is that a promise?
jue
------------------------------
Date: Mon, 22 Jan 2007 13:00:44 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: How to decode javascript encodeURI / encodeURIComponent ?
Message-Id: <0A2th.5626$8P.1909@trndny05>
Ian wrote:
> Brian McCauley wrote:
>
>> But there is (almost) an exact mention in the FAQ.
>
> I gather "it's courtesy to provide a link"... that would have avoided
> confusion over what was meant by "the FAQ"
How can there be any confusion? As I mentioned before you have been given
the _EXACT_ title of the relevant FAQ entry.
Is is too much to ask you to run "perldoc -q <keyword>" for any of the key
words in the title yourself? Or do you really believe that people should
quote the answer of the FAQ every time someone is asking for it?
jue
------------------------------
Date: 22 Jan 2007 05:35:20 -0800
From: "Giulio" <dongiulio@gmail.com>
Subject: multiline pattern matching from file
Message-Id: <1169472920.665831.294390@l53g2000cwa.googlegroups.com>
hi,
I am developing a script for extracting data from some webpages I got
with wget.
I am using pattern matching to extract a list of items from the file.
Each item is composed by several properties, contained on different
lines of the page, which must be kept together (they're of course in
order and there's a multiline pattern to find them out one by one).
so far I arrived to the code (at the end of the msg) that matches
greatly, but data on single lines of the pages.
how can I do this pattern matching from the file and obtain the full
multiline pattern?
thanx
G
------------------
open (FILE, "<$file") || die("error in opening file");
while ($f = <FILE>) {
if ($f =~ /^.*<a href="\/photos\/(.*)\/(.*)\/" title="(.*)">/ ) {
$userName = $1;
$imageCode = $2;
------------------
------------------------------
Date: Mon, 22 Jan 2007 15:44:28 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: multiline pattern matching from file
Message-Id: <6bi9r2df8kjdcvmd703licmc2omvbnee7b@4ax.com>
On 22 Jan 2007 05:35:20 -0800, "Giulio" <dongiulio@gmail.com> wrote:
>I am developing a script for extracting data from some webpages I got
>with wget.
Whoa! It's the third such question of the day. Sorry for not repeating
myself, but here are the pointers to my two previous replies:
news:fj09r2hkh8evi3mn3soou9era06seu6ie0@4ax.com
news:kd99r25khdpc8rq2ieniq19sudbs235c1f@4ax.com
You may search this group for previous questions of the same kind: the
answer is always the same: (do a favour to yourself and) do not try to
this with regexen, but use a dedicated module instead. There are very
good reasons to do so.
>so far I arrived to the code (at the end of the msg) that matches
>greatly, but data on single lines of the pages.
Then, if you really really want to do it with regexen, just slurp in
the whole file by (locally) setting $/ to undef (or by means of
File::Slurp), and possibly use /m and/or /s in your pattern if needed.
> open (FILE, "<$file") || die("error in opening file");
Nowadays it's generally recommended to use lexical filehandles and the
three args form of open(). Also, as a rule of a thumb low precedence
logical operators should be preferred for flow control, and it would
be nice to have more informative error messages, thus:
open my $file, '<', $file or die "Error opening '$file': $!\n");
> while ($f = <FILE>) {
(Do a favour to yourself and
use strict;
use warnings; # always!)
> if ($f =~ /^.*<a href="\/photos\/(.*)\/(.*)\/" title="(.*)">/ ) {
If the while block is that simple you may have avoided $f altogether,
which is not an informative variable name anyway, and just stick with
$_.
Anyway, as I wrote you may probably want something along the lines of
(untested):
{
open my $file, '<', $file or die "Error opening `$file': $!\n");
local $/;
while (<$file>) {
while(m|<a\s+href="/photos/(.*?)/(.*?)/.*?".*\btitle="(.*?)">|gs) {
my $userName = $1;
my $imageCode = $2;
# ...
}
}
}
But then again, don't! Just use a suitable module...
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: 22 Jan 2007 01:20:19 -0800
From: "Jay@HK" <cylix2000@gmail.com>
Subject: Please help to write this simaple regular expression
Message-Id: <1169457619.053525.174790@38g2000cwa.googlegroups.com>
I need to find out all html tags except <br>
Thanks a lot!!!
------------------------------
Date: 22 Jan 2007 12:14:38 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Please help to write this simaple regular expression
Message-Id: <51jo5eF1knqrbU1@mid.dfncis.de>
Jay@HK <cylix2000@gmail.com> wrote in comp.lang.perl.misc:
> I need to find out all html tags except <br>
That's not a simple regex. HTML parsing is harder than it looks.
It is best done by a real parser. Look for HTML on CPAN, there
are a few.
Anno
------------------------------
Date: Mon, 22 Jan 2007 13:22:20 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Please help to write this simaple regular expression
Message-Id: <kd99r25khdpc8rq2ieniq19sudbs235c1f@4ax.com>
On 22 Jan 2007 01:20:19 -0800, "Jay@HK" <cylix2000@gmail.com> wrote:
>I need to find out all html tags except <br>
Whoa, it's the second question re parsing html this morning. I'll
repeat myself: the general and common recommendation in this case, and
a very good one for various reasons is to resist the temptation of
doing so by means of regexen. That they may work in some particular
case does not imply they will in many others. Use some dedicated
module, like HTML::TokeParser, which is the only reliable way to do
it. Search this group for previous questions like yours to see actual
examples of the usage of some such modules.
Said this, I wouldn't feel like adding anything, but if you really
really trust your input text to be reliable enough you may want to use
some regex that yields an approximate solution to your problem, like:
m|</?([a-z])+(?:\s+[^<>]*?)?>|;
This captures the name of the tag. I wouldn't bother excluding <br>'s
within the regex itself for it would be overly complex, just discard
it a posteriori, which is much simpler.
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, 22 Jan 2007 11:53:09 +0100
From: "john.swilting" <john.swilting@wanadoo.fr>
Subject: Re: problem GD and my package Random->Random::new
Message-Id: <45b4978d$0$27413$ba4acef3@news.orange.fr>
john.swilting wrote:
> john.swilting wrote:
>
>> A. Sinan Unur wrote:
>>
>>> "Stan R." <stan@invalid.blz/hmrprint/com.com> wrote in news:ep0hcj0hp1
>>> @news2.newsguy.com:
>>>
>>>>> john.swilting wrote:
>>> ...
>>>
>>>>>> I am going to eat then to go to sleep me
>>>>>> I return tomorrow
>>>
>>> Good thing I plonked you today then.
>>>
>>>>
>>>> my $random_obj = new Random;
>>>>
>>>> which can be more confortable for people who are used to C/C++/Java
>>>> grammar.
>>>
>>> Please read the section "Indirect Object Syntax" in perldoc perlobj
>>> before making such recommendations.
>>>
>>> Sinan
>> I made one package
>> uses now $random = new Random
>>
>> code ok
>> compil nice
>> cgi its ok
>> thank you
>> I am going to change my customs
>> I am going to make package for the variables which owe exchanges to the
>> run my code
>> #!/use/bin/perl -w
>>
>> package Random;
>>
>> use strict;
>> require Exporter;
>>
>> use vars qw( @ISA);
>>
>> ##$VERSION = O.O1;
>>
>> @ISA = qw(Exporter);
>>
>> sub new {
>> my $class=shift;
>> my $self={};
>> bless $self,$class;
>>
>>
>
my@liste=('1','2','3','4','5','6','7','8','9','10','11','12','13','14','15',
>> '16','17','18','19','20','21','22','23','24','25','26','27','28',
>> '29','30','31','32','33','34','35','36','37','38','39','40','41',
>> '42','43','44','45','46','47','48','49','50','51','52','53','54',
>> '55','56','57','58','59','60','61','62','63','64','65','66','67',
>> '68','69','70','71','72','73','74','75','76','77','78','79','78',
>> '79','80','81','82','83','84','85','86','87','88','89','90','91',
>> '92','93','94','95','96','97','98','99','100','101','102','103',
>> '104','105','106','107','108','109','110');
>> $self="";
>> my$self1="";
>> my$self2="";
>> my$self3="";
>> my$self4="";
>> $self1.=$liste[int rand@liste];
>> $self .= $self1;
>> $self2.=$liste[int rand@liste];
>> $self .=$self2;
>> $self3.=$liste[int rand@liste];
>> $self .=$self3;
>> $self4.=$liste[int rand@liste];
>> return $self;
>> }
>>
>>
>> END {}
>> 1;
> The positions of the text
> Have to change and colours also
> I go it package is I believe better
the package Random.pm its ok
use require "Random.pm";
use syntax $text = new Random
cgi compil nice
------------------------------
Date: 22 Jan 2007 14:29:19 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: problem GD and my package Random->Random::new
Message-Id: <51k01vF1kfievU1@mid.dfncis.de>
Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr> wrote in comp.lang.perl.misc:
> john.swilting wrote:
> > its $text = Random->Random::new
> By the way, the constructor would normally be something like:
>
> my $random_obj = Random->new();
>
> Although your syntax appears to work, I've never seen it done like that
> before.
You can always qualify a method with a class name. That makes sure
inheritance starts at that point. You can even specify an entirely
unrelated class:
One->Other::new( ...);
would call the method Other::new (or a method named ->new in one of
Other's base classes) with the invocant One. A normal ->new method
would then initialize an object of its own kind with the parameters
given, but bless it into class One.
The technique does occasionally make sense, though not in the OPs case.
Anno
------------------------------
Date: Mon, 22 Jan 2007 10:39:22 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: sed/grep out lines in file
Message-Id: <fj09r2hkh8evi3mn3soou9era06seu6ie0@4ax.com>
On Sun, 21 Jan 2007 20:56:35 -0600, Cranky <privy@private.com> wrote:
>Hello all, I am looking for a way to sed / grep out information from a
>file. Example contents of test.txt:
You may consider the sed to perl s2p converter that should ship with
your perl installation.
>Crap junk <span id="descTXT">Just some
>text for test and other stuff
> here </span> More junk
Basically this amounts to parsing html. The general and common
recommendation in this case, and a very good one for various reasons
is to resist the temptation of doing so by means of regexen: that they
may work in some particular case does not imply they will in many
others. Use some dedicated module, like HTML::TokeParser, which is the
only reliable way to do it. Search this group for previous questions
like yours to see actual examples of the usage of some such modules.
>I would like to grep out everything between the <span> open and close
>tags. I use the following in a linux shell:
>
>sed -n '/\"descTXT\">,/<\/span>/p' test.txt
>
>but I would like to convert that to a single line perl command if
>possible, e.g.:
If that works, the main difference between sed and Perl is that the
former automatically iterates over lines and IIRC prints them after
transformations are applied, while the latter does not. But it will if
you give it the -p command line switch.
For the rest, I don't remember sed well, but is that a correct
command? Maybe there's an 's' missing...
>perl -w ''/\"descTXT\">,/<\/span>/p' test.txt'
>
>or will writing a small perl script be the only way?
You can write perl scripts on the command line perfectly well (known
as one-liners), you just have to pass them through the -e switch. In
this case you would do
perl -lpe 'some perl code' test.txt
or perhaps
perl -lpi.bak -e 'some perl code' test.txt
for in place modification, if you prefer.
I can't help you with the actual perl code because it's not entirely
clear to me what it is that you really want to do: erase everything
that is between those tags, including them? Grab what's between them?
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: 22 Jan 2007 08:37:31 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: the => operator
Message-Id: <slrner8tu3.fl.abigail@alexandra.abigail.be>
Wayne M. Poe (louisREMOVE@REMOVEh4h.com) wrote on MMMMDCCCXCI September
MCMXCIII in <URL:news:51hv4fF1kpbanU1@mid.individual.net>:
,, Abigail wrote:
,, > Wayne Poe (louis@h4h.com) wrote on MMMMDCCCLXXXVIII September
,, > MCMXCIII in <URL:news:51841dF1j35s4U1@mid.individual.net>:
,, > == Abigail wrote:
,, > == > Wayne M. Poe (louisREMOVE@REMOVEh4h.com) wrote on MMMMDCCCLXXXVI
,, > == > September MCMXCIII in
,, > <URL:news:515003F1ho4vuU1@mid.individual.net>: == > `` In some
,, > places thats exactly what was there (any plank lien that == > was ``
,, > quoted ends up being "-- \n") == >
,, > == > No.
,, > ==
,, > == Actually at the begining there is one occurance:
,, > ==
,, > == ------------------------------------------------
,, > == fatwallet961@yahoo.com (fatwallet961@yahoo.com) wrote on
,, > MMMMDCCCLXXXV == September MCMXCIII in
,, > == <URL:news:l7unq2h7kj8flbbk01juqhcegnpaubmcg1@4ax.com>:
,, > == -- in the following code
,, > == --
,, > == -- what's => means?
,, > == ------------------------------------------------
,, >
,, > Second to last line.
,, >
,, >
,, > No. Go to the original message and count carefully again. All you need
,, > to do is count to 2.
,,
,, ------------------------------------------------------
,, 1 fatwallet961@yahoo.com (fatwallet961@yahoo.com) wrote on MMMMDCCCLXXXV
,, 2 September MCMXCIII in
,, <URL:news:l7unq2h7kj8flbbk01juqhcegnpaubmcg1@4ax.com>:3
,, 3 --,,in the following code
,, 4 --,,
,, 5 --,,what's => means?
,, 6
,, 7 It's a comma which quotes a bareword on its left hand side.
,, ------------------------------------------------------
,,
,, Line 4 was the one I was talking about. Ok, you actually have two spaces
,, at the end rather than one (prior to the newline), so it's not the same,
,, I'll give you that
Right. And that wasn't accidental. I do have a special check that prevents
dash-dash-space-newline to occur anywhere not above my sig.
,, However, it appears to be close enough to interfere with some quote/sig
,, formatters. I've seen this break 2 that I have tested. One being
,, Quote-Fix for OE on win32, a news reader on my linux test box (whose
,, name escapes right now, but does nice color formatting of quote levels
,, sort of like OE-QF.) The both color from like 4, on, as if that was the
,, beginning of your sig.
Then they are broken, aren't they?
,, This is in addition to the fact most quote processors like those I
,, listed don't recognize most of the quote characters you use. I also
,, remember problems on the old version of Google Groups when reading your
,, posts.
I haven't changed my quoting style for several years before Google was
founded, let alone there was "Google Groups". Besides, we've so much
junk from Google Groups that having to change your posts so it will show
up correctly on Google Groups seems the wrong way round.
,, Please just answer the question (which you always seem to avoid), why
,, can't you just use standard, or at least more normal quoting, if for
,, nothing else than for the sake of sanity? I believe this is a perfectly
,, valid question.
Different newsreaders have different styles of quoting. If you don't like
mine, put me in your killfile.
Abigail
--
$_ = "\x3C\x3C\x45\x4F\x54";
print if s/<<EOT/<<EOT/e;
Just another Perl Hacker
EOT
------------------------------
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 60
*************************************
