hitode909 hitode909

## 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>

## ワイワイ.txt
ワイや

## perl_lint.rb
#! /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

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

## 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;

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

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

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

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

        bless {}, $class;
    }

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

## commit-dates-for-word-of-repository.rb
require 'shellwords'

class AnnotateLine
  attr_reader :content, :meta
  def initialize
    @meta = {}
    @content = nil
  end

  def add_line line

## wifi_to_internet.rb
#! /usr/bin/env ruby
# -*- coding: utf-8 -*-
# 接続中のWiFiのSSIDからインターネットにチェックインするやつ

ssid = `/System/Library/PrivateFrameworks/Apple80211.framework/Versions/Current/Resources/airport -I`.split(/\n/).find{|line| line =~ /\bSSID/ }.scan(/SSID: (.+)$/).flatten.first

system "open 'http://t.heinter.net/#{ ssid }'"
	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>
	#! /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
	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 Encode qw(encode_utf8);
	use Time::HiRes qw/usleep/;

	my ($value) = @ARGV;

	while(1) {
	print "$value\n";
	usleep 100000;
	FRB議長
	JUNK2 陣内智則のひとり番長
	KuRaRe編集長
	NATO事務総長
	NHK会長
	QT延長
	SS上級曹長
	SS伍長
	SS曹長
	SS特務曹長
	#!/usr/bin/env ruby

	puts "🐹 < #{ ARGV.empty? ? ARGF.read : ARGV.join(' ') }"
	package Mosikasite {
	sub new {
	my ($class) = @_;

	bless {}, $class;
	}

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

	class AnnotateLine
	attr_reader :content, :meta
	def initialize
	@meta = {}
	@content = nil
	end

	def add_line line
	#! /usr/bin/env ruby
	# -- coding: utf-8 --
	# 接続中のWiFiのSSIDからインターネットにチェックインするやつ

	ssid = `/System/Library/PrivateFrameworks/Apple80211.framework/Versions/Current/Resources/airport -I`.split(/\n/).find{\|line\| line =~ /\bSSID/ }.scan(/SSID: (.+)$/).flatten.first

	system "open 'http://t.heinter.net/#{ ssid }'"