koba04

// escape
javascript:var d = document;d.open();d.write(escape("変換したい文字列").replace(/%/g, "\\"));d.close();

// => \u5909\u63DB\u3057\u305F\u3044\u6587\u5B57\u5217

// unescape
javascript:var d = document;d.open();d.write(unescape("\u5909\u63DB\u3057\u305F\u3044\u6587\u5B57\u5217"));d.close();

// => 変換したい文字列

koba04

#!/usr/bin/env perl

use strict;
use warnings;

sub make_closure {
    my $cnt = 0;
    return sub {
        ++$cnt;
    }   

koba04

#!/usr/bin/env perl

package Foo;

use base qw/Class::Data::Inheritable/;
Foo->mk_classdata('ClassName', 'Foo');
1;

package Foo::Bar;

koba04

#!/usr/bin/env perl

use utf8;
use strict;
use warnings;

use Encode;
use List::Util qw/shuffle/;

# AKB 48 って48人ではない？

koba04

#!/usr/bin/env perl

use utf8;
use strict;
use warnings;

use Test::More;


my @list = (1..3);

koba04

#!perl

use 5.010;
use utf8;
use strict;
use warnings;

use Cwd qw/realpath/;
use Encode;
use File::Temp qw/tempdir/;

koba04

#!perl
use strict;
use warnings;
use utf8;

use Gearman::Client;
use Gearman::Task;

my $client = Gearman::Client->new;
$client->job_servers('127.0.0.1');

koba04

#!perl
use strict;
use warnings;
use utf8;

use Gearman::Worker;

my $worker = Gearman::Worker->new;
my $cnt = 0;
$worker->job_servers('127.0.0.1');

koba04

if (typeof Object.create === 'undefined') {
    Object.create = function (o) { 
        function F() {} 
        F.prototype = o; 
        return new F(); 
    };
}

koba04

#import <UIKit/UIKit.h>

@interface TableViewSampleViewController : UIViewController <UITableViewDelegate, UITableViewDataSource>{
    
    UITableView *sampleTable;
    NSArray *tableData;
}

@property (nonatomic, retain) IBOutlet UITableView *sampleTable;
@end