ぱわふる

#!/usr/bin/env perl

use strict;
use warnings;
use feature qw/say/;
use Time::Piece;

my $t = localtime;
my $now = $t->strftime("%p%I時%M分");
$now =~ s/00分//; # ちょうどx時の場合は分を省略する
$now =~ s/12時/零時/;

system("jsay ${now}です");

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use feature qw/say/;
use WebService::Livedoor::Weather;
use Data::Printer;

my $city_id = '170010';

my $lw = WebService::Livedoor::Weather->new;
my $weather = $lw->get($city_id);

#p $weather;

my $talk = "天気概況 $weather->{title}。$weather->{description}{text}。";
$talk =~ s/\n//g; # 改行があると音声がそこで途切れるため

system(qq|jsay "$talk"|);

$talk = "天気予報 "; # 一度に渡しすぎるとセグメンテーション違反になるため

for my $forecast (@{ $weather->{forecasts} })
{
    my $date = $forecast->{date};
    $date =~ s/[0-9]{4}-([0-9]{2})-([0-9]{2})/${1}月${2}日/;
    $date =~ s/0([0-9])/$1/; # 01月 -> 1月

    my $date_label = $forecast->{dateLabel};

    my $telop = $forecast->{telop};
    $telop = 'あさって' if $telop eq '明後日';

    my $kion_max = $forecast->{temperature}{max}{celsius};
    my $kion_min = $forecast->{temperature}{min}{celsius};

    $talk .= "$date_label${date}は${telop}。";
    $talk .= "最高気温は${kion_max}度。" if defined $kion_max;
    $talk .= "最低気温は${kion_min}度。" if defined $kion_min;
}

$talk =~ s/\n/ /g; # 改行があると音声がそこで途切れるため
$talk .= "以上、天気予報をお伝えしました。";

system(qq|jsay "$talk"|);

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use Graphviz::DSL;
use open IO => qw/:utf8 :std/;

my $graph = graph {
    name 'Miscellaneous Symbols';

    global rankdir => 'LR';

    my $cnt = 0;

    for my $dec ( hex('2600') .. hex('2609') )
    {
        $cnt++;
        my $char = chr $dec;
        node "node${cnt}", shape => 'record', label => "{<p>$char|<n>}";
    }

    while ($cnt > 1)
    {
        edge [ "node" . ($cnt - 1) . ":n" => "node" . $cnt . ":p" ];
        $cnt--;
    }
};

$graph->save(path => 'symbols', type => 'png', encoding => 'utf-8');

git clone https://github.com/mojomojo/mojomojo.git
cd mojomojo
perl Makefile.pl
（多分エラーが出るのでエラーメッセージ見て必要なモジュールを入れる）
cpanm http://cpan.metacpan.org/authors/id/B/BO/BOBTFISH/Catalyst-Devel-1.37.tar.gz
（↑は1.38だと動かないため）
sudo yum install libxslt-devel.x86_64
perl Makefile.pl
make
make test

cp mojomojo.conf mojomojo_local.conf
vim mojomojo_local.conf

# イカを編集
user **** （一応ユーザ名を変更）
dsn  dbi:SQLite:__HOME__/db/sqlite/mojomojo.db
# 編集終わり

mkdir db/sqlite -p
touch db/sqlite/mojomojo.db
./script/mojomojo_spawn_db.pl

# ↓が表示される
Creating a new wiki ...

  dsn:            dbi:SQLite:./db/sqlite/mojomojo.db
  wiki name:      MojoMojo
  admin username: admin
  admin password: admin
  admin name:     ****
  admin email:    ****@localhost
  anon email:     anonymous.coward@localhost

Deploying schema to dbi:SQLite:./db/sqlite/mojomojo.db
Creating initial data
Success!
# 表示終わり

 ./script/mojomojo_server.pl -p 3020

# 以下 nginx の設定
server {
    listen      80;
    server_name ドメイン名;
    access_log  アクセスログのパス;

    allow  自分のIP;
    deny   all;

    location / { 
        proxy_pass  http://127.0.0.1:3020; # 3000番使用済みのため
        proxy_redirect  off;
        proxy_set_header Host       $host;
        proxy_set_header X-Real-IP  $remote_addr;
        proxy_set_header X-Forwarded-For  $proxy_add_x_forwarded_for;
    }
}
# nginx の設定終わり

#!/usr/bin/env perl

use strict;
use warnings;
use Lingua::JA::WordNet;

my $wn = Lingua::JA::WordNet->new;
my @synonyms = $wn->Synonym( $wn->WordID('おしまい', 'n') );

print "@synonymsn";

お仕舞 お仕舞い どん詰まり エンディング エンド フィニッシュ ラスト 仕舞 仕舞い 完 完了 完結 尻 幕切れ 留め 終 終了 終幕 終焉

<script type="text/javascript">alert('XSS');</script>

cpanm File::LibMagic -v
Can't link/include 'magic.h', 'magic'

yum install file-devel
cpanm File::LibMagic -v

#!/usr/bin/env perl

use strict;
use warnings;
use feature qw/say/;
use File::LibMagic;

my @files = qw/image.png libmagic.pl
kubota4.png hentai.jpg yui.gif footer.js/;

my $libmagic = File::LibMagic->new;

for my $file (@files)
{
    say "$file:";
    say $libmagic->checktype_filename($file);
    say $libmagic->describe_filename($file);
    print "\n";
}

image.png:
text/plain; charset=us-ascii
ASCII text, with no line terminators

libmagic.pl:
text/plain; charset=us-ascii
a /usr/bin/env perl script text executable

kubota4.png:
image/png; charset=binary
PNG image data, 118 x 118, 8-bit/color RGBA, non-interlaced

hentai.jpg:
image/jpeg; charset=binary
JPEG image data, EXIF standard

yui.gif:
image/gif; charset=binary
GIF image data, version 89a, 29 x 32

footer.js:
text/plain; charset=us-ascii
ASCII text