Skip to content

Instantly share code, notes, and snippets.

@tyamaguc07
tyamaguc07 / sample.pl
Created September 14, 2015 11:26
check request header accept by perl
use feature qw/say/;
use MIME::Types;
use List::Util qw/any/;
my $req_header_accept = 'application/json, text/javascript; charset=utf-8';
my $mime = MIME::Types->new;
my @types = $mime->httpAccept($req_header_accept);
@tyamaguc07
tyamaguc07 / minitest-to-pretty.diff
Last active August 29, 2015 14:28
minitest-to-pretty
diff --git a/Gemfile b/Gemfile
index 1dad3f7..dddd980 100644
--- a/Gemfile
+++ b/Gemfile
@@ -143,4 +143,8 @@ group :test, :development do
gem 'html2slim'
gem 'traceroute'
+
+ gem 'minitest'
@tyamaguc07
tyamaguc07 / get_tweet_url.pl
Created April 2, 2011 14:03
つぶやきと、それに含まれるURLを出力するだけのサンプル
#!/usr/bin/env perl
use Encode;
use Config::Pit;
use Net::Twitter;
my $config = pit_get( 'twitter.tyamaguc07' );
my $nt = Net::Twitter->new(
traits => [ qw/ OAuth API::REST / ],