Planet Perlchina

Untitled

2012-04-29T06:41:15+00:00

MongoDB and Perl

2012-04-26T03:24:51+00:00

it's really a pain to work with MongoDB in Perl. Perl has no 'type' so when you get INT value from DBI, it might be really "1" instead of int 1.

I got some data dumped from MySQL to MongoDB and found all the 'time' field is wrapped as "1335350669" instead of 1335350669.

and when you insert it from code like { time => time() }, you really have 1335350670 instead of "1335350670". it breaks the sort. it breaks the deletion. it breaks everything.

blabla, to fix that, we just need update it in mongodb like below.

PRIMARY> db.jobs.find().forEach(
function(job) {
job.time = parseInt(job.time);
db.jobs.save(job);
});

but it's still a pain. I didn't check MongoDBx::Class or Mongoose yet, but Moose's type should be able to fix it I think.

Thanks

api and android app

2012-04-14T13:04:01+00:00

I'm a fan of Android. even I like my iPad and MBP very much too.

I'd like to write an App for Android. and here is all the story.

first of all, I need write an API which supports JSONP. since it would be very simple, I don't want to mix it up with Dancer. at last, I wrote something based on webmachine-perl. I like the idea behind the webmachine. the chain design looks pretty nice. even I don't use that too much.

the code is at

https://github.com/fayland/findmjob.com/blob/master/api/app.psgi

https://github.com/fayland/findmjob.com/blob/master/api/lib/FindmJob/Resource.pm

and live demo as

http://api.findmjob.com/search?callback=jQuery171016797792096622288_1334322201618&q=perl&loc=&_=1334322214418

after API is done. now comes the android app part. Sorry that I don't know much about Java. and I failed to download appmobi/jqmobi (the download never ends here). so at last I picked up phonegap.

the progress went pretty smooth. mixed with jQuery Mobile, I have it out after few hours.

you can download it for fun from http://static.findmjob.com/FindmJob.apk

it's pretty simple, just with one JSONP request and not much different than the demo.

even there, I'd like to share the code with you:

https://github.com/fayland/findmjob.com/blob/master/mobile/android/assets/www/index.html

https://github.com/fayland/findmjob.com/blob/master/mobile/android/assets/www/mobile.coffee

it's very cool and I'm excited! (badly Google costs 25$ for submitting it and I don't want to do it for now)

Thanks.

sphinx search with varchar primary key

2012-04-08T02:07:22+00:00

usually when you index the mysql data into sphinx, you'll use id int/bigint for the primary key. but it's broken for me on http://findmjob.com/, we use uuid everywhere for the primary key.

here is the solution for it. use @id := @id + 1 for the indexer, and use sql_field_string to get the real id when matched. sample code below:

sql_query_pre = SET NAMES utf8
sql_query_pre = SET @id := 1;
sql_query = \
SELECT @id := @id + 1 AS tid, id, title, description, location, contact, inserted_at FROM job ORDER BY inserted_at DESC LIMIT 10000

sql_field_string = id

it requires latest sphinx to support sql_field_string. and the latest CPAN module too.

and Perl code for it will be normal like before. and instead you use ->{doc}, you need use the attribtues ->{id} like

my @jobids = map { $_->{id} } @{$ret->{matches}};

so now we have sphinx search supports in my new site, eg: http://findmjob.com/search/Perl.html?q=Perl

Thanks.

Wildlife park, Beijing

2012-04-05T14:11:06+00:00

pdfcreatorultimatefree_20120406_4.pdf Download this file

Planet Perlchina

Untitled

MongoDB and Perl

api and android app

sphinx search with varchar primary key

Wildlife park, Beijing

cidr2regexp.pl

DBIx::Class with Moose has

better pagination url design in Dancer

findmjob.com

Net-GitHub-0.43_01

Heartfelt man

在 神我们的父面前，那清洁没有玷污的虔诚，就是看顾在患难中的孤儿寡妇，并且保守自己不沾染世俗。 http://bible.us/jas1.27.cunpss

Split inside specific column and expend to key-value extractor

How to make group_by_in_perl?

BJ in snowing

xml-table-maker for Windows

Plack::Middleware::FileWrap

git submodule

2011 CN Perl Advent

我们为你们所存的盼望是确定的

PDC: 圣经说，爱是个习惯

KinderGarden

Dancer::Template::Xslate

new baby

Psalm 16:7

po4a for the translation of Perldoc

Non-stop debugging of perl programs

PDC:慷慨也是信心的表现

remove/add job to crontab by commandline

Psalm 118:24

sphinx 0.99 bug (attributes count vs fields count)

Draw the Cross in Unicode

Script to find the root directory usage, on system with lots of mounts

Net-GitHub 0.40_02

Net-GitHub 0.40_01

SQLite related 2 utilities, to fix the book & chapter names problems of Blackberry YouVersion bible reader

print raw TT2 syntax

1John 2:28

Sample of XML::Dumper, working with xslt

pipeline for top 100 repeated word list in article/book

Using this to find the depending module in a quick and dirty way

DELETE post with Facebook::Graph

The pstree map of "zgrep abc /tmp/*.gz | wc -l"

get unique content from duplicated *.tar.gz contents

Ezekiel 3:10

Mark 11:23

HTML::Table in one-liner

Mark 8:36

tips for snaked

MySQL two tips

主祷文

nohup-tee-tail-mail.pl

耶利米书 17:8

从您的黑莓手机上获取圣经

Habakkuk 2:2

Jeremiah 11:19

Jeremiah 11:7

Acts 2:28

John 14:13

Children's Day, in office dinner room

在　神我们的父面前，那清洁没有玷污的虔诚，就是看顾在患难中的孤儿寡妇，并且保守自己不沾染世俗。 http://bible.us/jas1.27.cunpss