Archive for the perl category

Using svk branch management for YASA

First of all, setting properties on the YASA project

svk:project:path-tags => tags/
svk:project:path-trunk => trunk/yasa/
svk:project:path-branches => branches/

Then, svk mi /yasa/mirror/yasa http://localhost/repos/yasa

% svk sync /yasa/mirror/yasa
% perl -Isvk/trunk/lib /usr/local/bin/svk br -l /yasa/mirror/yasa
yasa-freq

Works :)

Jifty 跟春藥一樣

用起來很爽啊, 可是很難自己調出來 …..

Perl 5.10.0 is released

Perl 5.10.0 is available here. Also with the torrent file.

You might want to see What’s new for perl 5.10.0, for me, the most important thing is Named Capture Buffers(1) :) And here are some things about performance:

  • In-place sorting: Sorting arrays in place (@a = sort @a) is now optimized….
  • Lexical array access: faster
  • Weak references are cheaper: Weak reference creation is now O(1) rather than O(n), deletion remains O(n)….
  • sort() enhancements: faster and memory usage reduced
  • Regular expressions optimisations

And known problem(s), maybe solved in future (5.12):

  • UTF-8 problems: The handling of Unicode still is unclean in several places, where it’s dependent on whether a string is internally flagged as UTF-8

Also bundled with some new modules, such asCPANPLUS and encoding::warnings :D

Let’s wait and see when it will in ports. :D

Notes: the discussion thread is here. Thanks to Rafaël Garcia-Suarez :)

  1. Just like most recent programming languages do (e.g. C# .Net) [back]

[perl] Jifty-0.70824 released

In short words, Jifty is great for Web development!!!!

[plagger] patch to Plugin/CustomFeed/GoogleNews.pm

In order to process rss from news.google.com.tw, I’ve made the following tiny patch:

Index: lib/Plagger/Plugin/CustomFeed/GoogleNews.pm
===================================================================
— lib/Plagger/Plugin/CustomFeed/GoogleNews.pm (revision 1948)
+++ lib/Plagger/Plugin/CustomFeed/GoogleNews.pm (working copy)
@@ -18,7 +18,7 @@
sub handle {
my($self, $context, $args) = @_;

- if ($args->{feed}->url =~ m!^http://news.google.(?:co.jp|com)/! && $args->{feed}->url !~ /output=(?:rss|atom)/) {
+ if ($args->{feed}->url =~ m!^http://news.google.(?:co.jp|com(?:.tw)?)/! && $args->{feed}->url !~ /output=(?:rss|atom)/) {
$self->aggregate($context, $args);
return 1;
}

maybe someone can commit it back….

Technorati Tags:

[perl] XOR?

為了某個原因,要對兩個變數做 XOR 的檢查,除了這個之外不知道有沒有更好的寫法:

Creative Commons Attribution-NonCommercial-ShareAlike 2.5 Taiwan
Creative Commons Attribution-NonCommercial-ShareAlike 2.5 Taiwan