This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use utf8; | |
use File::Spec; | |
use Win32::Unicode; | |
# フルパス = フォルダ名 + ファイル名 | |
my $path = File::Spec->catfile("c:/Documents and Settings", "萌え♥.txt"); | |
sayW $path; # C:\Documents and Settings\萌え♥.txt | |
# ファイルを作成してみる | |
my $file = Win32::Unicode::File->new(">", $path); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use strict; | |
use feature ":5.10"; | |
use CAM::PDF; | |
use Encode; | |
use Encode::UTF8Mac; | |
use IO::All; | |
$|=1; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use lib "/Users/bokutin/git/Foo/lib"; | |
use Modern::Perl; | |
use IO::All; | |
use Mason; | |
my $seq = 0; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
もうちょっとAlien::wxWidgetsのビルドを速くしたい・・・ | |
VMWareFusion 4, Windows XP SP3, Macbook Air 2012mid | |
Wxで計測 | |
look Wx | |
perl Makefile.PL | |
timeit dmake -P# Event.o Wx.o GDI.o Constant.o Window.o Frames.o Controls.o | |
dmake clean |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
--- | |
./config.pl: | | |
use Data::Dumper; | |
+{ | |
name => "MojoApp", | |
}; | |
mojo_app/lib/MojoApp.pm: | | |
package MojoApp; | |
use Mojo::Base 'Mojolicious'; | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package Simple::HFH { | |
use HTML::FormHandler::Moose; | |
extends 'HTML::FormHandler'; | |
has_field name => ( type => 'Text', required => 1 ); | |
__PACKAGE__->meta->make_immutable; | |
} | |
package main { | |
use Mojo::Base -strict; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use sanity 'sane'; | |
my $ok = { | |
var1 => 'foo', | |
var2 => 'bar', | |
var3 => 'baz', | |
items => [ | |
{ subvar1 => 'foo' , subvar2 => 'bar' , } , |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use Modern::Perl; | |
use App::Sqitch; | |
use Graph::Easy; | |
sub run { | |
my $sqitch = App::Sqitch->new; | |
my $plan = $sqitch->plan; | |
my @changes = $plan->changes; | |
my $graph = Graph::Easy->new; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use Modern::Perl; | |
use Benchmark qw(:all); | |
use Data::Dumper; | |
use HTML::String; | |
use Test::Deep::NoTest; | |
use Text::Xslate qw(mark_raw html_escape); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
/* | |
* jCarousel - jQuery Plugin | |
* http://d.hatena.ne.jp/kudakurage/ | |
* | |
* Copyright (c) 2010 Kazuyuki Motoyama | |
* Licensed under the MIT license | |
* | |
* $Date: 2010-11-28 | |
* $version: 1.3 | |
* |