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
BSアニマックス | |
COMIC_モエマックス | |
Dr.ハマックス | |
G1クライマックス | |
SBカプマックス | |
いきなり!クライマックス | |
いきなりクライマックス | |
いすゞユーマックス | |
かえるくんとマックス | |
はしだのりひことクライマックス |
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 strict; | |
use warnings; | |
use Plack::Builder; | |
my $app = sub { | |
return [ 200, [ 'Content-Type' => 'text/html; charset=utf-8' ], [ <<HTML ] ]; | |
<h1>こんにちは!!</h1> | |
<p>ようこそ!!ここは僕のホームページです!!</p> | |
<p>今日は<code>Perl</code>を書きました!!</p> | |
<p>以下は僕の趣味と特技です</p> |
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
ワイや |
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 ruby | |
unless ARGV.length > 0 | |
warn "usage: ruby perl_lint.rb YOUR_SOURCE_CODE.pl" | |
exit 1 | |
end | |
puts %w(やるじゃん すごい がんばって やればできる 努力だ ワッショイ お上手).sample + '!' * (rand*10).to_i |
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 experimental 'smartmatch'; | |
use Test::More tests => 5; | |
sub in_tripartite_pact { | |
my ($country) = @_; | |
return $country ~~ ['Japan', 'Germany', 'Italy']; | |
} | |
ok in_tripartite_pact('Japan'), 'Japan signed the pact.'; |
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 strict; | |
use warnings; | |
use Encode qw(encode_utf8); | |
use Time::HiRes qw/usleep/; | |
my ($value) = @ARGV; | |
while(1) { | |
print "$value\n"; | |
usleep 100000; |
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
FRB議長 | |
JUNK2 陣内智則のひとり番長 | |
KuRaRe編集長 | |
NATO事務総長 | |
NHK会長 | |
QT延長 | |
SS上級曹長 | |
SS伍長 | |
SS曹長 | |
SS特務曹長 |
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 ruby | |
puts "🐹 < #{ ARGV.empty? ? ARGF.read : ARGV.join(' ') }" |
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 Mosikasite { | |
sub new { | |
my ($class) = @_; | |
bless {}, $class; | |
} | |
sub AUTOLOAD { | |
my ($self) = @_; | |
my $method = (split '::', $AUTOLOAD)[-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
require 'shellwords' | |
class AnnotateLine | |
attr_reader :content, :meta | |
def initialize | |
@meta = {} | |
@content = nil | |
end | |
def add_line line |