[29439] in Perl-Users-Digest
Perl-Users Digest, Issue: 683 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jul 26 03:09:38 2007
Date: Thu, 26 Jul 2007 00:09:06 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 26 Jul 2007 Volume: 11 Number: 683
Today's topics:
Re: @arts <zaxfuuq@invalid.net>
Re: @arts <v_ronans@no.spam>
Re: @arts <paduille.4061.mumia.w+nospam@earthlink.net>
Re: @arts <v_ronans@no.spam>
Help reading a file <micky@hotmail.com>
Re: Help reading a file <noreply@gunnar.cc>
Re: Help reading a file <josef.moellers@fujitsu-siemens.com>
Re: I am giving up perl because of assholes on clpm -- <bignose+hates-spam@benfinney.id.au>
Re: match string by re using some pattern <frytaz@gmail.com>
Re: match string by re using some pattern <mgjv@tradingpost.com.au>
Re: match string by re using some pattern <noreply@gunnar.cc>
Re: match string by re using some pattern <noreply@gunnar.cc>
new CPAN modules on Thu Jul 26 2007 (Randal Schwartz)
Re: XML Validation <mgjv@tradingpost.com.au>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 25 Jul 2007 19:40:34 -0700
From: "Wade Ward" <zaxfuuq@invalid.net>
Subject: Re: @arts
Message-Id: <5JWdnY0pksRfjTXbnZ2dnUVZ_r6rnZ2d@comcast.com>
"Sherm Pendley" <spamtrap@dot-app.org> wrote in message
news:m2zm1k0y6g.fsf@dot-app.org...
> "Wade Ward" <zaxfuuq@invalid.net> writes:
>
>> I've been reading about the functions that I used in the original post.
>
> Excellent, Smithers! (Sorry, I'm in a Simpsons mood this week...)
Roger on the aliasing. I'll try to cook up a couple examples to get my head
around it. I watched the Simpson's this week, which is unusual because the
only channels I get with my antenna are pbs and the jesus freak station.
Smithers shows up with flames on his back while the old fart holds running
water and doesn't choose to intervene.
--
WW
------------------------------
Date: Wed, 25 Jul 2007 20:33:42 -0700
From: "Vronans" <v_ronans@no.spam>
Subject: Re: @arts
Message-Id: <sdCdnW9JJrOGizXbnZ2dnUVZ_qqgnZ2d@wavecable.com>
Michele Dondi wrote:
> Till the *only* person to ever complain is "Vronans" I won't bother.
1) I wasn't the only person in this thread to "complain" about your
broken quoting:
http://groups.google.com/group/comp.lang.perl.misc/msg/0e8d8dbce4319cd1
2) It's even in the posting guidelines:
"Posting Guidelines for comp.lang.perl.misc ($Revision: 1.8 $)"
http://groups.google.com/group/comp.lang.perl.misc/browse_frm/thread/39783523814c5bfa/
[[
Use an effective followup style
[...]
Always indicate who wrote the quoted material.
]]
So as I said before, why do you get to be above the rules that you* and
regulars say we should all follow? Why is it you cannot be called on it?
Why is that? I can even understand Abigail's quoting style, even though
I may not like it, at least it doesn't interfere with one's ability to
read the post. I just want to know what makes you so g--d--- special
that gives you complete immunity from what you preach*?
* And you have on many occasions:
http://groups.google.com/groups/search?hl=en&lr=&safe=off&num=100&q=%22posting+guidelines%22+group%3A*perl*+author%3AMichele+author%3ADondi&safe=off
------------------------------
Date: Thu, 26 Jul 2007 03:37:15 GMT
From: "Mumia W." <paduille.4061.mumia.w+nospam@earthlink.net>
Subject: Re: @arts
Message-Id: <LFUpi.10852$rR.7136@newsread2.news.pas.earthlink.net>
On 07/25/2007 07:36 PM, Wade Ward wrote:
> [...]
> for (reverse $first..$last) { }
> The only way I can see what happens here is if I replace it with my
> pre-existing loop notions from C:
> for (i = $last; i >= $first; -- i) {}
> At least one problem with this substitution is that I can't figure out how
> the code between the curly brackets knows it's being looped on without
> reference to the dummy i . How does the intervening code in the former for
> statement avail itself of the loop it is in?
The default argument variable, $_ , has this information. Knowing where
the default argument variable is used is pretty basic. Again, you need
to read the beginning Perl documentation that I and others referenced
earlier. Also getting a Perl book is a good idea.
------------------------------
Date: Wed, 25 Jul 2007 20:49:41 -0700
From: "Vronans" <v_ronans@no.spam>
Subject: Re: @arts
Message-Id: <v7SdnUCzMq5LhDXbnZ2dnUVZ_quhnZ2d@wavecable.com>
Tad McClellan wrote:
> Michele Dondi <bik.mido@tiscalinet.it> wrote:
>
>> Now, can I hope that you changed your identity once
>> and that you won't do many more time in the future?
***
> I'm afraid not.
>
> It has changed its identity dozens of times over the past few years,
> so we can expect that it will do so yet again.
Why I'm replying to this, I don't know, but it is yet another great
example of how you types try to win an argument: simply discredit them
in the most convenient way possible.
Sure, it doesn't matter that Michele Dondi was wrong, even if it IS
against the posting guidelines*, because a regular cannot be called on
something when they are doing something incorrect, even if they were
first asked nicely.**
Seriously, if it was the other way around, that is, if I or any
not-so-regular was asked to appropriately attribute quotes, I was be
expected to do so. So tell me, why is it he's not expected to do the
same, to follow the guidelines you, he, and others hold so dear? And no,
I was NOT the only one to ask him to properly attribute quotes.
So why is it one has to be down-casted for pointing it out, rather then
simply saying something like, "sorry about that, I'll try to watch
that", to that effect? Is it really that hard??
* "Posting Guidelines for comp.lang.perl.misc ($Revision: 1.8 $)"
http://groups.google.com/group/comp.lang.perl.misc/browse_frm/thread/39783523814c5bfa/
[[
Use an effective followup style
[...]
Always indicate who wrote the quoted material.
]]
** In several replies to Michele Dondi, I asked him politely to correct
attribute quotes:
"(Please don't leave quotes without their applicable attributions.)"
and slight variations there of.
*** Normally I wouldn't change my info at all, other than munge the
email field. I only slightly altered it because I don't find it
particularly fair that one should be able to automatically win an
argument by shutting someone out, not when they are blatantly as wrong
as Dondi was. This was one exception I could not let go of so easily.
------------------------------
Date: Thu, 26 Jul 2007 00:08:43 -0400
From: micky <micky@hotmail.com>
Subject: Help reading a file
Message-Id: <f896pn$t3c$1@charm.magnus.acs.ohio-state.edu>
Hi All,
I am reading a text file which has been formatted using spaces like this:
--------
node_2382 --> Peptostreptococc 10 1 0.333 T ==> C
21 1 0.500 G ==> A
23 1 0.500 G ==> A
25 1 0.750 G ==> T
31 1 1.000 C ==> T
45 1 0.500 G ==> A
47 1 0.250 T ==> C
node_2384 --> coccostreptococc 10 1 0.333 T ==> C
21 1 0.500 G ==> A
23 1 0.500 G ==> A
25 1 0.750 G ==> T
31 1 1.000 C ==> T
45 1 0.500 G ==> A
47 1 0.250 T ==> C
--------
And so on. I'd like to read it into an array such that node_xxxx goes in
char[1], the string after --> goes in @char[2], the number in the 1st
column goes into @char[3] and so on.
Could someone help me with this?
Thanks,
-M
------------------------------
Date: Thu, 26 Jul 2007 06:41:07 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Help reading a file
Message-Id: <5gqn5fF3gv4piU1@mid.individual.net>
micky wrote:
> I am reading a text file which has been formatted using spaces like this:
>
> --------
> node_2382 --> Peptostreptococc 10 1 0.333 T ==> C
> 21 1 0.500 G ==> A
> 23 1 0.500 G ==> A
> 25 1 0.750 G ==> T
> 31 1 1.000 C ==> T
> 45 1 0.500 G ==> A
> 47 1 0.250 T ==> C
> node_2384 --> coccostreptococc 10 1 0.333 T ==> C
> 21 1 0.500 G ==> A
> 23 1 0.500 G ==> A
> 25 1 0.750 G ==> T
> 31 1 1.000 C ==> T
> 45 1 0.500 G ==> A
> 47 1 0.250 T ==> C
> --------
>
> And so on. I'd like to read it into an array such that node_xxxx goes in
> char[1], the string after --> goes in @char[2], the number in the 1st
> column goes into @char[3] and so on.
What have you tried?
I see seven numbers in the 1st column.
What does the last "and so on" mean?
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Thu, 26 Jul 2007 09:08:32 +0200
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: Help reading a file
Message-Id: <f89h9j$58s$1@nntp.fujitsu-siemens.com>
micky wrote:
> Hi All,
>=20
> I am reading a text file which has been formatted using spaces like thi=
s:
>=20
> --------
> node_2382 --> Peptostreptococc 10 1 0.333 T =3D=3D=
> C
> 21 1 0.500 G =3D=3D=
> A
> 23 1 0.500 G =3D=3D=
> A
> 25 1 0.750 G =3D=3D=
> T
> 31 1 1.000 C =3D=3D=
> T
> 45 1 0.500 G =3D=3D=
> A
> 47 1 0.250 T =3D=3D=
> C
> node_2384 --> coccostreptococc 10 1 0.333 T =3D=3D=
> C
> 21 1 0.500 G =3D=3D=
> A
> 23 1 0.500 G =3D=3D=
> A
> 25 1 0.750 G =3D=3D=
> T
> 31 1 1.000 C =3D=3D=
> T
> 45 1 0.500 G =3D=3D=
> A
> 47 1 0.250 T =3D=3D=
> C
> --------
>=20
> And so on. I'd like to read it into an array such that node_xxxx goes i=
n=20
> char[1], the string after --> goes in @char[2], the number in the 1st=20
> column goes into @char[3] and so on.
>=20
> Could someone help me with this?
Maybe "perldoc -f substr" can do, as these seem to be all fixed-format=20
lines.
--=20
These are my personal views and not those of Fujitsu Siemens Computers!
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize (T. Pratchett)
Company Details: http://www.fujitsu-siemens.com/imprint.html
------------------------------
Date: Thu, 26 Jul 2007 15:23:18 +1000
From: Ben Finney <bignose+hates-spam@benfinney.id.au>
Subject: Re: I am giving up perl because of assholes on clpm -- switching to Python
Message-Id: <878x93ivqx.fsf@benfinney.id.au>
Martha_Jones@tx.net writes:
> Python is a better language, with php support, anyway, but I am fed
> up with attitudes of comp.lang.perl.misc.
Please, if you must fred the troll, drop comp.lang.python from the
discussion (i.e. post trplies only to the newsgroup this message
relates to).
--
\ "I like to reminisce with people I don't know. Granted, it |
`\ takes longer." -- Steven Wright |
_o__) |
Ben Finney
------------------------------
Date: Thu, 26 Jul 2007 02:21:42 -0000
From: "frytaz@gmail.com" <frytaz@gmail.com>
Subject: Re: match string by re using some pattern
Message-Id: <1185416502.610352.43800@57g2000hsv.googlegroups.com>
On Jul 25, 11:26 pm, anno4...@radom.zrz.tu-berlin.de wrote:
> fry...@gmail.com <fry...@gmail.com> wrote in comp.lang.perl.misc:
>
>
>
> > On Jul 25, 8:14 pm, Paul Lalli <mri...@gmail.com> wrote:
> > > On Jul 25, 2:05 pm, "fry...@gmail.com" <fry...@gmail.com> wrote:
>
> > > > How I could recognize those patterns #one# #two# #three#
>
> > > > Can i do it like in c#, for instance
>
> > > > $match =~ s/#one#/(?<one>.*?)/;
> > > > $match =~ s/#two#/(?<two>.*?)/;
> > > > $match =~ s/#three#/(?<three>.*?)/;
>
> > > > then
>
> > > > $one = ${one};
> > > > $two = ${two};
> > > > $three = ${three};
>
> > > > But that doesn't work...
>
> > > Not until Perl 5.10, no it doesn't.
>
> > > We've already given you an implementable solution. What issue are you
> > > still having with it?
>
> > > Paul Lalli
>
> > There is an issue when, theres two lines in file
>
> > 1 some #one# test #two# text #three#
> > 2 some #two# test #one# text #three#
>
> Okay, these are data from a file.
>
> > then after replace by s/#(one|two|three)#/(.+?)/
>
> > 1 some (.+?) test (.+?) text (.+?)
> > 2 some (.+?) text (.+?) text (.+?)
>
> Now you generate what looks like regex patterns out of the first
> two lines from your file.
>
> > then if I'm trying to match it with
>
> > some O!N!E test T!W!O text T!H!R!E!E
>
> Where is this from? Is that another line from the file?
>
> > script will work fine only for 1st file line
> > #one# should match O!N!E for instance
>
> It becomes increasingly unclear how you would distinguish normal
> text from markers such as "#one#" or "O!N!E". How is the program
> supposed to identify them?
>
> That said, the first of your patterns at least makes an honorable
> attempt at matching and even capturing the mutated markers:
>
> my $str = 'some O!N!E test T!W!O text T!H!R!E!E';
> $str =~ /some (.+?) test (.+?) text (.+?)/ or die "no match\n";
> print "$_\n" for $1, $2, $3;
>
> That prints
>
> O!N!E
> T!W!O
> T
>
> The last capture is incomplete. That may take some fiddling to correct.
>
> I am still at a loss guessing what you are really up to.
>
> Anno
OK, I'll try to explain it
for instance we parse http web page
$line = "section BOOKS - title SOME_BOOK_TITLE - price 20";
$pattern = "section #SECTION# * title #TITLE# - price #PRICE#";
$regex_patern = "section (.+?) . title (.+?) - price (.+?)";
if ($line =~ m/^$regex_pattern/) {
$section = $1;
#$section -> BOOKS
$title = $2;
#$title -> SOME_BOOK_TITLE
$price = $3;
#$price -> 20
}
and its all fine because its in order section,title,price
now we try to parse other page where
$line = "title CD_TITLE - price 50 - section MUSIC";
$pattern = "title #TITLE# - price #PRICE# - section #SECTION#";
$regex_pattern = "title (.+?) - price (.+?) - section (.+?)";
if ($line =~ m/^$regex_pattern/) {
#now its wrong
$section = $1;
#$section -> CD_TITLE
$title = $2;
#$title -> 50
$price = $3;
#$price -> MUSIC
}
in this example, need to put different order of section,title,price
I want to make script know pattern when replacing #TITLE# make it a
title match pattern, but its in all cases (.+?)
------------------------------
Date: Thu, 26 Jul 2007 13:46:51 +1000
From: Martien verbruggen <mgjv@tradingpost.com.au>
Subject: Re: match string by re using some pattern
Message-Id: <slrnfag69b.iur.mgjv@martien.heliotrope.home>
On Thu, 26 Jul 2007 02:21:42 -0000,
frytaz@gmail.com <frytaz@gmail.com> wrote:
> On Jul 25, 11:26 pm, anno4...@radom.zrz.tu-berlin.de wrote:
>> fry...@gmail.com <fry...@gmail.com> wrote in comp.lang.perl.misc:
[huge snip]
>> > script will work fine only for 1st file line
>> > #one# should match O!N!E for instance
[snip]
>>
>> I am still at a loss guessing what you are really up to.
> OK, I'll try to explain it
>
> for instance we parse http web page
>
> $line = "section BOOKS - title SOME_BOOK_TITLE - price 20";
> $pattern = "section #SECTION# * title #TITLE# - price #PRICE#";
> $regex_patern = "section (.+?) . title (.+?) - price (.+?)";
> if ($line =~ m/^$regex_pattern/) {
> $section = $1;
> #$section -> BOOKS
> $title = $2;
> #$title -> SOME_BOOK_TITLE
> $price = $3;
> #$price -> 20
> }
You should really consider using real code. Something that compiles and
runs, under strict and warnings.
The above doesn't.
Allowing that maybe $regex_patern and $regex_pattern are suppose dto be
the same, what is $pattern doing in there? It isn't a pattern as far as
Perl is concerned, and it's actually not used anywhere.
> and its all fine because its in order section,title,price
>
> now we try to parse other page where
>
> $line = "title CD_TITLE - price 50 - section MUSIC";
> $pattern = "title #TITLE# - price #PRICE# - section #SECTION#";
> $regex_pattern = "title (.+?) - price (.+?) - section (.+?)";
>
> if ($line =~ m/^$regex_pattern/) {
> #now its wrong
> $section = $1;
> #$section -> CD_TITLE
> $title = $2;
> #$title -> 50
> $price = $3;
> #$price -> MUSIC
> }
>
> in this example, need to put different order of section,title,price
>
> I want to make script know pattern when replacing #TITLE# make it a
> title match pattern, but its in all cases (.+?)
It's still completely unlcear to me what you want, and what $pattern has
to do with it. The only thing i can partly parse of the above is that
you're trying to get the three fields title, price and section from a
string, and that they could be in any of the 'slots' in $line. One way
that would work is something like:
#!/usr/bin/perl
use strict;
use warnings;
my @lines = (
"section BOOKS - title SOME_BOOK_TITLE - price 20",
"title CD_TITLE - price 50 - section MUSIC",
"price 3 - title BARF BANANA - section RANDOM",
);
my $kv_pattern = qr/(title|price|section) (.+?)/;
for my $line (@lines)
{
print "$line\n";
my %kv = $line =~ /$kv_pattern - $kv_pattern - $kv_pattern/;
while (my ($key, $value) = each %kv)
{
print "\t$key -> $value\n";
}
}
As you can see, after a successful match, the has %kv contains the keys
and values as stored in the line you put in. Simply access them as
$kv{section}, $kv{price} and $kv{title}. This still requires a fairly
rigorous input, but allows the order to be different, which SEEMS to be
what you're asking, although I'm not 100% certain.
If you need to support more or different fields, simply change
$kv_pattern.
Martien
--
|
Martien Verbruggen | That's not a lie, it's a terminological
| inexactitude.
|
------------------------------
Date: Thu, 26 Jul 2007 06:23:15 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: match string by re using some pattern
Message-Id: <5gqm3vF3hlmgkU1@mid.individual.net>
frytaz@gmail.com wrote:
> for instance we parse http web page
>
> $line = "section BOOKS - title SOME_BOOK_TITLE - price 20";
> $pattern = "section #SECTION# * title #TITLE# - price #PRICE#";
> $regex_patern = "section (.+?) . title (.+?) - price (.+?)";
> if ($line =~ m/^$regex_pattern/) {
> $section = $1;
> #$section -> BOOKS
> $title = $2;
> #$title -> SOME_BOOK_TITLE
> $price = $3;
> #$price -> 20
> }
>
> and its all fine because its in order section,title,price
>
> now we try to parse other page where
>
> $line = "title CD_TITLE - price 50 - section MUSIC";
> $pattern = "title #TITLE# - price #PRICE# - section #SECTION#";
> $regex_pattern = "title (.+?) - price (.+?) - section (.+?)";
>
> if ($line =~ m/^$regex_pattern/) {
> #now its wrong
> $section = $1;
> #$section -> CD_TITLE
> $title = $2;
> #$title -> 50
> $price = $3;
> #$price -> MUSIC
> }
>
> in this example, need to put different order of section,title,price
>
> I want to make script know pattern when replacing #TITLE# make it a
> title match pattern, but its in all cases (.+?)
my @lines = (
'section BOOKS - title SOME_BOOK_TITLE - price 20',
'title CD_TITLE - price 50 - section MUSIC',
);
my @items;
foreach ( @lines ) {
my $item;
( $item->{section} ) = /section (.+?)(?: -|$)/;
( $item->{title} ) = /title (.+?)(?: -|$)/;
( $item->{price} ) = /price (.+?)(?: -|$)/;
push @items, $item;
}
foreach my $item ( @items ) {
print "Section: $item->{section}\n";
print "Title: $item->{title}\n";
print "Price: $item->{price}\n\n";
}
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Thu, 26 Jul 2007 06:27:53 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: match string by re using some pattern
Message-Id: <5gqmclF3hj47lU1@mid.individual.net>
Martien verbruggen wrote:
>
> my @lines = (
> "section BOOKS - title SOME_BOOK_TITLE - price 20",
> "title CD_TITLE - price 50 - section MUSIC",
> "price 3 - title BARF BANANA - section RANDOM",
> );
>
> my $kv_pattern = qr/(title|price|section) (.+?)/;
>
> for my $line (@lines)
> {
> print "$line\n";
> my %kv = $line =~ /$kv_pattern - $kv_pattern - $kv_pattern/;
> while (my ($key, $value) = each %kv)
> {
> print "\t$key -> $value\n";
> }
> }
Did you run it?
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Thu, 26 Jul 2007 04:42:15 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Thu Jul 26 2007
Message-Id: <JLrrqF.20C8@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.
Acme-POE-Acronym-Generator-1.03
http://search.cpan.org/~bingos/Acme-POE-Acronym-Generator-1.03/
Generate random POE acronyms.
----
App-CamelPKI-0.03
http://search.cpan.org/~grm/App-CamelPKI-0.03/
A multi-purpose PKI.
----
AutoCons-0.02_01
http://search.cpan.org/~riddle/AutoCons-0.02_01/
Write a Construct file.
----
Bundle-POE-Simple-TCPIP-Services-1.01
http://search.cpan.org/~bingos/Bundle-POE-Simple-TCPIP-Services-1.01/
A bundle to install all POE simple TCP/IP services modules.
----
Catalyst-Plugin-Static-TT-0.002
http://search.cpan.org/~hdp/Catalyst-Plugin-Static-TT-0.002/
generate 'static' content with TT
----
DBD-Multi-0.11
http://search.cpan.org/~dwright/DBD-Multi-0.11/
Manage Multiple Data Sources with Failover and Load Balancing
----
Filter-Crypto-1.20
http://search.cpan.org/~shay/Filter-Crypto-1.20/
Create runnable Perl files encrypted with OpenSSL libcrypto
----
Form-Processor-Model-CDBI-0.06
http://search.cpan.org/~hank/Form-Processor-Model-CDBI-0.06/
model class for Form::Processor based on Class::DBI
----
Form-Processor-Model-DOD-0.01
http://search.cpan.org/~yannk/Form-Processor-Model-DOD-0.01/
Model Class for Form::Processor based on Data::ObjectDriver
----
GD-Graph-Cartesian-0.02
http://search.cpan.org/~mrdvt/GD-Graph-Cartesian-0.02/
Make cartesian graph using GD package
----
Google-Data-JSON-0.1.3
http://search.cpan.org/~takeru/Google-Data-JSON-0.1.3/
General XML-JSON converter based on Google Data APIs
----
HTML-Template-Compiled-Plugin-HTML_Tags-0.04
http://search.cpan.org/~tinita/HTML-Template-Compiled-Plugin-HTML_Tags-0.04/
HTC-Plugin for various HTML tags
----
Java-Javap-0.04
http://search.cpan.org/~philcrow/Java-Javap-0.04/
Java to Perl 6 API translator
----
Math-BigInt-GMP-1.23
http://search.cpan.org/~tels/Math-BigInt-GMP-1.23/
Use the GMP library for Math::BigInt routines
----
Murex-0.121
http://search.cpan.org/~linmar/Murex-0.121/
----
Murex-0.122
http://search.cpan.org/~linmar/Murex-0.122/
----
Net-Server-0.97
http://search.cpan.org/~rhandom/Net-Server-0.97/
Extensible, general Perl server engine
----
Net-XMPP2-0.03
http://search.cpan.org/~elmex/Net-XMPP2-0.03/
An implementation of the XMPP Protocol
----
PBS-Client-0.05
http://search.cpan.org/~kwmak/PBS-Client-0.05/
Job submission interface to PBS (Portable Batch System)
----
POE-Component-AI-MegaHAL-1.07
http://search.cpan.org/~bingos/POE-Component-AI-MegaHAL-1.07/
A non-blocking wrapper around AI::MegaHAL.
----
POE-Component-CPAN-YACSmoke-1.00
http://search.cpan.org/~bingos/POE-Component-CPAN-YACSmoke-1.00/
Bringing the power of POE to CPAN smoke testing.
----
POE-Component-Client-NRPE-0.04
http://search.cpan.org/~bingos/POE-Component-Client-NRPE-0.04/
a POE Component that implements check_nrpe functionality
----
POE-Component-DHCP-Monitor-0.07
http://search.cpan.org/~bingos/POE-Component-DHCP-Monitor-0.07/
A simple POE Component for monitoring DHCP traffic.
----
POE-Component-IRC-5.34
http://search.cpan.org/~bingos/POE-Component-IRC-5.34/
a fully event-driven IRC client module.
----
POE-Component-Pluggable-0.06
http://search.cpan.org/~bingos/POE-Component-Pluggable-0.06/
A base class for creating plugin enabled POE Components.
----
POE-Component-Server-Chargen-1.06
http://search.cpan.org/~bingos/POE-Component-Server-Chargen-1.06/
A POE component that implements an RFC 864 Chargen server.
----
POE-Component-Server-DNS-0.07
http://search.cpan.org/~bingos/POE-Component-Server-DNS-0.07/
A non-blocking, concurrent DNS server POE component
----
POE-Component-Server-Daytime-1.06
http://search.cpan.org/~bingos/POE-Component-Server-Daytime-1.06/
A POE component that implements an RFC 865 Daytime server.
----
POE-Component-Server-Discard-1.06
http://search.cpan.org/~bingos/POE-Component-Server-Discard-1.06/
A POE component that implements an RFC 863 Discard server.
----
POE-Component-Server-Echo-1.52
http://search.cpan.org/~bingos/POE-Component-Server-Echo-1.52/
A POE component that implements an RFC 862 Echo server.
----
POE-Component-Server-POP3-0.02
http://search.cpan.org/~bingos/POE-Component-Server-POP3-0.02/
A POE framework for authoring POP3 servers
----
POE-Component-Server-Qotd-1.06
http://search.cpan.org/~bingos/POE-Component-Server-Qotd-1.06/
A POE component that implements an RFC 865 QotD server.
----
POE-Component-Server-Time-1.06
http://search.cpan.org/~bingos/POE-Component-Server-Time-1.06/
A POE component that implements an RFC 868 Time server.
----
POE-Filter-CSV_XS-1.06
http://search.cpan.org/~bingos/POE-Filter-CSV_XS-1.06/
A POE-based parser for CSV based files.
----
POE-Filter-ParseWords-0.02
http://search.cpan.org/~bingos/POE-Filter-ParseWords-0.02/
A POE-based parser to parse text into an array of tokens.
----
Parse-IRC-1.05
http://search.cpan.org/~bingos/Parse-IRC-1.05/
A parser for the IRC protocol.
----
Perl-Critic-1.061
http://search.cpan.org/~thaljef/Perl-Critic-1.061/
Critique Perl source code for best-practices
----
SMS-Send-DeviceGsm-0.02
http://search.cpan.org/~bingos/SMS-Send-DeviceGsm-0.02/
An SMS::Send driver for Device::Gsm.
----
Task-Lemonldap-0.01
http://search.cpan.org/~ski/Task-Lemonldap-0.01/
installs Lemonldap and Lemonldap::NG modules
----
Task-Lemonldap-0.02
http://search.cpan.org/~ski/Task-Lemonldap-0.02/
installs Lemonldap and Lemonldap::NG modules
----
Test-Pod-Snippets-0.03_03
http://search.cpan.org/~yanick/Test-Pod-Snippets-0.03_03/
Generate tests from pod code snippets
----
UNIVERSAL-derived_classes-0.01
http://search.cpan.org/~tamashiro/UNIVERSAL-derived_classes-0.01/
Returns derived classes of a class
----
URI-ParseSearchString-More-0.02
http://search.cpan.org/~oalders/URI-ParseSearchString-More-0.02/
Extract search strings from more referrers.
----
User-Identity-0.92
http://search.cpan.org/~markov/User-Identity-0.92/
maintains info about a physical person
----
VFSsimple-0.01
http://search.cpan.org/~nanardon/VFSsimple-0.01/
----
VFSsimple-Drv-File-0.01
http://search.cpan.org/~nanardon/VFSsimple-Drv-File-0.01/
A VFSsimple implementation over real fs
----
VFSsimple-Drv-Ftp-0.01
http://search.cpan.org/~nanardon/VFSsimple-Drv-Ftp-0.01/
A VFSsimple implementation over ftp protocol
----
VFSsimple-Drv-Http-0.01
http://search.cpan.org/~nanardon/VFSsimple-Drv-Http-0.01/
A VFSsimple implementation over http protocol
----
VFSsimple-Drv-Iso-0.01
http://search.cpan.org/~nanardon/VFSsimple-Drv-Iso-0.01/
A VFSsimple implementation over ISO9660 fs
----
VFSsimple-Drv-Rsync-0.01
http://search.cpan.org/~nanardon/VFSsimple-Drv-Rsync-0.01/
A VFSsimple implementation over rsync protocol
----
Variable-Magic-0.01
http://search.cpan.org/~vpit/Variable-Magic-0.01/
Associate user-defined magic to variables from Perl.
----
WWW-Bugzilla3-0.5
http://search.cpan.org/~swined/WWW-Bugzilla3-0.5/
perl bindings for Bugzilla 3.0 api
----
Weed-0.009_010
http://search.cpan.org/~hooo/Weed-0.009_010/
Don't use it. It's in development. For test purposes only!
----
Weed-0.009_011
http://search.cpan.org/~hooo/Weed-0.009_011/
Don't use it. It's in development. For test purposes only!
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: Thu, 26 Jul 2007 14:04:35 +1000
From: Martien verbruggen <mgjv@tradingpost.com.au>
Subject: Re: XML Validation
Message-Id: <slrnfag7aj.iur.mgjv@martien.heliotrope.home>
On Wed, 25 Jul 2007 14:56:36 -0700,
Shiraz <shirazk@gmail.com> wrote:
> I am trying to use the XML simple to parse out some xml data. If I use
> the code below with invalid xml, i just get a warning 'not well-formed
> (invalid token) at line 1, column 16, byte 16 at /usr/local/lib/perl5/
> site_perl/5.8.7/i686-linux/XML/Parser.pm line 187'
> A test like 'unless (my $data = $xml->XMLin($msg) ) ' doesnt work
> either.
This is not a warning. It's the XML::Simple module calling die() or one
of its equivalents, as documented.
> Anyone know how to test for valid XML using just XML::Simple or would
> i have to get a XML checking library
I believe you're asking how to deal with document errors using
XML::Simple? I'd suggest using eval() unless XML::Simple has something
better built in.
Since I have got nothing better to do right now, I had a look at the
documentation for XML::Simple, and you know what? It's got a section
called 'ERROR HANDLING', which contains the following paragraph:
If dying is not appropriate for your application, you should
arrange to call "XMLin()" in an eval block and look for errors in
$@. eg:
my $config = eval { XMLin() };
PopUpMessage($@) if($@);
Regards,
Martien
--
|
Martien Verbruggen | It's not what we don't know that hurts us,
| it's what we know for certain that just ain't
| so. -- Mark Twain
------------------------------
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 683
**************************************
