hitode909 hitode909

## mosikasite.pl
package Mosikasite {
    sub new {
        my ($class) = @_;

        bless {}, $class;
    }

    sub AUTOLOAD {
        my ($self) = @_;
        my $method = (split '::', $AUTOLOAD)[-1];

## hamuo
#!/usr/bin/env ruby

puts "🐹  < #{ ARGV.empty? ? ARGF.read : ARGV.join(' ') }"

## chou.txt
FRB議長
JUNK2 陣内智則のひとり番長
KuRaRe編集長
NATO事務総長
NHK会長
QT延長
SS上級曹長
SS伍長
SS曹長
SS特務曹長

## encode.pl
use strict;
use warnings;
use Encode qw(encode_utf8);
use Time::HiRes qw/usleep/;

my ($value) = @ARGV;

while(1) {
    print "$value\n";
    usleep 100000;

## a.pl
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.';

## ワイワイ.txt
ワイや

## homepage.pl
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>

## max.txt
BSアニマックス
COMIC_モエマックス
Dr.ハマックス
G1クライマックス
SBカプマックス
いきなり!クライマックス
いきなりクライマックス
いすゞユーマックス
かえるくんとマックス
はしだのりひことクライマックス

## gist:3910
#! /usr/bin/ruby -Ku
$:.unshift File.join(File.dirname(__FILE__), "..", "lib")


## gist:3871
RESERVEDS = %w{ PROGRAM CONST TYPE VAR PROCEDURE FUNCTION
                BEGIN END ARRAY OF INTEGER CHAR CALL
                IF THEN ELSE WHILE DO FOR TO }
	package Mosikasite {
	sub new {
	my ($class) = @_;

	bless {}, $class;
	}

	sub AUTOLOAD {
	my ($self) = @_;
	my $method = (split '::', $AUTOLOAD)[-1];
	#!/usr/bin/env ruby

	puts "🐹 < #{ ARGV.empty? ? ARGF.read : ARGV.join(' ') }"
	FRB議長
	JUNK2 陣内智則のひとり番長
	KuRaRe編集長
	NATO事務総長
	NHK会長
	QT延長
	SS上級曹長
	SS伍長
	SS曹長
	SS特務曹長
	use strict;
	use warnings;
	use Encode qw(encode_utf8);
	use Time::HiRes qw/usleep/;

	my ($value) = @ARGV;

	while(1) {
	print "$value\n";
	usleep 100000;
	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.';
	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>
	BSアニマックス
	COMIC_モエマックス
	Dr.ハマックス
	G1クライマックス
	SBカプマックス
	いきなり!クライマックス
	いきなりクライマックス
	いすゞユーマックス
	かえるくんとマックス
	はしだのりひことクライマックス
	#! /usr/bin/ruby -Ku
	$:.unshift File.join(File.dirname(__FILE__), "..", "lib")
	RESERVEDS = %w{ PROGRAM CONST TYPE VAR PROCEDURE FUNCTION
	BEGIN END ARRAY OF INTEGER CHAR CALL
	IF THEN ELSE WHILE DO FOR TO }