[30772] in Perl-Users-Digest
Perl-Users Digest, Issue: 2017 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Nov 29 16:09:50 2008
Date: Sat, 29 Nov 2008 13:09:13 -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 Sat, 29 Nov 2008 Volume: 11 Number: 2017
Today's topics:
Re: Editor with embedded perl interpreter? (David Combs)
Re: FAQ 9.4 How do I remove HTML from a string? <tadmc@seesig.invalid>
Re: FAQ 9.4 How do I remove HTML from a string? <tadmc@seesig.invalid>
Re: Help: How can I parse this properties file? (David Combs)
Re: Help: How can I parse this properties file? (David Combs)
Re: Help: How can I parse this properties file? <tim@burlyhost.com>
Re: Help: How can I parse this properties file? <tadmc@seesig.invalid>
How to use File::Spec->no_upwards? <PengYu.UT@gmail.com>
Re: How to use File::Spec->no_upwards? <PengYu.UT@gmail.com>
Re: How to use File::Spec->no_upwards? <hjp-usenet2@hjp.at>
mail address validation <stoupa@practisoft.cz>
Re: mail address validation <smallpond@juno.com>
Re: mail address validation <tadmc@seesig.invalid>
Re: subroutine to array <jurgenex@hotmail.com>
Re: subroutine to array QoS@domain.invalid
Re: subroutine to array QoS@domain.invalid
Re: Using unreferenced labels (David Combs)
Re: Using unreferenced labels <nospam-abuse@ilyaz.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 29 Nov 2008 15:25:06 +0000 (UTC)
From: dkcombs@panix.com (David Combs)
Subject: Re: Editor with embedded perl interpreter?
Message-Id: <ggrmsh$8p4$3@reader1.panix.com>
In article <Xns9B54C5F3BAFD0castleamber@130.133.1.4>,
John Bokma <john@castleamber.com> wrote:
>Paolo <lap76@19yahoo.com> wrote:
>
>> I don't remember the name of this application for Windows but i've
>> make use of that once.
>>
>> Do you know an editor which allows the execution of Perl-script
>> on selected text?
^^^^^^^^^^^^^^^^
>>
>> The Perl-script are in a submenu of the Tools menu.
>
>TextPad, see:
>http://johnbokma.com/textpad/textpad-subversion.html
>
>You can run a command on a selection.
>
>And Emacs, of course.
Interesting. HOW?
Easy enough to make a *shell*-buf and run perl from there,
of course, but somehow binding Perl into emacs itself, so
it can act as part of the emacs interpreter? So it could
work on eg "selected text"? (In what way would that be
different from a "region"?)
Thanks!!!!
David
------------------------------
Date: Sat, 29 Nov 2008 07:04:34 -0600
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: FAQ 9.4 How do I remove HTML from a string?
Message-Id: <slrngj2ff2.jdc.tadmc@tadmc30.sbcglobal.net>
sln@netherlands.com <sln@netherlands.com> wrote:
> You are a dumb, stupid idiot
> But, your dip-shit, know-nothing
OK. _Now_ that guy upthread wins.
:-)
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Sat, 29 Nov 2008 06:53:36 -0600
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: FAQ 9.4 How do I remove HTML from a string?
Message-Id: <slrngj2eqg.jdc.tadmc@tadmc30.sbcglobal.net>
Tim Greer <tim@burlyhost.com> wrote:
> I win.
Not yet.
Wait until he goes ad hominem (which is inevitable with this OP).
Then you will have won.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Sat, 29 Nov 2008 14:42:38 +0000 (UTC)
From: dkcombs@panix.com (David Combs)
Subject: Re: Help: How can I parse this properties file?
Message-Id: <ggrkcu$qqp$1@reader1.panix.com>
In article <slrngh3kfe.sem.tadmc@tadmc30.sbcglobal.net>,
Tad J McClellan <tadmc@seesig.invalid> wrote:
>yuanyun.ken <yuanyun.ken@gmail.com> wrote:
>> Hi, dear all perl users:
>> Recently I need read in a proerties file,
>> its format is key=value, and it uses \ to escape.
>> for example:
>> expression means: key value
>> a=b=c a b=c
>> a\=b=c a=b c
>> a\\=b=c a\ b=c
>> a\\\=b=c a\=b c
>>
>> How can I parse this file?
>
>
>----------------------------
>#!/usr/bin/perl
>use warnings;
>use strict;
>
This is a nice example to add to an e.g. PP4, pod, etc. But first
maybe annotate it a bit more:
>
>foreach my $line ( <DATA> ) {
> chomp $line;
> $line =~ s/\\\\/&backslash;/g; # translate literal backslashes
# explain how that converts SINGLE blackslash-chars.
# That is, please explain how the parsing of perl works,
# so the learner can see WHEN it will internally
# convert "//" to "/"
That's converting SINGLE "\"' backslashes to "&backslash"s
> my($key, $value) = split /(?<!\\)=/, $line, 2; # use negative look-behind
Maybe add WHY you use the neg look-behind.
And just what kind of changes will that make to the file?
> $key =~ tr/\\//d; # eliminate backslashes used for escaping
>
> $key =~ s/&backslash;/\\/g; # put the literal backslashes back in
>
> printf "%-10s %-10s\n", $key, $value;
>}
>
>__DATA__
>a=b=c
>a\=b=c
>a\\=b=c
>a\\\=b=c
>----------------------------
>
>
>--
>Tad McClellan
>email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
Thanks!
David
------------------------------
Date: Sat, 29 Nov 2008 15:01:28 +0000 (UTC)
From: dkcombs@panix.com (David Combs)
Subject: Re: Help: How can I parse this properties file?
Message-Id: <ggrlg7$8p4$1@reader1.panix.com>
In article <472482c3-a0b7-407a-8ba8-a9485e4ff5d6@b38g2000prf.googlegroups.com>,
yuanyun.ken <yuanyun.ken@gmail.com> wrote:
>Thanks for all the reply. and this problem has been solved.
>but sorry for my poor understanding on regex, and having to trouble
You want to learn about perl's regexps? You gotta buy a book,
THIS book:
"Mastering Regular Expressions", 2nd edition,
by Jeffrey Friedl, O'Reilly. (num pages: 460)
Just about everyone here will agree that this one book
is the unix|linux|perl "Regex BIBLE", and that no other
book even comes close!
Try it -- you'll like it.
David
------------------------------
Date: Sat, 29 Nov 2008 09:36:23 -0800
From: Tim Greer <tim@burlyhost.com>
Subject: Re: Help: How can I parse this properties file?
Message-Id: <r4fYk.5050$zQ3.2423@newsfe12.iad>
David Combs wrote:
> "Mastering Regular Expressions", 2nd edition,
> by Jeffrey Friedl, O'Reilly.  (num pages: 460)
Probably, the third edition is a better suggestion? (542 pages, and
updated)
--
Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
and Custom Hosting. 24/7 support, 30 day guarantee, secure servers.
Industry's most experienced staff! -- Web Hosting With Muscle!
------------------------------
Date: Sat, 29 Nov 2008 14:11:33 -0600
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: Help: How can I parse this properties file?
Message-Id: <slrngj38fl.m9i.tadmc@tadmc30.sbcglobal.net>
David Combs <dkcombs@panix.com> wrote:
> In article <slrngh3kfe.sem.tadmc@tadmc30.sbcglobal.net>,
> Tad J McClellan <tadmc@seesig.invalid> wrote:
>>yuanyun.ken <yuanyun.ken@gmail.com> wrote:
>>> Hi, dear all perl users:
>>> Recently I need read in a proerties file,
>>> its format is key=value, and it uses \ to escape.
>>> for example:
>>> expression means: key value
>>> a=b=c a b=c
>>> a\=b=c a=b c
>>> a\\=b=c a\ b=c
>>> a\\\=b=c a\=b c
>>>
>>> How can I parse this file?
>>
>>
>>----------------------------
>>#!/usr/bin/perl
>>use warnings;
>>use strict;
>>
>
> This is a nice example to add to an e.g. PP4, pod, etc.
What is PP4?
> But first
> maybe annotate it a bit more:
>
>>
>>foreach my $line ( <DATA> ) {
>> chomp $line;
>
>> $line =~ s/\\\\/&backslash;/g; # translate literal backslashes
>
> # explain how that converts SINGLE blackslash-chars.
That is impossible to explain...
... because that does NOT convert single backslach characters!
> That's converting SINGLE "\"' backslashes to "&backslash"s
No it isn't.
It is converting DOUBLE backslashes to "&backslash;"s
>> my($key, $value) = split /(?<!\\)=/, $line, 2; # use negative look-behind
>
> Maybe add WHY you use the neg look-behind.
Because at this point any backslashes that remain in $line are "meta".
If an equal sign is preceded by a backslash, then this is not the
equal sign that we want to split on (because it is escaped).
> And just what kind of changes will that make to the file?
None.
My code does not change ANY file...
>> $key =~ tr/\\//d; # eliminate backslashes used for escaping
>>
>> $key =~ s/&backslash;/\\/g; # put the literal backslashes back in
>>
>> printf "%-10s %-10s\n", $key, $value;
>>}
>>
>>__DATA__
>>a=b=c
>>a\=b=c
>>a\\=b=c
>>a\\\=b=c
>>----------------------------
>>
>>
>>--
>>Tad McClellan
>>email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
It is poor manners to quote .sigs. Please don't do that.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Sat, 29 Nov 2008 08:39:23 -0800 (PST)
From: Peng Yu <PengYu.UT@gmail.com>
Subject: How to use File::Spec->no_upwards?
Message-Id: <2e3f1500-f0dc-4b30-aeec-2b8d69f07756@o2g2000yqd.googlegroups.com>
Hi,
According to http://perldoc.perl.org/File/Spec.html, no_upwards should
remove '.' or '..'. But the following example does not do so. Can
somebody let me know how to use no_upwards correctly?
Thanks,
Peng
#!/usr/bin/perl
use warnings;
use strict;
use File::Spec;
my @path = ("../../../something/backup/home/../home/Desktop/");
File::Spec->no_upwards(@path);
print "\@path = @path\n";
------------------------------
Date: Sat, 29 Nov 2008 08:55:37 -0800 (PST)
From: Peng Yu <PengYu.UT@gmail.com>
Subject: Re: How to use File::Spec->no_upwards?
Message-Id: <430c0ee2-1407-4eed-922c-fd04b3400897@z1g2000yqn.googlegroups.com>
On Nov 29, 10:39 am, Peng Yu <PengYu...@gmail.com> wrote:
> Hi,
>
> According tohttp://perldoc.perl.org/File/Spec.html, no_upwards should
> remove '.' or '..'. But the following example does not do so. Can
> somebody let me know how to use no_upwards correctly?
Hi,
I just find that I can use Cwd to remove '..'.
Thanks,
Peng
#!/usr/bin/perl
use warnings;
use strict;
use Cwd;
my $path = '../../../something/backup/home/../home/Desktop/';
$path = Cwd::abs_path($path);
print "\$path = $path\n";
------------------------------
Date: Sat, 29 Nov 2008 19:56:26 +0100
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: How to use File::Spec->no_upwards?
Message-Id: <slrngj342r.5fl.hjp-usenet2@hrunkner.hjp.at>
On 2008-11-29 16:39, Peng Yu <PengYu.UT@gmail.com> wrote:
> According to http://perldoc.perl.org/File/Spec.html, no_upwards should
> remove '.' or '..'. But the following example does not do so. Can
> somebody let me know how to use no_upwards correctly?
>
> Thanks,
> Peng
>
> #!/usr/bin/perl
>
> use warnings;
> use strict;
>
> use File::Spec;
>
> my @path = ("../../../something/backup/home/../home/Desktop/");
> File::Spec->no_upwards(@path);
You are ignoring the result of File::Spec->no_upwards here.
> print "\@path = @path\n";
But anyway, looking at the source:
sub no_upwards {
my $self = shift;
return grep(!/^\.{1,2}\z/s, @_);
}
no_upwards is obviously not intended to be applied to whole paths, but
only to file names. The discription says so, but the use of the variable
name @paths in the example is confusing.
This works as expected:
#!/usr/bin/perl
use warnings;
use strict;
use File::Spec;
opendir(my $dh, '.') or die "opendir . failed: $!";
my @files = File::Spec->no_upwards(readdir($dh));
print "$_\n" for @files;
__END__
hp
------------------------------
Date: Sat, 29 Nov 2008 17:38:20 +0100
From: "Petr Vileta \"fidokomik\"" <stoupa@practisoft.cz>
Subject: mail address validation
Message-Id: <ggrr68$1g6d$1@ns.felk.cvut.cz>
I have read RFC822 and check groups and ansk Uncle Google but I'm still
confused.
I want to perform mail address validation as simple as possible. Strings I want
to check will not look like
"my Name" my.name@example.com
but always will be in "simple" format
user@domain.top
where
"user" is username part of address
"domain" is domain (subdomain) part of address
".top" mean top level domain (e.g. country).
I tested some CPAN modules but all work bad or I misunderstand RFC.
For example next addresses are wrong I think
some"strange@user@example.com
natíonál@example.com
(baduser]@example.com
My questions are:
1) what characters are forbidden in "user" part
2) what characters are forbidden in "domain" part
3) are allowed single character top level domains, say "example.o" ?
Many thanks for any explanation.
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail.
Send me your mail from another non-spammer site please.)
Please reply to <petr AT practisoft DOT cz>
------------------------------
Date: Sat, 29 Nov 2008 10:12:35 -0800 (PST)
From: smallpond <smallpond@juno.com>
Subject: Re: mail address validation
Message-Id: <4b1cdd9c-919f-41bf-b22a-44041cb99b20@x38g2000yqj.googlegroups.com>
On Nov 29, 11:38 am, "Petr Vileta \"fidokomik\""
<sto...@practisoft.cz> wrote:
> I have read RFC822 and check groups and ansk Uncle Google but I'm still
> confused.
> I want to perform mail address validation as simple as possible. Strings =
I want
> to check will not look like
> "my Name" my.n...@example.com
> but always will be in "simple" format
> u...@domain.top
> where
> "user" is username part of address
> "domain" is domain (subdomain) part of address
> ".top" mean top level domain (e.g. country).
> I tested some CPAN modules but all work bad or I misunderstand RFC.
> For example next addresses are wrong I think
> some"strange@u...@example.com
> nat=EDon=E1l...@example.com
> (baduser]@example.com
>
> My questions are:
>
> 1) what characters are forbidden in "user" part
> 2) what characters are forbidden in "domain" part
> 3) are allowed single character top level domains, say "example.o" ?
>
> Many thanks for any explanation.
You want to reinvent the wheel and not just use the CPAN module? ok
http://ex-parrot.com/~pdw/Mail-RFC822-Address.html
------------------------------
Date: Sat, 29 Nov 2008 14:17:55 -0600
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: mail address validation
Message-Id: <slrngj38rj.m9i.tadmc@tadmc30.sbcglobal.net>
Petr Vileta "fidokomik" <stoupa@practisoft.cz> wrote:
> My questions are:
>
> 1) what characters are forbidden in "user" part
The same ones that are forbidden if you are programming in Python or Visual Basic.
> 2) what characters are forbidden in "domain" part
The same ones that are forbidden if you are programming in Python or Visual Basic.
> 3) are allowed single character top level domains, say "example.o" ?
You do not have a Perl question.
The comp.mail.* newsgroups are over that way ==>
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Sat, 29 Nov 2008 05:43:13 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: subroutine to array
Message-Id: <e8h2j4d2091qvaj82u3tqolpqkotih36v7@4ax.com>
QoS@domain.invalid wrote:
>Is there any other way to load a subroutine into an array?
Sort of. Typically people would use a hash also known as a dispatch
table. But of course you could use an array instead of a hash, too, to
store the function references.
jue
------------------------------
Date: Sat, 29 Nov 2008 15:27:23 GMT
From: QoS@domain.invalid
Subject: Re: subroutine to array
Message-Id: <vbdYk.1784$QX3.450@nwrddc02.gnilink.net>
Jürgen Exner <jurgenex@hotmail.com> wrote in message-id: <e8h2j4d2091qvaj82u3tqolpqkotih36v7@4ax.com>
>
> QoS@domain.invalid wrote:
> >Is there any other way to load a subroutine into an array?
>
> Sort of. Typically people would use a hash also known as a dispatch
> table. But of course you could use an array instead of a hash, too, to
> store the function references.
>
> jue
dispatch table, yeah ive got some text on those; thanks!
------------------------------
Date: Sat, 29 Nov 2008 15:29:09 GMT
From: QoS@domain.invalid
Subject: Re: subroutine to array
Message-Id: <9ddYk.1785$QX3.210@nwrddc02.gnilink.net>
"John W. Krahn" <someone@example.com> wrote in message-id: <356Yk.7109$1s7.6831@newsfe02.iad>
appreciate the tips, learned something, thanks.
>
> QoS@domain.invalid wrote:
> > Is there any other way to load a subroutine into an array?
>
> perldoc -q "How do I find matching/nesting anything"
>
>
>
> > #!/usr/bin/perl
> > use strict;
> > use warnings;
> >
> > my @array;
> >
> > @array = loadSub('example');
>
> Or just:
>
> my @array = loadSub('example');
>
> > if (defined $array[0]) {
> > foreach my $l (@array) {
> > print $l;
> > }
> > }
>
> Or just:
>
> @array and print @array;
>
> > exit;
> >
> > sub loadSub #-----------------------------------------------------------
> > {
> > my $sub = quotemeta ($_[0]) || return (0);
>
> You are returning 0 but you are testing the result of running this
> subroutine with defined() so your test "if (defined $array[0]) {" will
> always be true.
>
> > my $this_perl = $0;
> >
> > if (open (IN, '<', $this_perl)) {
> > my ($out, $found,);
> > while (my $line = (<IN>)) {
> > if (! $found && ! $line =~ m/^\s*sub\s+$sub/) {
> > next;
> > }
> > else {
> > $found = 1;
> > if ($line =~ m/^\s*}/) { last; }
> > $out .= $line;
> > }
> > }
> > if (! $found) {
> > warn 'Unable to find subroutine: ' . $sub . "\n";
> > $out = 0;
> > }
> > close IN
> > || warn "Unable to close input file in loadSub\n";
> > return ($out);
> > }
> > else {
> > warn "Unable to read file: $this_perl\n$!\n";
> > }
> > return (0);
>
> You are returning 0 but you are testing the result of running this
> subroutine with defined() so your test "if (defined $array[0]) {" will
> always be true.
>
> > }
> > sub example #-----------------------------------------------------------
> > {
> > my ($a, $b,);
> > foreach my $n (1..5) { $a++; $b += $a + $n; }
> > return ($b);
> > }
>
> Could be written more simply as:
>
> #!/usr/bin/perl
> use strict;
> use warnings;
>
> # Is there any other way to load a subroutine into an array?
>
> my @array = loadSub( 'example' );
>
> @array and print @array;
>
> sub loadSub {
> my $sub = quotemeta $_[ 0 ] or return;
> my $this_perl = $0;
>
> open my $IN, '<', $this_perl or do {
> warn "Unable to read file: $this_perl\n$!\n";
> return;
> };
>
> my $out;
> while ( my $line = <$IN> ) {
> next if !defined $out && $line !~ /^\s*sub\s+$sub/;
> $out .= $line;
> return $out if $line =~ /^\s*}/;
> }
>
> warn "Unable to find subroutine: $sub\n";
> return;
> }
>
> sub example {
> my ( $x, $y );
> $y += ++$x + $_ for 1 .. 5;
> return $y;
> }
>
> __END__
>
>
>
> John
------------------------------
Date: Sat, 29 Nov 2008 15:14:10 +0000 (UTC)
From: dkcombs@panix.com (David Combs)
Subject: Re: Using unreferenced labels
Message-Id: <ggrm82$8p4$2@reader1.panix.com>
In article <gfprvf$2jqf$1@agate.berkeley.edu>,
Ilya Zakharevich <nospam-abuse@ilyaz.org> wrote:
>[A complimentary Cc of this posting was NOT [per weedlist] sent to
>Peter J. Holzer
><hjp-usenet2@hjp.at>], who wrote in article <slrnghvmqi.9vv.hjp-usenet2@hrunkner.hjp.at>:
>> I haven't looked at the real in-memory format of the optree, but my gut
>> feeling is that working through a tree (instead of a stream) is pretty
>> horrible for locality. Maybe a significant performance boost could be
>> achieved by flattening the tree?
>
>It is flattened as the last step of compilation-per-se. (Then it is
>optimized - although with *very* primitive steps only.)
>
>I think I wrote something about this... perlguts/"Compliled code"
>
>Yours,
>Ilya
Ilya,
Could you flesh out a bit what we might google(groups) for
to find that discussion?
THANKS MUCH!
David
------------------------------
Date: Sat, 29 Nov 2008 21:02:07 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: Using unreferenced labels
Message-Id: <ggsakf$13ke$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
David Combs
<dkcombs@panix.com>], who wrote in article <ggrm82$8p4$2@reader1.panix.com>:
> >I think I wrote something about this... perlguts/"Compliled code"
> Could you flesh out a bit what we might google(groups) for
> to find that discussion?
Sorry, David, it looks like you trimmed too much, so I do not know
which "discussion" you mean...
What I meant was (after fixing misprints) that you can do
perldoc perlguts
and look for the section on "Compiled code".
Yours,
Ilya
------------------------------
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 2017
***************************************
