.historyの解析 - みずぴー日記
30分プログラム、その128。.historyファイルを解析して、よく使うコマンドを調べてみる。 使い方 $ perl cmd_hist.pl ~/.history ls: ***************************************** cd: *********************************** perl: ***************************** mvn: ****************** sudo: ********* svn: ****予想通り、lsとcdが多い。perlが多いのは意外だな。 ソースコード #! /usr/bin/perl # -*- mode:perl; coding:utf-8 -*- # # cmd_hist.pl - # # Copyright(C) 2007 by mzp # Author: MI
Tie::String - みずぴー日記
30分プログラム、その71。 Perlだと、文字列はスカラーなので配列のようにアクセスできない。 my $msg = 'Hello,world!!'; print substr($msg,0,1); # <- 0番目の要素を取得 print $msg[0]; # <- これがやりたい というわけで、これをタイ変数で実現してみる。 tie my @string,'StringArray','ABCD'; print "$string[0]\n"; use strict; use warnings; package StringArray; use base 'Tie::Array'; # 初期化 sub TIEARRAY{ my ($class,$string) = @_; bless \$string,$class; } # 文字の取得 sub FETCH{ my ($string,$in
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
