coolniikou

// ==UserScript==
// @name           AmazonTOCPreview
// @namespace      http://weblibrary.s224.xrea.com/weblog/
// @description    Preview Amazon book table of contents + himeji_libsearchlink.
// @include        http://www.amazon.co.jp/*
// ==/UserScript==

(function () {
  if (!document.body.parentNode.innerHTML.match(/<li><b>ISBN\-10:<\/b>\s(\d{9}[\d|X])<\/li>/))
    return;

coolniikou

#!/usr/bin/perl

use strict;
use Web::Scraper;
use URI;
use YAML::Syck;
use utf8;
use Encode;

## scrap artist and title from amazon.com mp3 downloaded ranking 

coolniikou

$.fn.slidergallery = function(options) {
  	var defaults = {
  		baseurl: 'http://example.com/jsondata_address',
  		speed:   'slow',
  		timeout: 1500,
  		type:    'sequence'
  	};

	var options = $.extend(defaults, options);

coolniikou

var slidegallery = {
	show: function(data) {
				var list = '<ul id="list">';	
				$.each(data.items, function(i,item){
					var title = (item.title) ? item.title : "none";
					var url = item.url;
					var img = item.thumbnail;
					list += '<li><a href="'+url+'" class="highslide" onclick="return hs.expand(this)"><img src="';
					list += img+'" alt="Highslide JS" title="Click to enlarge" height="100px" /></a><div class="highslide-caption"><p>';
					list += title+'</p><ul class="exif">';

coolniikou

package Plagger::Plugin::Filter::HatenaBookmarkRelatedEntry;
use strict;
use base qw( Plagger::Plugin );
use Web::Scraper;
use URI;

sub register {
    my($self, $context) = @_;
    $context->register_hook(
        $self,

coolniikou

package Plagger::Plugin::Filter::HatenaBookmarkRelatedEntry;
use strict;
use base qw( Plagger::Plugin );
use Web::Scraper;
use URI;

sub register {
    my($self, $context) = @_;
    $context->register_hook(
        $self,

coolniikou

package Plagger::Plugin::Filter::HatenaBookmarkRelatedEntry;
use strict;
use base qw( Plagger::Plugin );
use Web::Scraper;
use URI;

sub register {
    my($self, $context) = @_;
    $context->register_hook(
        $self,

coolniikou

$(document).ready(function(){
		var ff_u_name = 'username';
		 var ff_uri = 'http://friendfeed-api.com/v2/search?q=from:'+ff_u_name+'+<$mt:EntryPermalink$>&callback=?';
 		var	list = '<h4>Comments for this entry on FriendFeed</h4>';
 		var no_title='<h4>No Comments for this entry on FriendFeed</h4>';
 		    list += '<ul class="item_list">';
 		
 		$.getJSON(ff_uri, function(data){
 			var en = data.entries;
 			if(!en.length){ $("div.friendfeed_comm").empty().html(no_title); return false; }

coolniikou

$(document).ready(function(){
                var ff_u_name = 'username';
                var ff_uri = 'http://friendfeed-api.com/v2/search?q=from:'+ff_u_name+'+<$mt:EntryPermalink$>&callback=?';
                var list = '<h4>Comments for this entry on FriendFeed</h4>';
                var no_title='<h4>No Comments for this entry on FriendFeed</h4>';
                    list += '<ul class="item_list">';
                
                $.getJSON(ff_uri, function(data){
                        var en = data.entries;
                        if(!en.length){ $("div.friendfeed_comm").empty().html(no_title); return false; }

coolniikou

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Time::HiRes;
use Net::Twitter;
use Encode;

my $id = 'username';
my $pass = 'pass';