satojkovic

{
    "Lisa Rose" :  {
	"Lady in the Water" : 2.5, 
	"Snakes on a Plane" : 3.5, 
	"Just My Luck" : 3.0, 
	"Superman Returns" : 3.5, 
	"You, Me and Dupree" : 2.5,
	"The Night Listener" : 3.0
    },
    "Gene Seymour" :  {

satojkovic

#! /usr/bin/perl

use strict;
use warnings;

use XML::RSS;
use LWP::Simple;
use URI;
use Encode;

satojkovic

#! /usr/bin/perl

use warnings;
use strict;

use URI;
use Web::Scraper;
use LWP::UserAgent;
use File::Basename;

satojkovic

#! /usr/bin/env perl

use strict;
use warnings;
use AnyEvent::Twitter::Stream;
use Config::Pit;
use Growl::Any;
use Encode;

my $config = pit_get('example.com', require => {

satojkovic

#! /usr/bin/env perl

use strict;
use warnings;

satojkovic

use strict;
use warnings;
use File::Basename;

# フォルダにある.txtファイル名を取得
my @file = glob "*.txt";
#print join("\n", @file);

# ファイル名の番号部分だけ取得
my @extlist = ('.txt');

satojkovic

#!perl

use strict;
use warnings;

use URI;
use Web::Scraper;
use Net::Twitter;
use Config::Pit;
use DateTime;

satojkovic

#!perl

use strict;
use warnings;

use Config::Pit;
use Growl::Any;
use AnyEvent::Twitter::Stream;
use Encode;
use Web::Scraper;

satojkovic

#!perl

use strict;
use warnings;
use File::Find;
use File::Path;

my @svndirs;
find(\&search_svn, "./");

satojkovic

var cards = {}; // カードの色テーブル
var pairs = {}; // カードのペア

var el = document.getElementsByClassName('card');
var all_cards = el.length;
alert("all_cards: " + all_cards);

// カードの色テーブルを作ると同時にペアの位置も記憶
for(i = 0; i < all_cards; i++) {
    var str = "card" + i;