Skip to content

Instantly share code, notes, and snippets.

View memememomo's full-sized avatar
🏠
Working from home

Uchiko memememomo

🏠
Working from home
  • Aichi, Japan
View GitHub Profile
@memememomo
memememomo / jquery_css.html
Created May 19, 2010 23:55
<html>
<head>
<title>test</title>
<script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1.4.2/jquery.min.js"></script>
<script type="text/javascript">
$(function(){
var pfirst = $("p#first").html();
alert(pfirst);
$("p#first").html("<strong>変更後</strong>");
$("p#first").css("color","red");
@memememomo
memememomo / jquery_event.html
Created May 19, 2010 23:58
<html>
<head>
<title>test</title>
<script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1.4.2/jquery.min.js"></script>
<script type="text/javascript">
$(function(){
$("input#button").click(function(){
$("input#text").val("ボタンから挿入");
});
});
@memememomo
memememomo / hostname.pl
Created May 24, 2010 22:06
use strict;
use warnings;
use Sys::Hostname;
my $hostname = hostname();
print "$hostname¥n";
@memememomo
memememomo / gist:586539
Created September 19, 2010 07:37
use strict;
use warnings;
use FLV::Info;
my @targets = @ARGV;
my $reader = FLV::Info->new;
for my $target (@targets) {
eval { $reader->parse($target); };
@memememomo
memememomo / gist:586644
Created September 19, 2010 10:24
#!/usr/bin/perl
use Mojolicious::Lite;
use Data::Section::Simple;
my $vpath = Data::Section::Simple->new()->get_data_section();
plugin 'xslate_renderer' => {
template_options => { path => [$vpath] },
};
@memememomo
memememomo / starman起動時のスクリプトファイル絶対パスの取得
Created September 25, 2010 09:42
use Mojolicious::Lite;
use File::Basename;
use File::Spec;
my $base = File::Spec->rel2abs(dirname(__FILE__));
app->start($ARGV[0] ? $ARGV[0] : 'psgi');
@memememomo
memememomo / gist:600251
Created September 28, 2010 01:43
use strict;
use warnings;
use RPC::XML;
use feature qw/say/;
say res(1);
say res(1.0);
say res(1.1);
say res("test");
say res([1,2,3,4]);
@memememomo
memememomo / client.pl
Created September 28, 2010 02:40
use strict;
use warnings;
use RPC::XML::Client;
my $cli = RPC::XML::Client->new('http://localhost:3000/');
my $resp = $cli->send_request('echo', "hello");
warn $resp->value;
@memememomo
memememomo / lite_app.pl
Created September 28, 2010 22:57
#!/usr/bin/evn perl
use strict;
use warnings;
use utf8;
BEGIN { $ENV{MOJO_POLL} = $ENV{MOJO_NO_IPV6} = 1 }
use Mojo::IOLoop;
@memememomo
memememomo / client.pl
Created September 28, 2010 23:31
use strict;
use warnings;
use Mojo::Client;
my $client = Mojo::Client->new;
my $base_url = 'http://localhost:3000';