Yoshihiro Sugi sugyan
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| perl -e '""!~("(?{".("{^(?)!(?^{^^!){.^^~~?}{!~}^}^.(!~}!..^^!~}!~~.~^}"^"^}((~))~~^{.{^~?}^!^}(~{^)?()^)^!).^}!()){.^)(}.("^"!~!{}(!(!~((}}!})!^^{^){(.?}{}!~{^~!)^?..(~)!~.?."^"{{?}^(~)~^!..~)??){^.~){.~(!{.)}}^.}^~}?}.^}(^?{~"^".)^!?^(.)!~!)~{^{(}){?!^.~)({?)(^.^!.^{((^!!^(^(!"^"!})^?}^(?^(~{.)(}})!.?^~!!{~))}({^^!..)^^~?{.?)..")."})")' |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| perl -e '""!~("(?{".("}.?)^{)!~}~).({^(^}{~)?))~!?!){!)~{)~^^{}^?!.}~^~}{?}??({}^!~(!!~)^^?((.?}{~.?^)..)^?.}~.^?{!?.}.).^{^!{{)!~}?^({)~^^~!}!^)^(~)(~{{~!~.({}^^}}(!)(?!^.^.?{^}{(!{}.(^)~~~!.{~.^^{~{}^!((.?!(?~{(?({^}^{{~?^{({^^^?!^!)(?!){{?(~^?..!(.?(}.}{)).~.?((}(^.}{(}~.)~{(}{})(?!!^{{^^^~)^.^{.?)^~{^}^.^{{~^{)!}!!?~!!^~{^^{(^^}^{.(~!^}!^}))~!~!??^~)!.~!((}!~()(~{!}).!~!}~{.{.^{^.!)!{^^}.(?~}?.~?^~?){{}}.~~).~)?~{^((((^!?!!()(}}^~)?^!^.{~}}~?{{))^^}.^~{~~?(}{!{^.?!^}}~!?..{{~.?^!^~{~~(~)^(}~!{^.^{~)^~(~.(.~}.~(?}!!}.(!(!~..^?(!~{(!}(~)^{){^}~!.{^{.!.?(~)^(.^^{}{?{?{{}^?^?!!.({^!?{)~?^^)()^^.~~!!^?!{~(~~?~!(~~??}!(}(^.}{^(.~^)?.~~)~?~!~)^^.~~})^!^.(^!.))~{?({~}~{^^(!?})~{()(){~~!(.}~^}).?^(.}..)~?}^?!^!{{^)~}.~~(.!?{}()??.?^!((^){)^)~!!^)!(!()!)^~~^?((!~({~.~(^~?!^}{)~^{}.~){^(??~}}?{(^}..^??)^(}{~?^?^((^!.~^^!{~}~)({?{~(~^{?^!~}..)(~!){(^.(^}{^~.!?({(.^?..~^^{?^.^{^~!{}!^!{}!.{({!^({^~~()~~?(^~~.))!.}~{)~~^)~)?^}}?()})!(^!??^(?{)!{}~?((~^.!?^{{~!~.?~!)~^}!^}}(^^!})??!{?^!)^({^)?{{~)!{!^~)^}})!?^^{{.?)?^~? |
sugyan
/ ChirpUserStreams.pl
Created
April 20, 2010 16:27
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/perl | |
| ### http://apiwiki.twitter.com/ChirpUserStreams | |
| use strict; | |
| use warnings; | |
| use AnyEvent::HTTP 'http_request'; | |
| use Config::Pit 'pit_get'; | |
| use Encode 'encode_utf8'; | |
| use MIME::Base64 'encode_base64'; |
sugyan
/ ObjC-xAuth
Created
April 21, 2010 00:59
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #import <Foundation/Foundation.h> | |
| #import "OAuthConsumer/OAConsumer.h" | |
| #import "OAuthConsumer/OAMutableURLRequest.h" | |
| #import "OAuthConsumer/OADataFetcher.h" | |
| @interface Hoge : NSObject { | |
| } | |
| @end | |
| @implementation Hoge |
sugyan
/ ObjC-xAuth
Created
April 21, 2010 01:02
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #import <Foundation/Foundation.h> | |
| #import "OAuthConsumer/OAConsumer.h" | |
| #import "OAuthConsumer/OAMutableURLRequest.h" | |
| #import "OAuthConsumer/OADataFetcher.h" | |
| @interface Hoge : NSObject { | |
| } | |
| @end | |
| @implementation Hoge |
sugyan
/ perlcasual_streaming.pl
Created
April 21, 2010 09:05
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| use AnyEvent::Twitter::Stream; | |
| use Config::Pit 'pit_get'; | |
| my $config = pit_get( | |
| "twitter.com", | |
| require => { | |
| "username" => "your username on Twitter", |
sugyan
/ ChirpUserStreamsReply.pl
Created
April 23, 2010 00:04
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/perl | |
| ### http://apiwiki.twitter.com/ChirpUserStreams | |
| use strict; | |
| use warnings; | |
| use AnyEvent::HTTP 'http_request'; | |
| use Config::Pit 'pit_get'; | |
| use Encode 'encode_utf8'; | |
| use JSON::XS 'decode_json'; | |
| use LWP::UserAgent; |
sugyan
/ gist:413126
Created
May 25, 2010 13:32
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 落書きの報告書 Twitterばかりしてる俺 | |
| 超高速でビルドするけど 動かないVirtual Machine | |
| やさしくないJavaの本ページ破りたい | |
| Chromeの裏 ２ちゃんを覗いて見つかれば逃げ場もない | |
| 座って固まり 目を伏せながら | |
| 心のひとつも解りあえないプログラムをにらむ | |
| そして仲間たちは今夜辞職の計画をたてる | |
| とにかくもう 会社や家には帰りたくない | |
| 自分の業務が何なのかさえ 解らず震えている | |
| 25の夜 |
sugyan
/ gist:418839
Created
May 30, 2010 06:44
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| あたし大卒やのにね 仕事をもらわれへんのやと書いた | |
| マスターの手紙の文字は とがりながらふるえている | |
| ヲタのくせにと足を切られ 学生たちの眼が年をとる | |
| 虚しさを握りしめ過ぎた 日々の中夢が崩れ去る | |
| 私 本当は目撃したんです 昨日大手企業の 面接で | |
| 五秒で落ちたヲタクと 学歴だけで受かった奴らの薄笑い | |
| 私 驚いてしまって 助けもせず叫びもしなかった | |
| ただ恐くて逃げました 私の敵は すべてです |
sugyan
/ test.t
Created
June 30, 2010 08:10
— forked from hokaccha/test.t
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| use Test::More; | |
| $hoge = { | |
| foo => foo(), | |
| bar => 'bar', | |
| }; | |
| is $hoge->{foo} => 'bar'; | |
| sub foo { |