Skip to content

Instantly share code, notes, and snippets.

Likkradyus Likk

Block or report user

Report or block Likk

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@Likk
Likk / slack_rtm_bot_test1.pl
Last active Mar 30, 2017
子プロセス無いで死ぬとその後継続しない
View slack_rtm_bot_test1.pl
use strict;
use warnings;
use utf8;
use Encode;
use Slack::RTM::Bot;
while(1){
my $bot = Slack::RTM::Bot->new(
token => 'XXXX',
options => +{ max_message_size => 20480 }
@Likk
Likk / slack.pl
Created Mar 24, 2017
Slack::RTM::Bot CLI viewer Raw
View slack.pl
use strict;
use warnings;
use utf8;
use Encode;
use Slack::RTM::Bot;
use Term::ANSIColor;
my $bot = Slack::RTM::Bot->new(
token => 'YOUR TOKEN',
);
@Likk
Likk / drop_merged_branch
Last active Jul 7, 2016
現在作業中のブランチにマージ済みのローカルブランチをローカルからもリモートからも消すワンライナー
View drop_merged_branch
git branch --merged | sed 's/\(^ \+\| \+$\)//g' | perl -nlE ' `git push --delete origin $_; git branch -d $_`'
@Likk
Likk / image_extract.pl
Last active Aug 29, 2015
use GD and extract image for perl
View image_extract.pl
sub image_extract {
my $gd_res = '';
my $file = shift;
my @def_rgb = (14, 16, 13);
my $gd = FromJpeg GD::Image->new($file);
my $dst = GD::Image->new(85, 30);
$dst->copy($gd, 0,0, 355, 265, 85, 30);
my ($ws, $we, $hs, $he) = (1,85, 2,30);
@Likk
Likk / slack_term.pl
Last active Mar 24, 2017
コマンドラインからslackチャット
View slack_term.pl
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Carp;
use Config::Pit;
use DateTime;
use Encode;
@Likk
Likk / git_clean.pl
Last active Dec 17, 2015
対話式 git-clean
View git_clean.pl
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use feature ':5.10';
use Getopt::Long qw(GetOptions :config posix_default no_ignore_case bundling );
use Params::Validate qw/:all/;
use Pod::Usage 'pod2usage';
@Likk
Likk / WWW::Lingr
Last active Dec 14, 2015
Lingr スクレイピングやっつけ
View WWW::Lingr
package WWW::Lingr;
use strict;
use warnings;
use utf8;
use Carp;
use Encode;
use Try::Tiny;
use Web::Scraper;
use WWW::Mechanize;
@Likk
Likk / negatibot.rb
Created Sep 30, 2012
negatibot on wassr
View negatibot.rb
#!/usr/bin/ruby -Ku
require 'uri';
require 'net/http';
require 'rexml/document';
class Negatibot
def initialize
@message = nil
@dt = Time.now;
@Likk
Likk / gist:2318514
Created Apr 6, 2012
croudiaのIDが連番になっているので、最初の登校から順繰りぬきだすワンライナー
View gist:2318514
perl -MLWP -e 'my $ua = LWP::UserAgent->new; for my $n (1..400){ my $r = $ua->get(q{http://croudia.com/voices/show/}.$n); my $h = Encode::encode_utf8($r->decoded_content); $h =~ s{\n}{}g; my $line = ""; if($h =~ m{<span class="gray">([0-9].*?)</span>}){ $line .= $1. "\t"} if($h =~ m{<span class="gray">(.*?)</span>}){ $line.= $1. "\t" } if($h =~ m{<div style="background-color:#FFF;">(.*?)<br}){ $line.= $1} if($line ne q{}){print "${n}\t${line}\n"}; sleep 1 ; }'
You can’t perform that action at this time.