onishi

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

use DateTime;
use Digest::SHA1 qw(sha1_hex);
use Encode;
use File::Path qw/make_path/;
use HTML::Parser;

onishi

use strict;
use warnings;

use Net::Domain::ExpireDate 'expire_date';

use Time::Seconds;

use Data::ICal;
use Data::ICal::Entry::Todo;
use Data::ICal::Entry::Event;

onishi

<?xml version="1.0"?>
<root>
    <appdef>
        <appname>SLACK</appname>
        <equal>com.tinyspeck.slackmacgap</equal>
    </appdef>
    <item>
        <name>For Slack CTRL+TAB=move unread channel</name>
        <identifier>private.app_slack_move_channel_with_ctrl_tab</identifier>
        <only>SLACK</only>

onishi

#!/usr/bin/env perl
use strict;
use warnings;

my $count = shift || 20;

my @random     = qw/R R F F U U L D M/;
my $rate_2     = 0.3;
my $rate_prime = 0.3;
my @result;

onishi

#!/usr/bin/env perl
use strict;
use warnings;

use utf8;
binmode STDOUT, ':utf8';
binmode STDERR, ":utf8";

use Encode;
use LWP::Simple 'get';