argius note

プログラミング関連

Perl

正規表現で文字列置換えしよう

世間では海豚*1暴れ馬の話題に沸いているようですが、自分はまだ蟷螂と戯れています。 さて、Perlの正規表現による文字列置換をJavaでやるには、1.3まではJakartaとかのライブラリ(OROだっけか)使ったりだったが、1.4から標準ライブラリ(java.util.regex)…

固定長テキストを項目でソートする

先日ひさびさにPerlを使ってツールを作りました。もうソラで書く自身はあまりありませんが、CVSのhistoryコマンドで得た出力を編集したいというのを頼まれたので、ちょっと作ってみました。 #!/usr/bin/perl # sorter.pl use strict; # 固定長テキスト→配列 …

バカっぽいOneLiner

perl -i.bak -ne 'tr/[A-Z]/[a-z]/;print;' *.htmlOneLiner*1でアルファベット大文字を小文字に変換する処理だけど、Perlは2バイト文字も1バイト文字として変換するので、文字化けみたいになる。 最初は意図せずやっていたんだけど... Xで始まる単語 - xで始…