はてなブックマーク

$client has a script that needed minimal module support, but wants to parse JSON. Couldn't find anything like YAML::Tiny (which I borrowed to remove the YAML dependency), so I hacked up this regex to parse and extract JSON. Doesn't handle unicode yet, but that wasn't a client requirement. #!/usr/bin/env perl use Data::Dumper qw(Dumper); my $FROM_JSON = qr{ (?&VALUE) (?{ $_ = $^R->[1] }) (?(DEFINE)

[ UPDATE 27 Aug 2009: Readers interested in the topic of this node will want to look first (or instead) at the series of three articles I wrote for The Perl Review, now available online. They lay this proof out more carefully and with thorough explanations, in three different versions. ] [ At this point this post should be considered mainly of historical interest. One especial defect is that it fr

Okay.. fair warning: I'm venting. I just had an long and very frustrating conversation with a young programmer who recently discovered functional programming, and thinks it can solve every problem in the world. Before I go any farther, let me make one thing clear: I do not hate functional programming. On the contrary, I agree with every guru out there who says that you can't become a Real Programm

This came up on perl5-porters this week: The question is, when does the object get destroyed given this code? if (my $object = Foo->new) {} print "after if\n"; package Foo; sub new { my $self = bless {},shift; print "CREATED $self\n"; $self } sub DESTROY { print "DESTROYED $_[0]\n" }

good chemistry is complicated, and a little bit messy -LW Introduction I need to compile Perl modules for Windows. In particular I want to compile Gtk2, but it would seem that it's one of the hardest to compile. The easy answer of course is to install PPM (randyk tells us how to do it without a working compiler.), but that relies on someone else having a working compiling environment and the same

Recipe Attach gdb to the processgdb -p YOUR-PID Advance perl to a point between opcodes. This step may be optional but is a good idea. Omitting this step risks corrupting something. This is semi-equivalent to an "unsafe perl signal." set variable PL_sig_pending = 1 b Perl_despatch_signals c Run arbitrary perl. This returns a number which is a (SV*). You'll use this pointer in the next step. See Ho

MimisIVI has asked for the wisdom of the Perl Monks concerning the following question: Hi Monks, I build a Search engine which use an inverted index. For small number of documents is quiet fast but not for large ... The solution is to compress the data that i am saving in the index but i have problem to understand the two most helpfull Perl's functions (pack and unpack)... The are a lot of compres

Dear Monks, I'd just like to briefly mention YAPC::Asia which was held last week in Tokyo. Follow the link to the English page which has a list of speakers and sessions, and temporary links to slides and audio. (A video camera was set up so that data is to go online.) As of this posting the links are: slides and audio files (heavy page). Senna and the web crawler Xango, and search big chat sites)

Those of us who have learned the DBI from the book, or from the official perldoc some versions ago, may not have noticed that the DBI, in recent versions, has added several new features and improved existing ones. This is my case, anyway. I started working with the DBI from version 1.13, and only recently I opened my eyes to a whole new set of improvements. This article discusses some of such feat

By now you've all seen The St. Larry Wall Shrine. Well, it could use a fresh coat of gold leaf and shellac. Therefore, we are soliciting Larry-related items to be placed on the shrine. Links to offsite content are good; or if you have small bits of content, such as quotes, you'd like to contribute, that's fine too. Please reply to this Quest with your humble offerings. Thank you! And may St. Larry