ChangeLog を書く際によく使われる英語をまとめました。
ほとんど引用です。
#!/usr/bin/perl -w | |
use strict; | |
use lib $ENV{MT_HOME} ? "$ENV{MT_HOME}/lib" : 'lib'; | |
use MT::Bootstrap (); | |
use MT::App::CMS; | |
use CGI::PSGI; | |
use Plack::Builder; | |
use Plack::App::URLMap; | |
use Plack::App::File; |
### Movable Type content viewer | |
use Plack::Builder; | |
use lib qw( lib extlib ); | |
use Encode; | |
use MT; | |
use MT::FileMgr::Local; | |
use MT::WeblogPublisher; | |
my $mt = MT->new; | |
my $pub = MT::WeblogPublisher->new; | |
my $ContentTypes = { |
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use File::Basename; | |
use Plack::Builder; | |
use Plack::App::CGIBin; | |
my $basedir = dirname(__FILE__); |
use strict; | |
use warnings; | |
use open OUT => qw/:utf8 :std/; | |
use Test::More qw/no_plan/; | |
sub compose { | |
my @subs = @_; | |
return sub { | |
my @args = @_; | |
my @reversed_subs = reverse @subs; |
# -*- coding: utf-8 -*- | |
class Integer | |
def to_fizzbuzz | |
[[:fizz][self % 3], [:buzz][self % 5]] * '' | |
end | |
end | |
class String | |
def present? |
#!/usr/bin/perl | |
package MT::Tool::Foo; | |
use strict; | |
use warnings; | |
use File::Spec; | |
use FindBin; | |
use lib map File::Spec->catdir( $FindBin::Bin, File::Spec->updir, $_ ), qw/lib extlib/; | |
use base qw( MT::Tool ); | |
sub usage { '--debug 1' } |
/*! | |
* jQuery JavaScript Library v2.1.1pre | |
* http://jquery.com/ | |
* | |
* Includes Sizzle.js | |
* http://sizzlejs.com/ | |
* | |
* Copyright 2005, 2014 jQuery Foundation, Inc. and other contributors | |
* Released under the MIT license | |
* http://jquery.org/license |
Perl ワンライナーサンプル集 | |
■概要 | |
障害解析のためのログの調査、非互換対応でのソースコードの調査といった | |
テキスト処理で使った Perl ワンライナーのサンプル集です。 | |
Perl ワンライナーは以下の点が良いと思います。 | |
・Perl は Oracle Database (10g以降) に同梱されている。 | |
従って、Windows プラットフォームでも使える。 |
以下 Haskell Maxims and Arrows の翻訳
私は2001年から仕事でもプライベートでもHaskellを書いてきました。仕事で書いていたのはそのうち3年のことです。これらは私が学んだことです…