NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.
All the Perl that's Practical to Extract and Report
use Perl Log In
jkondo (7642)
jkondo
(email not shown publicly)
(email not shown publicly)
Tuesday February 27, 2007
04:58 PM
Text::Hatena 0.20 released.
I uploaded Text::Hatena 0.20. It's quite new version of Text::Hatena.
I rewrote the whole code using Parse::RecDescent and Regexp::Assemble. Number of modules were reduced to 2 from 47 files. Line of codes where changed from 2600 lines to 600 lines. My benchmark marked 300-400% higher performance than ver.0.16.
I also removed some syntaxes which were specific to Hatena Diary.
Now, API for parsing text were changed too. Please be careful to upgrade your
Text::Hatena to version 0.20+.
You can use Text::Hatena simply as below.
my $html = Text::Hatena->parse($text);
And, you can extend your parser like this. You can easily make your original parser which can handle some other format.
package MyParser;
use strict;
use warnings;
use base qw(Text::Hatena);
__PACKAGE__->syntax(q|
h3 : "\n*" timestamp(?) inline(s)
timestamp : /\d{9,10}/ '*'
|);
sub h3 {
my $class = shift;
my $items = shift->{items};
my $title = $class->expand($items->[2]);
return if $title =~ /^\*/;
my $ret = "<h3>$title";
if (my $time = $items->[1]->[0]) {
$ret .= qq|<span class="timestamp">$time</span>|;
}
$ret .= "</h3>\n";
}
sub timestamp {
my $class = shift;
my $items = shift->{items};
return $items->[0];
}
1;
You can also extend inline elements like this.
Text::Hatena::AutoLink->syntax({
'id:([\w-]+)' => sub {
my $mvar = shift;
my $name = $mvar->[1];
return qq|<a href="/$name/">id:$name</a>|;
},
'd:id:([\w-]+)' => sub {
my $mvar = shift;
my $name = $mvar->[1];
return qq|<a href="http://d.hatena.ne.jp/$name/">d:id:$name</a>|;
},
});
I'd like to get your feedback.
I rewrote the whole code using Parse::RecDescent and Regexp::Assemble. Number of modules were reduced to 2 from 47 files. Line of codes where changed from 2600 lines to 600 lines. My benchmark marked 300-400% higher performance than ver.0.16.
I also removed some syntaxes which were specific to Hatena Diary.
Now, API for parsing text were changed too. Please be careful to upgrade your
Text::Hatena to version 0.20+.
You can use Text::Hatena simply as below.
my $html = Text::Hatena->parse($text);
And, you can extend your parser like this. You can easily make your original parser which can handle some other format.
package MyParser;
use strict;
use warnings;
use base qw(Text::Hatena);
__PACKAGE__->syntax(q|
h3 : "\n*" timestamp(?) inline(s)
timestamp :
|);
sub h3 {
my $class = shift;
my $items = shift->{items};
my $title = $class->expand($items->[2]);
return if $title =~
my $ret = "<h3>$title";
if (my $time = $items->[1]->[0]) {
$ret
}
$ret
}
sub timestamp {
my $class = shift;
my $items = shift->{items};
return $items->[0];
}
1;
You can also extend inline elements like this.
Text::Hatena::AutoLink->syntax({
'id:([\w-]+)' => sub {
my $mvar = shift;
my $name = $mvar->[1];
return qq|<a href="/$name/">id:$name</a>|;
},
'd:id:([\w-]+)' => sub {
my $mvar = shift;
my $name = $mvar->[1];
return qq|<a href="http://d.hatena.ne.jp/$name/">d:id:$name</a>|;
},
});
I'd like to get your feedback.
The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
because that's exactly how much difference there is. :-)
--Larry Wall in <10209@jpl-devvax.JPL.NASA.GOV>
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
Class::Data::Inheritable is required (Score:1)
Class::Data::Inheritable is required to install Text::Hatena 0.20.
You should add Class::Data::Inheritable entry to 'PREREQ_PM' in Makefile.PL, I think.
I hope this could help you.