実用 perl ワンライナー - Qiita
こちらの記事で紹介されているawkでの操作について、Perlではどう書けるかを確認したものです。 http://qiita.com/b4b4r07/items/45d34a434f05aa896d69 awkは難しいけど、Perlならちょっとだけ普通のプログラミング言語に近いから何とか…（あるいは昔CGI書いてたから何とか…）というニッチ層向け。 使用するコマンドラインオプション 各オプションの詳細は perldoc perlrun コマンドで参照できます。 -e 'Perlプログラム' パラメータをそのままプログラムとして実行します。ワンライナーの根本。 -E 'Perlプログラム' -e と同じですが、いくつかの追加機能が有効になります。ワンライナーでは主に、末尾に改行を追加して print する関数 say を使えるようにするために指定します。 -n 入力の各行に対して指定したプログ
俺のワンライナー改め CLI ツール群のステマ
このエントリーは Perl 5 Advent Calender 2015 の3日目の記事です。 まだワンライナーで消耗してるの？ Perl で書くワンライナーが便利というのはもうさんざん語られている気がするし自明だろうて、このたびはコマンドラインインターフェースで便利なツール群をドヤ顔でステマしたいと思います。怠惰ゆえ、もうワンライナー書くのも面倒になったらコマンドにしてしまえこのやろう、というノリですぜ、おとっつあん。 手前みそですが、できる限り便利そうなやつをピックアップするので、ひとつお付き合いください。ペコリ。 swoop まずは Statistics::Swoop をインストールすると付いてくる swoop コマンド。これは、ログのあるカラムの合計、最大、最小、レンジ、平均をさくっと算出してくれるコマンド。 $ cat log_file | swoop -f3 -d, .----
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
おそらくはそれさえも平凡な日々: 人生は調和級数であるがゆえに美しく、業が深い
しかし、ブログは一度放置に入って全く書かなくなるものですね。くだらないことでも良いから書き続けることが大事なんでしょう。てことでくだらないことでも書こうかなと。 最近はMTで書くのがたるくなってきて、自分で適当なBlogツール的なものを作ろうかとか考えて、markdownをgit管理する簡易CMS的なものを多少作ってもいたのですが、そんなことをしているうちに余計ブログを書かなくなったフシもあります。 閑話休題。 最近(でもないけど)以下のようなツイートをよく見かけますね。 hogeはfuga日生きた。今日は有意義だったか こんなのは以下のワンライナー一発です。11448日生きたようです。 perl -MDateTime -E 'say DateTime->today->delta_days(DateTime->new(year=>1980,month=>6,day=>5))->in_uni
行をランダムシャッフルするワンライナー - シリコンの谷のゾンビ
そういや昔はメモ代わりにはてなダイアリー使ってたけど最近は長い記事が多いなぁ，とふと思ったので，ちょうど今日使ったTipsがあったのでメモ． データ処理をしているときにsort|uniqというコンボにはよくお世話になる．その後に行毎にランダムシャッフルしたい場合がある．そのときには以下のようなList::Util::shuffleを使ったワンライナーを使うとシェルだけで事足りる． % perl -e 'use List::Util qw/shuffle/; @a=<>; @b=shuffle(@a); print @b;' < data.txt 最近はデータ整形の作業が多いのでいろんなノウハウが蓄積中． 2011-09-19追記 ブックマークコメントで参考になるコメントを頂いたので追記します． Thanks to id:tzccinct さん ワンライナーのより短い記述のコメントをいただき
日本語の自然言語処理には Perl も便利 - アスペ日記
小ネタ。Perl で日本語の簡単な処理をするやり方（こういうことが簡単にできるという例で、具体的なオプションの意味等は解説していない）。 コマンドラインでちゃちゃっと日本語の処理をしたい時、Perl はけっこう役に立つ。日本語の一文字を一文字として扱えるから。特に、コマンドラインやファイルのエンコーディングを UTF-8 で統一しておくといい。 例えば、ひらがなの単語リストを読み込んでカタカナにするには、次のようにすればいい（「ヴ」は扱い方によって変わるので省略）。 perl -CS -Mutf8 -ple 'tr/ぁ-ん/ァ-ン/' < in.txt > out.txt カタカナの単語リストの最初の一文字を濁音から清音にしたいということがあるかもしれない。そういう時はこうする（「ヴ」については同上、半濁音の処理も略）。 perl -CS -Mutf8 -ple 's{^(.)}{my $
perl - 短縮URLを一行で展開する : 404 Blog Not Found
2011年01月03日06:00 カテゴリLightweight Languages perl - 短縮URLを一行で展開する Perlですから。 Schwarze SQ: 短縮URLを展開するRubyスクリプトを作ってみた なにやら短縮URLを使い、不正なサイトにアクセスさせウィルスに感染させる行為が流行っているらしい(まぁ想定の範囲内だが)。そこで、短縮URLを展開できるrubyスクリプトをちょちょっと作ってみた。perl -MLWP::UserAgent -lE \ 'say LWP::UserAgent->new->head(shift)->request->uri' \ http://j.mp/dankogai id:amachangが昔こさえてくれたこの短縮URLもhttp://blog.livedoor.jp/dankogai/と展開されるはずです。 もう少しverboseに
perl - tac を一行で : 404 Blog Not Found
2008年05月26日02:30 カテゴリ一日一行野郎Tips perl - tac を一行で それってone-linerで。 [を] さくらのレンタルサーバに tac コマンドを入れる UNIX 系のコマンドで、tac というのがすごく便利なのです。 これはファイルを先頭から表示する cat というコマンドの逆で、 ファイルを行単位でひっくり返して末尾から表示してくれるのです。% perl -e 'print reverse <>' ただし、このやり方は一端メモリーに全ファイルを読み込むので非効率といえば非効率。以下のようにすればもう少し効率的になりますか。 #!/usr/local/bin/perl use strict; use warnings; @ARGV or die "$0 [files...]"; for my $filename ( reverse @ARGV ) { o
404 Blog Not Found:perl - ワンライナーの書き方入門
2008年03月30日19:45 カテゴリLightweight Languages一日一行野郎 perl - ワンライナーの書き方入門 まあ、ruby のコマンドラインオプションって、Perl由来ですから。 Rubyでワンライナーを書く方法のまとめ まぁ、Perlもあるしあんまり需要が無いのかも知れませんが。 というわけで、Rubyistにも役立つPerlのワンライナー入門です。 基本中の基本 コマンドとしてのperlは、スイッチがない場合、引数はスクリプト名として扱われます。 % cat hello.pl print "Hello, world!\n"; % perl hello.pl Hello, world! % コマンドライン中の文字列をスクリプトとして解釈させるには、-eを使います。 % perl -e 'print "Hello, World!\n"' Hello, worl
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
bayashi.net