Yappo's Journal http://use.perl.org/~Yappo/journal/ Yappo's use Perl Journal en-us use Perl; is Copyright 1998-2006, Chris Nandor. Stories, comments, journals, and other submissions posted on use Perl; are Copyright their respective owners. 2012-01-25T02:40:02+00:00 pudge pudge@perl.org Technology hourly 1 1970-01-01T00:00+00:00 Yappo's Journal http://use.perl.org/images/topics/useperl.gif http://use.perl.org/~Yappo/journal/ shipped Test::PPPort 0.03 http://use.perl.org/~Yappo/journal/39198?from=rss supported for Test::More subtests<br> Ovid++ <a href="http://use.perl.org/~Ovid/journal/39193">http://use.perl.org/~Ovid/journal/39193</a> <br> dagolden++ <a href="http://echo.dagolden.com/~xdg/2009-06-30-test-builder-new.txt">http://echo.dagolden.com/~xdg/2009-06-30-test-builder-new.txt</a> <br> charsbar++ <a href="http://d.hatena.ne.jp/charsbar/20090701/1246415840">http://d.hatena.ne.jp/charsbar/20090701/1246415840</a> Yappo 2009-07-01T03:27:44+00:00 journal HTTP::Engine is moved to GitHub http://use.perl.org/~Yappo/journal/39000?from=rss <p>I made the account with GitHub for httpengine.<br><a href="http://github.com/http-engine">http://github.com/http-engine</a></p><p>I worked httpengine's moved repository to GitHub.<br>A part of Collaborators could commit here directly.<br><a href="http://github.com/http-engine/HTTP-Engine">http://github.com/http-engine/HTTP-Engine</a></p><p>I go the following as work for the next version.</p><p>- base path ( $req-&gt;uri-&gt;base ) of application is made into a value common to all the Interfaces.<br> &nbsp; &nbsp; Although it is of Catalyst origin, another value may come by CGI, ModPerl, and ServerSimple on the contrary now.</p> Yappo 2009-05-19T08:00:33+00:00 journal Dist::Zilla meets Module::Setup http://use.perl.org/~Yappo/journal/37725?from=rss What can I do? Yappo 2008-10-24T04:00:41+00:00 journal Name space ranking used well by CPAN module http://use.perl.org/~Yappo/journal/37638?from=rss <p><code>find ~/minicpan | grep tar.gz | rev | awk -F/ '{print $1}' | rev | awk -F- '{print $1}' | sort | uniq -c | sort -r<br></code><br>~/minicpan is carrying out mirroring by CPAN::Mini.<br> &nbsp; </p><blockquote><div><p> 638 Net<br> &nbsp; 405 WWW<br> &nbsp; 370 Class<br> &nbsp; 362 Catalyst<br> &nbsp; 333 HTML<br> &nbsp; 332 Apache<br> &nbsp; 326 Text<br> &nbsp; 317 XML<br> &nbsp; 314 Data<br> &nbsp; 312 CGI<br> &nbsp; 305 POE<br> &nbsp; 260 Acme<br> &nbsp; 259 Test<br> &nbsp; 242 File<br> &nbsp; 238 Lingua<br> &nbsp; 235 DBIx<br> &nbsp; 200 Math<br> &nbsp; 199 Tie<br> &nbsp; 185 Template<br> &nbsp; 159 Devel<br> &nbsp; 158 Tk<br> &nbsp; 155 Kwiki<br> &nbsp; 151 Win32<br> &nbsp; 150 Bundle<br> &nbsp; 138 Crypt<br> &nbsp; 135 Games<br> &nbsp; 124 Business<br> &nbsp; 123 Module<br> &nbsp; 122 Mail<br> &nbsp; 116 WebService<br> &nbsp; 110 Geo<br> &nbsp; 108 HTTP<br> &nbsp; 101 Config<br> &nbsp; 100 IO</p></div></blockquote><p>more more list <a href="http://d.hatena.ne.jp/yappo/20081010/1223630386">http://d.hatena.ne.jp/yappo/20081010/1223630386</a></p> Yappo 2008-10-10T09:41:08+00:00 journal Module::Setup is so cute! http://use.perl.org/~Yappo/journal/37585?from=rss i released Module::Setup<a href="http://search.cpan.org/dist/Module-Setup/">http://search.cpan.org/dist/Module-Setup/</a>. <br> module creation can be started very easily. <br> You can start module creation very easily like Module::Starter. <br> There is affinity of SVN and Git and it can extend simply. Yappo 2008-10-02T01:57:04+00:00 journal I got the yapc.asia domain http://use.perl.org/~Yappo/journal/36017?from=rss <p>yapc.asia is so cool domain!</p><p><a href="http://yapc.asia/">http://yapc.asia/</a><br>redirect to <a href="http://conferences.yapcasia.org/ya2008/">http://conferences.yapcasia.org/ya2008/</a> now.</p><p>yeah!</p> Yappo 2008-04-01T05:59:16+00:00 yapc Kwiki::Diff::Mutual http://use.perl.org/~Yappo/journal/31649?from=rss <p>I created Kwiki::Diff::Mutual.</p><p>Kwiki::Diff::Mutual is Strong diff is displayed.<br>Kwiki::Diff::Mutual is Diff is displayed between specific revisions.<br>Kwiki::Diff::Mutual is Diff in the line is displayed by using String::Diff.</p><p>example<br><a href="http://hatenawiki.blogdb.jp/?action=diff&amp;page_name=HomePage&amp;revision_id=2&amp;current_revision_id=3">http://hatenawiki.blogdb.jp/?action=diff&amp;page_name=HomePage&amp;revision_id=2&amp;curre<nobr>n<wbr></nobr> t_revision_id=3</a></p> Yappo 2006-11-18T04:44:00+00:00 journal String::Diff http://use.perl.org/~Yappo/journal/31648?from=rss <p>I created String::Diff.<br>String::Diff is line diff tool, very simple.</p><blockquote><div><p> <tt>&nbsp; # simple diff<br>&nbsp; my $diff = String::Diff::diff('this is Perl', 'this is Ruby');<br>&nbsp; print "$diff-&gt;[0]\n";# this is [Perl]<br>&nbsp; print "$diff-&gt;[1]\n";# this is {Ruby}</tt></p></div> </blockquote><blockquote><div><p> <tt>&nbsp; my $diff = String::Diff::diff('this is Perl', 'this is Ruby',{<br>&nbsp; &nbsp; &nbsp; remove_open =&gt; '&lt;del&gt;',<br>&nbsp; &nbsp; &nbsp; remove_close =&gt; '&lt;/del&gt;',<br>&nbsp; &nbsp; &nbsp; append_open =&gt; '&lt;ins&gt;',<br>&nbsp; &nbsp; &nbsp; append_close =&gt; '&lt;/ins&gt;',<br>&nbsp; });<br>&nbsp; print "$diff-&gt;[0]\n";# this is &lt;del&gt;Perl&lt;/del&gt;<br>&nbsp; print "$diff-&gt;[1]\n";# this is &lt;ins&gt;Ruby&lt;/ins&gt;</tt></p></div> </blockquote><p>Algorithm::Diff is used.<br>thank you.</p> Yappo 2006-11-18T04:39:31+00:00 journal Geo::Coordinates::Converter http://use.perl.org/~Yappo/journal/31533?from=rss <p>I released <a href="http://search.cpan.org/~yappo/Geo-Coordinates-Converter-0.02/">Geo::Coordinates::Converter 0.02</a>.<br>this distribution is framework of the geometric transformation.</p><p>It newly made it though the relapse discernment of the wheel because there was no thing mounted<br>in the form of the framework.</p><p>SYNOPSIS</p><blockquote><div><p> <tt>&nbsp; &nbsp; use strict;<br>&nbsp; &nbsp; use warnings;<br> &nbsp; <br>&nbsp; &nbsp; use Geo::Coordinates::Converter;<br> &nbsp; <br>&nbsp; &nbsp; my $geo = Geo::Coordinates::Converter-&gt;new( lat =&gt; '35.65580', lng =&gt; '139.65580', datum =&gt; 'wgs84' );<br>&nbsp; &nbsp; my $point = $geo-&gt;convert( dms =&gt; 'tokyo' );<br>&nbsp; &nbsp; print $point-&gt;lat;<br>&nbsp; &nbsp; print $point-&gt;lng;<br>&nbsp; &nbsp; print $point-&gt;datum;<br>&nbsp; &nbsp; print $point-&gt;format;<br> &nbsp; <br>&nbsp; &nbsp; my $clone = $point-&gt;clone;<br>&nbsp; &nbsp; my $geo2 = Geo::Coordinates::Converter-&gt;new( point =&gt; $clone );<br>&nbsp; &nbsp; my $point2 = $geo-&gt;convert( degree =&gt; 'wgs84' );<br>&nbsp; &nbsp; print $point2-&gt;lat;<br>&nbsp; &nbsp; print $point2-&gt;lng;<br>&nbsp; &nbsp; print $point2-&gt;datum;<br>&nbsp; &nbsp; print $point2-&gt;format;</tt></p></div> </blockquote><p>Datum that is now commands a majority for the Japanese.<br>I am wishing that it also wants the people in other countries to use<br>this.<br>It is ready to add it to this as soon as the survey a land system in<br>other countries understands.</p><p>I want feedback if there is an opinion.</p><p>#Blog pet "Excite Honyaku" wrote this entry.</p> Yappo 2006-11-07T12:20:32+00:00 journal Soozy test code http://use.perl.org/~Yappo/journal/31471?from=rss <blockquote><div><p> <tt>use strict;<br>use warnings;<br>use lib 'lib';<br> <br>BEGIN {<br>&nbsp; &nbsp; $ENV{JITENSYA_ROOT}&nbsp; = '/home/soozy/jitensya';<br>&nbsp; &nbsp; $ENV{JITENSYA_DEBUG} = 1;<br>&nbsp; &nbsp; $ENV{JITENSYA_MODE}&nbsp; = 'dev';<br> <br>&nbsp; &nbsp; require Jitensya;<br>}<br> <br>local_request('/app/');<br> <br>sub local_request {<br> <br>&nbsp; &nbsp; require HTTP::Request::AsCGI;<br> <br>&nbsp; &nbsp; my $request = request( shift(@_) );<br>&nbsp; &nbsp; my $cgi&nbsp; &nbsp; &nbsp;= HTTP::Request::AsCGI-&gt;new( $request, %ENV )-&gt;setup;<br> <br>&nbsp; &nbsp; Jitensya-&gt;handle_request;<br> <br>&nbsp; &nbsp; return $cgi-&gt;restore-&gt;response;<br>}<br> <br>sub request {<br>&nbsp; &nbsp; my $request = shift;<br> <br>&nbsp; &nbsp; require HTTP::Request;<br> <br>&nbsp; &nbsp; unless ( ref $request ) {<br>&nbsp; &nbsp; &nbsp; &nbsp; if ( $request =~ m/^http/i ) {<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; $request = URI-&gt;new($request)-&gt;canonical;<br>&nbsp; &nbsp; &nbsp; &nbsp; }<br>&nbsp; &nbsp; &nbsp; &nbsp; else {<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; $request = URI-&gt;new( 'http://localhost' . $request )-&gt;canonical;<br>&nbsp; &nbsp; &nbsp; &nbsp; }<br>&nbsp; &nbsp; }<br>&nbsp; &nbsp; unless ( ref $request eq 'HTTP::Request' ) {<br>&nbsp; &nbsp; &nbsp; &nbsp; $request = HTTP::Request-&gt;new( 'GET', $request );<br>&nbsp; &nbsp; }<br>&nbsp; &nbsp; return $request;<br>}</tt></p></div> </blockquote><p>Catalyst inspired</p> Yappo 2006-11-01T13:09:34+00:00 journal Hello! Hello! http://use.perl.org/~Yappo/journal/31463?from=rss <p>I started the english diary(blogging) in use Perl;</p><p>I am making the following module now in the development.</p><ul> <li>Geo::Coordinates::Converter - geo coordinates are easily converted</li><li>Lingua::JA::Summarize::Extract - summary generator for Japanese</li><li>Geography::AddressExtract::Japan - address extraction from natural document for Japanese</li><li>Soozy - Sledge and Catalyst based web frame work module</li></ul><p>It works to up-load these to CPAN. However, I do not think that it up-loads Soozy.</p><p>These get in the svn repository. </p><p> <a href="http://svn.yappo.jp/repos/public/">http://svn.yappo.jp/repos/public/</a></p> Yappo 2006-11-01T03:38:38+00:00 journal