発端 @Kamipo2014-04-22 21:06:52 via Twitter for Mac to @kamipo @sugyan2014-04-22 21:06:57 via YoruFukurou to @sugyan @KAMIPO2014-04-22 21:10:34 via Twitter for Mac to @kamipo @kamipO2014-04-22 21:10:59 via Twitter for Mac to @kamipo @kamIp…

java-ja温泉にて、Pythonのワンライナーがキモいという話が出ていて、Perlだってこれくらいキモいの書けるよ！とアピールしてみた perl -e '""!~("(?{".("{^(?)!(?^{^^!){.^^~~?}{!~}^}^.(!~}!..^^!~}!~~.~^}"^"^}((~))~~^{.{^~?}^!^}(~{^)?()^)^!).^}!()){.…

140文字以内に収まるように頑張った結果 perl -MNet::Twitter -e'$t->add_list_member(sugyan,listname,$_)for@{($t=new Net::Twitter traits,[API::Lists,Legacy],netrc,1)->followers_ids}'add_list_member に渡す引数(上記では sugyan, listname)はハード…

@zerna_botと@zenra_bot2の、両方をフォローしているユーザーはどれくらいいるのかと、ふと気になったので久々にワンライナーを書いてみた。 現時点でのそれぞれのフォロワーは $ perl -MNet::Twitter -le 'print Net::Twitter->new->show_user("zenra_bot")…

かもしれない。あんまり検証はしていない。 参考文献 Cronを使わずに動く「全裸bot2」を作った - すぎゃーんメモ Perlスクリプトをワンライナー化するモジュールAcme::OneLinerを作ってみた - すぎゃーんメモ

$ perl -MJSON -MLWP::Simple -le 'print$$_{created_at}for@{from_json(get"http://twitter.com/statuses/user_timeline/sugyan.json?since_id=4860000000")}' Thu Oct 15 11:33:40 +0000 2009 Thu Oct 15 11:29:55 +0000 2009 Thu Oct 15 11:19:49 +0000 2…

全裸botはタイムラインの早さに合わせて呟く - すぎゃーんメモという実装はしてみたものの、実際どれくらいの頻度になるのであろうか？ 一日の活動をザクッと洗い流してみた。 まずは@zenra_botが@付きの発言(3時間毎の独り言を除外)をしている時間をすべて…

最終行だけ表示する Perl ワンライナー - ablog eofっていうビルトイン関数があるんですね。知りませんでした ＞＜ 自分だったら後置if文が好きなので、こう書く perl -ne 'print if eof' hoge.log 変態的に書きたいときはこんなカンジでｗ perl -pe '$\=$_}…

Perlスクリプトをワンライナー化するモジュールAcme::OneLinerを作ってみた - すぎゃーんメモで作成した、Acme::OneLinerを、アップデートしました。 GitHub - sugyan/Acme-OneLiner: ワンライナー生成モジュール 今回の変更は、モジュールのuse宣言をコマン…

perl -le 'sleep 1 and print "|" x (100 * `sysctl -n vm.loadavg | cut -d " " -f2`) while 1'

マジカルインクリメントによる文字列操作 - すぎゃーんメモ なんか変なの思いついたのでメモ。 perl -le'($_||=ref\0)++while$-++<~0/515+65;print+lc'64bit環境だとダメか？

perl -e'printf"\e[%dm%s\e[m%c",30+rand 8,chr 32+rand 95while 1'実は８色つかってるけど。 こんだけ。 追記 4年半の時を経て、改良のアドバイスいただきました。 すぎゃーんのやつ、xterm-256 に対応させたほうが色鮮かだしモテるとおもいます perl -e'pr…

GitHubにおいてます。 GitHub - sugyan/Acme-OneLiner: ワンライナー生成モジュール たとえばhello.plというスクリプトを用意して #!/usr/bin/perl use strict; use warnings; print 'Hello world!', "\n"; Acme::OneLinerをuseして実行すると、ワンライナー…

ちょっと思うところあって"355/113"のような円周率に非常に近い値を表せる分数はないかと思って、それらを求めるワンライナーを考えてみた。 perl -MMath::Trig -le '($a=$_*pi)=~/\.(0{4}|9{4})/ && print int$a+$a=~/\.9/," / $_" for 1..100000'for文で探…

Gitで、 [color] ui = autoの設定をしているとdiffしたときに追加部分が緑、削除部分が赤で表示されるようになっていて、結構気に入っていた。 けどSubversionではどうやるのかよく分からない。ので自分で書いてみた。 svn diff . | perl -pe 's/^([-+]).*$/…

twitter で 60 日以上発言が無い人を remove する - Djangoへの片思い日記 僕自身はFollowはまだ200人弱で、全然制限に引っかからないので困らないのだけど、面白そうなので自分でも書いてみる。 まずはAPIの選定。 http://watcher.moe-nifty.com/memo/docs/…

これを１行と呼んでいいのかどうか、はともかくとして。 perl -MWeb::Scraper -MURI -le'do{map{print}@{($r=scraper{process"#home_left img","i[]","\@src";process"span.pages",p,TEXT}->scrape(URI->new("http://asianposes.com/category/pose/".($n?"pa…

「とべとべ」で拝見しました、ハノイの塔。 http://tobe-tobe.kwappa.net/wiki/?event%2F2009-06-03%20vol.4 Perlで書くとどんなカンジに？と調べてみると以下のものを発見。 Hanoi: Perl じゃあとりあえずコレをワンライナーにしてみよう、と少々の改造を加…

お題：自然数で与えられる引数の、最大公約数を出力する。 CPANモジュールを使用する Acme::Toolsにgcd関数が入っている。 $ perl -MAcme::Tools -le'print gcd@ARGV' 111 185 37 Math::Numbersモジュールだとnewに突っ込む形になる。 $ perl -MMath::Number…

引数の順番を反転させる @ARGVを素直にreverseさせると、こうかな。 $ perl -le 'print for reverse @ARGV' hoge fuga piyo piyo fuga hoge改行させたくないなら $ perl -le 'print join " ", reverse @ARGV' hoge fuga piyo piyo fuga hogeが普通だろうか。…

from 素数だの積だのよくわかんねっちゃ - 牌語備忘録 -pygo CPANモジュール使ってしまうと、こうかなぁ。 perl -MMath::Big::Factors=factors_wheel -le'map@{[factors_wheel$_]}-2||print,1..99'$ perl -MMath::Big::Factors=factors_wheel -le'map@{[fact…

ワンライナーと聞いて。 ニコニコ動画がもうすぐ 100 億再生！ - IT戦記 PHPで、 1 分置きにニコニコ動画の再生数を表示するワンライナー - 肉とビールとパンケーキ by @sotarok 目的を果たすだけなら…と、Twitterに発言できるくらいの短さを目指して頑張っ…

いちおう思いついたものを書いておく。 何ヶ月と何日、はDate::Calcモジュールでは簡単には出せなそう。 $ perl -MDate::Calc=:all -e'$ARGV[0]+=17;printf"17歳と%d日$/",Delta_Days@ARGV,Today' 1982 12 10 17歳と3428日 追記：月と日 やっぱりDateTimeモ…

perldoc perlfuncで見られるわけだから、それを解析すればいいかな、と、こんなヘボいワンライナーを書いた。 grep "=item" $(perldoc -l perlfunc) | perl -alne '$a{$&}++ if $F[1]=~/^[a-z]*/; END { print for sort keys %a }'そのあとで調べてみたら、…

0〜999円の買い物に対して、釣り銭の無いよう支払うためには硬貨が最低で何枚必要か、という問題を考える。 最初に考えたものは、 perl -le'$a=pop;$a-=$_*($:=int($a/$_)),$b+=$:for(500,100,50,10,5,1);print$b'というもの。 $ perl -le'$a=pop;$a-=$_*($:…

先々週のGAE Hack-a-thonに引き続き、２回目のhackathon参加。 http://twisted-mind.appspot.com/django-ja-hack-a-thon-disc-8/ http://bitbucket.org/voluntas/django-ja-hack-a-thon/src/tip/disc-8.rst 自分はハンズオンBで、id:everesさんに教えていた…

sort関数の比較操作をワンライナーで可視化してみた - すぎゃーんメモに続き、sort関数ネタ。 なんとなく、sort関数のBLOCKを出鱈目にすればshuffle的なことが出来るんじゃないのかな？と思いついて。 やっぱり既にそういう考え方はあるようで。 配列をラン…

Perlのsort関数は sort BLOCK LIST というようにBLOCKを指定すると、そのBLOCK内部で$aと$bという変数同士の比較方法を指定することができる。 なので、そこにprint文を埋め込んでしまえば、sort関数の中で「対象となるLISTのどの要素とどの要素が比較されて…

perl -MDateTime -le 'print+(DateTime->now - DateTime->new(day,pop,month,pop,year,pop))->years' <year> <month> <day>$ perl -MDateTime -le 'print+(DateTime->now - DateTime->new(day,pop,month,pop,year,pop))->years' 1982 12 10 26私は現在26歳です</day></month></year>

CPANでinstallしたモジュールを調べる ExtUtils::Installedを使うと調べられるらしい。 perl -MExtUtils::Installed -le 'print for ExtUtils::Installed->new->modules'ついでにバージョンも調べることができるらしい。 perl -MExtUtils::Installed -le '$x…