CPANモジュールのアンインストール - holidays-l開発ブログ
エントリの続きはこちら→CPANモジュールのアンインストール（改良版） - ヒルズで働く@robarioの技ログ あるCPANモジュール（以下ディストリビューションと呼びます）をアンインストールしてみます。 まずは色々紹介しながら回りくどくやってみます。最後に簡単な方法を紹介します。 消したいディストリビューションを確認 自分が消したいディストリビューションが分からなかったら、 % perldoc -tT perllocal | grep Module # 見た目より速さ優先ならこっち % grep Module `perldoc -l perllocal` でインストール履歴が出ます。perllocal.podにはインストールしたディストリビューションの一覧が時刻と共に記録されていて「昨日インストールしたアレアレ…何だっけ？」という時には割と使えます。 モジュール名とディストリビューショ
使ってると思しきモジュール一覧を列挙するワンライナー - 日向夏特殊応援部隊
Module::ExtractUse で何となく出来る。 perl -MModule::ExtractUse -le 'my $p = Module::ExtractUse->new; my @used; while (my $module = shift @ARGV ) { $p->extract_use($module); push(@used, $p->array); } my %seen; @used = sort { $a cmp $b } grep { !$seen{$_}++ } @used; local $,="\n"; print @used' `find ./lib -name "*.pm"`こういう感じ？ ただ use parent とかで指定したモジュールとかまでは理解してくれないのであくまで補助的にかなー。もっと良い方法あったら教えてエロい人！
16進数のテーブルを表示するワンライナーを考える - すぎゃーんメモ
以下のような256個の16進2桁の数値を一覧表示したい、とする。 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 10 11 12 13 14 15 16 17 18 19 1A 1B 1C 1D 1E 1F 20 21 22 23 24 25 26 27 28 29 2A 2B 2C 2D 2E 2F 30 31 32 33 34 35 36 37 38 39 3A 3B 3C 3D 3E 3F 40 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 5A 5B 5C 5D 5E 5F 60 61 62 63 64 65 66 67 68 69 6A 6B 6C 6D 6E 6F 70 71 72 73 74 75 76 77 78 79 7
perl - comm(1)またはuniq -(d|u) : 404 Blog Not Found
2007年01月24日17:00 カテゴリ一日一行野郎Lightweight Languages perl - comm(1)またはuniq -(d|u) それってPerlの一行野郎で -- それP1(ry メモ帳 - uniq の -d と -u 存在意義がわからなかったオプションの使い道を見つけたときは妙に感動する。a, b に共通な行を抜き出す perl -nle '$l{$_}++;END{$l{$_}>1 and print for keys %l}' a b ENDブロックはこう使うという例にもなっています。 a にだけ含まれる行を抜き出す -- 引数の順序に注意 perl -nle 'if(@ARGV){$l{$_}++}else{print unless $l{$_}}' b a Perlで<>を使うときには、まだ読まれていないファイル名が@ARGVに入っています。これが空
Perl One-Liners Explained, Part I: File Spacing
Other than that, I can't wait to start writing the article, so here I go: 1. Double space a file. perl -pe '$\="\n"' This one-liner double spaces a file. There are three things to explain in this one-liner. The "-p" and "-e" command line options, and the "$\" variable. First let's start with the "-e" option. The "-e" option can be used to enter a Perl program directly in the command line. Typicall
Sierpinski triangleワンライナー - すぎゃーんメモ
perldoc Acme::EyeDrops から引用。 こういう図形のことはしっていたけど、こういう名前だったのか。 シェルピンスキーのギャスケット - Wikipedia $ perl -le '$x=2**pop;print$"x--$x,map$x&$_?$"x2:"/\\",0..$y++while$x' 4 /\ /\/\ /\ /\ /\/\/\/\ /\ /\ /\/\ /\/\ /\ /\ /\ /\ /\/\/\/\/\/\/\/\ /\ /\ /\/\ /\/\ /\ /\ /\ /\ /\/\/\/\ /\/\/\/\ /\ /\ /\ /\ /\/\ /\/\ /\/\ /\/\ /\ /\ /\ /\ /\ /\ /\ /\ /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\ぬは。すげーー！ 解読してみる。 $ perl -MO=Deparse -
複数のファイルの内容の一括置換 - M3な日々
複数のファイルの中の単語を置換したい。Perl の置換を利用する。例えば Hoge, hoge を Hage, hage に変換した場合。 $ perl -i -p -e 's/(H|h)oge/$1age/g' input.file $ perl -i'.back' -p -e 's/(H|h)oge/$1age/g' input.file # バックアップファイル付き 以下オプションについて。オプションについて詳しい説明が欲しい場合は $ perldoc perlrun で調べられる。 -e 一行プログラム。セミコロンで区切ることで文はいくつも書ける。変数も使える。 $ perl -e '$a = 2; print "hoge" x $2, "\n";' で hogehoge と出力される。このオプションを指定した場合、引数にプログラムファイルは指定できない。 -p 与えられたプログラ
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
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
今日のワンライナー - 日向夏特殊応援部隊