Skip to content

Instantly share code, notes, and snippets.

View aerith's full-sized avatar

aerith aerith

46 followers · 58 following
  • Fukuoka
View GitHub Profile
@aerith
aerith / fetch-movapic-follower.pl
Created June 9, 2009 04:53
#!/usr/local/bin/perl --
use strict;
use warnings;
use URI;
use Web::Scraper;
use YAML;
my $endpoint = 'http://movapic.com/hoge/follower?max=9999';
@aerith
aerith / gist:127132
Created June 10, 2009 10:17
var Pool = function (name, value) {
var self = arguments.callee;
if ( typeof self.stash == "undefined" ) self.stash = {};
if ( Boolean(name) === false ) return false;
var item = self.stash[name];
if ( typeof value == "undefined" ) delete self.stash[name];
if (value) self.stash[name] = value;
@aerith
aerith / gist:138660
Created July 1, 2009 07:54
# $username, $password, $status は適宜変更しよう。
# $status は投稿前に urlencode するとかしましょう。
# 超手抜き。
$c = curl_init("http://{$username}:{$password}@twitter.com/statuses/update.xml?status={$status}");
curl_setopt($c, CURLOPT_POST, 1);
curl_exec($c);
curl_close($c);
@aerith
aerith / gist:148237
Created July 16, 2009 05:16
#!/usr/local/bin/perl
use strict;
use warnings;
use URI;
use IO::Socket;
use MIME::Base64;
use JSON::Syck;
@aerith
aerith / gist:148922
Created July 17, 2009 06:31
#!/usr/local/bin/perl --
use strict;
use warnings;
use JSON::Syck;
use LWP::UserAgent;
my $agent = LWP::UserAgent->new;
my $a = shift or die;
@aerith
aerith / gist:151774
Created July 22, 2009 03:26
#!/usr/local/bin/perl --
use strict;
use warnings;
use Web::Scraper;
use HTML::TreeBuilder::LibXML;
sub get_data {
my $endpoint = URI->new(qq!http://ladio.net/list/!);
@aerith
aerith / gist:157934
Created July 29, 2009 08:23
<html>
<head>
<script type="text/javascript">
<!--
var $ = function (id) { return document.getElementById(id); };
window.onload = function () {
var images = $('image-list').getElementsByTagName('img');
for ( var i = 0; i < images.length; i++ ) {
@aerith
aerith / gist:183976
Created September 9, 2009 18:57
<?php //>
$item = "hoge";
$values = array(
array(
'id' => 1,
'title' => 'title1',
),
array(
'id' => 2,
'title' => 'title2',
@aerith
aerith / app.rb
Created November 27, 2009 09:23
#!/usr/bin/ruby
require 'rubygems'
require 'sinatra'
require 'haml'
require 'pathname'
get '*' do
base = Pathname.new(File.dirname(__FILE__)).parent
path = @params[:splat].first.gsub(/^\//, '')
@aerith
aerith / feed.mxml
Created December 11, 2009 11:43
<?xml version="1.0" encoding="UTF-8"?>
<mx:Application xmlns:mx="http://www.adobe.com/2006/mxml" width="600" height="400" paddingLeft="0" paddingTop="0" paddingBottom="0" paddingRight="0" creationComplete="creationCompleteHandler()">
<mx:Script>
<![CDATA[
import mx.binding.utils.BindingUtils;
import flash.net.URLLoader;
import flash.net.URLRequest;
import flash.net.URLVariables;
import mx.collections.XMLListCollection;