[B! oneliner] gologo13のブックマーク

All commands

Other solutions that involve doing du -sx /* are incomplete because they will still descend other top-level filesystems are that mounted directly at "/" because the * expands to explicitly include all files and directories in "/", and du will still traverse them even with -x because you asked it to by supplying the directory name as a parameter (indirectly via "*"). Show Sample Output 4.0K /mnt 4.

gologo13 2010/09/20

リンク

あほみたい･･･ワンライナーの話 - kitak blog

今日､とある事情で3つの数値のカラムからなるファイルの1列目と3列目を抜き出したかったんですよ｡何を思ったのか､突然Perlでやろうと思いたち､できたものがこれ･･･ use strict; use warnings; my $file = shift; open(my $fh, "<", $file) or die "Cannnot open $file: $!"; while(my $line = readline $fh){ my $c1; my $c2; my $c3; chomp $line; ($c1,$c2,$c3) = split(/\s/, $line); print $c1, " ", $c3, "\n"; } close $fh; 久しぶりのPerlです｡あんまり責めないで!(いや､言っていいですよ) まぁ･･･これで要求は満たされたわけですが､よくよく考

gologo13 2010/08/29

これ俺もやり方しりたかった！！

リンク

Perl one liner 集 perl 1行野郎

Landscape トップページ | < 前の日 2003-06-03 2003-06-04 次の日 2003-06-05 > Landscape - エンジニアのメモ 2003-06-04 Perl one liner 集 perl 1行野郎当サイト内を Google 検索できます * Perl one liner 集 perl 1行野郎この記事の直リンクURL: Permlink | この記事が属するカテゴリ: [Perl] - one liner、日本語で言うと一行野郎いわゆる一行スクリプトを解説したページ。昔はよく参照してたが、google をいくら探しても見つからない。仕方がないので、ここに転載しておく。 - Internet Archive で見つけた。「perl でいいよ」というページの一コーナーだったようだ。 http://web.archive.org/web/2

gologo13 2010/08/02

リンク

Perl: One-Liner

速習 Perl: 1行スクリプト ■1. フィルターとしての Perl ここでは，主として，grep や sed のように「フィルター」として Perl を使う方法について簡単に見ていく。［cf.「Perl によるテキスト処理入門」］ ■2. 基本的な形　[詳しい解説] perl -オプション 'スクリプト' 入力ファイル文字列の検索：　perl -ne 'print if (m/検索文字列/[i])' 入力ファイル文字の置換：　　perl -pe 'tr/文字列1/文字列2/' 入力ファイル文字列の置換：　perl -pe 's/検索文字列/置換文字列/[ig]' 入力ファイル ■3. 文字列の検索 (cf. grep)　[詳しい解説] 以下のようにすれば，grep と同じように，「検索文字列」を含む行を出力することができる。 perl -ne 'print if (m/検索文字

gologo13 2010/08/02

リンク

一行野郎(one-liner)はperlにおまかせ

序文もしもプログラミング言語が宗教だったら……（全訳版）［絵文録ことのは］2008/12/21 によると、ブードゥー教徒らしい dankogai です。ブードゥー教徒らしく、「上司があなたに金曜夜21時に緊急の仕事を命ずるときにしばしば使われる」呪文をここでまとめておくことにします。基本中の基本コマンドとしてのperlは、スイッチがない場合、引数はスクリプト名として扱われます。 % cat hello.pl print "Hello, world!\n"; % perl hello.pl Hello, world! % コマンドライン中の文字列をスクリプトとして解釈させるには、-eを使います。 % perl -e'print "Hello, World!\n"' Hello, world! % ちなみに、perlとコマンド名だけで起動すると、標準入力をスクリプトとして返します。 %

gologo13 2010/07/31

リンク

perl - the best friend of find(1) : 404 Blog Not Found

2008年02月24日22:45 カテゴリLightweight Languages perl - the best friend of find(1) find(1)ネタというのも、定期的にネットを賑やかにする時候ネタになりつつあるようです。いまさらxargsの便利さを主張してみる findでファイル検索入門 - builder by ZDNet Japan というわけで、いまさらfindとperlの相性のよさを再確認してみることにしてみます。基本形まずは、これを覚えておきましょう。 find [options and args of find] -print0 | perl -l0ne 'perl program' findが見つけたファイルを一つ見つけると、perlの$_にそのファイル名が入るのでそれに対して何らかの処理を行います。 perl側の-l0neというのは、以下と同等

gologo13 2010/06/06

リンク

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