a dirty sinatra app to add taiwan books support in delicious library
gem install sinatra haml nokogiri isbn-tools
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
my $log = $ARGV[0] || 'log.txt'; | |
while (1) { | |
my $line_number = (split q{ }, `wc -l $log`)[0]; | |
my $tail = `tail $log`; |
http://lib.ncl.edu.tw/cgi-bin/isbnget?OPT=BOOK.B&TYPE=S&PGNO=1&SEL.CL=&FNM=S&TOPICS1=BN&SEARCHSTR1=9861122931&BOL1=AND&TOPICS2=TI&SEARCHSTR2=&BOL2=AND&TOPICS3=TI&SEARCHSTR3=&PAGELINE=10 | |
//table[@width="100%"][1]//tr//td[2] | |
# 1 author | |
# 2 publisher | |
# 3 edition | |
//table[@width="100%"][2]//tr[2]//td | |
# 2 isbn, volume, binding | |
# 3 pages |
C:\strawberry\perl\bin\perl.exe C:\strawberry\cpan\build\Doxygen-Lua-0.02-fdAZd2\bin\lua2dox %1 |
alec-chende-macbook-3:~ alec$ perl -e '$v = oct("0b" . $ARGV[0]); printf "%d, 0x%X\n", $v, $v;' 11111 | |
31, 0x1F |
package Inline; | |
use strict; | |
require 5.006; | |
$Inline::VERSION = '0.48'; | |
use AutoLoader 'AUTOLOAD'; | |
use Inline::denter; | |
use Config; | |
use Carp; |
洗腦用
看Linus本人現身說法