しるてく

技術的な話をします

perl

ワンライナーでランダムな文字列作るやつ

しばらく使ってなかったらhistoryから消えてたのでメモっとく。 perl -le 'my @s = (0..9,"A".."Z", "a".."z"); print map { $s[int(rand(scalar @s))] } 1..8'

LIMITを指定しないと、splitは一番後ろの空フィールドを省略してしまう

perlのsplitでハマった。第三引数なんてあったのか。 まー最大のフィールド数が決まってるならその数を指定して、そうじゃなければ負の値をいれるのが良いのかなー。

perlでCSS Spriteしてくれる君書いた

あるディレクトリ以下にある画像を縦に連結して、cssも書いてくれます。 あと、特定のページで使っている画像だけくっつけるとかやりたかったので、画像名を配列で渡してあげると、その画像だけで連結してくれます。 テンプレートの中身をgrepするとか、find…