Linuxで自宅サーバ構築・管理: KSKNET

splice - 配列要素の置換・削除

書式: splice(array, offset, length, list)

配列要素arrayのoffset番目の要素からlength分削除する。lengthが省略された場合、offset以降の要素全てを削除。

[サンプル]

my @array = (1,2,3,4,5);
my $deleted_num = splice(@array, 2, 1);
print $deleted_num . "\n";
print @array;

[実行結果]
3
1245

配列をランダムに並べ替え

List::Utilのshuffle関数を使用すればよい。

use List::Util qw(shuffle);
@array = shuffle(@array);

screenコマンド

[ウィンドウ操作]
c - ウィンドウの作成
A - タイトルの変更
S - ウィンドウの分割
Q - 現在のウィンドウ以外をクローズ

[ copy & paste ]
[ - copyモードへ
] - paste

[その他]
: screenコマンドの入力へ

[.screenrc]
# statuslineの表示
hardstatus alwayslastline "%{= wk} %-w%{=bu dr}%n %t%{-}%+w %= %{=b wb}%y/%m/%d %{=b wb}%c"

参考サイト: screenコマンド一覧

XML::RSS::Parser

XML::RSS::Parserを使ったRSSのparser例。

#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use Encode;
binmode STDOUT, ':utf8';

use XML::RSS::Parser;
use LWP::UserAgent;
use HTTP::Request::Common;
use Date::Manip;
use Data::Dumper;

my $uri = 'http://b.hatena.ne.jp/hotentry/it.rss';
my $ua = new LWP::UserAgent;
my $request = GET($uri);
my $response = $ua->request($request);

my $parser = XML::RSS::Parser->new;
my $feed = $parser->parse_string($response->content);

foreach ( $feed->query('item') ) {
    my $title = $_->query('title')->text_content;
    my $description = $_->query('description')->text_content;
    my $timestamp = $_->query('dc:date')->text_content;
    my $link = $_->query('link')->text_content;
    print "$title ($link)\n\n $description \n\n ($timestamp)\n\n";
}

perlの特殊変数一覧

perlにて使用される特殊変数の一覧。

$0	スクリプトのコマンド名
$!	エラー番号、もしくはエラー文字列
$?	外部コマンドなどを実行した際の最後のステータス値
$@	直前のevalで発声した例外メッセージ
$n	パターンマッチ時にn番目の()にマッチした文字列
$\|	出力のバッファリング、0以外でバッファリングが無効になる
$.	ファイルハンドルの現在ある位置の行数
$/	入力時の区切り文字。デフォルトは改行文字。
$,	print使用時のセパレーター
$"	print "@list_context"とした際の区切り文字
$$	プロセスのpid
@ARGV	スクリプトに渡された引数
$^D	デバッグフラグの値
$^E	OS特有のエラーメッセージ
$^T	スクリプト実行時刻(epoch time)
%ENV	環境変数
%INC	インクルードされたライブラリなどを記録
%SIG	シグナルハンドラを設定するためのハッシュ
@INC	ライブラリの検索対象ディレクトリ

$0の使用例

[例: test.pl]
#!/usr/bin/perl

print "$0\n";

[実行結果]
[testuser@server testuser]$ ./test.pl
./test.pl
[testuser@server testuser]$ /home/testuser/test.pl
/home/testuser/test.pl

[例 argv.pl]
#!/usr/bin/perl

print @ARGV";

[実行結果]
[testuser@server testuser]$ ./argv.pl a b c d e
a b c d e

vimのFile Explorer

vim内でディレクトリ間を移動したり、ファイルを開くには:Expと打ち込みます。(vimの標準プラグインであるnetrwの機能の一つ)
ディレクトリ上にカーソルを置きEnterを押すとディレクトリに移動し、ファイル上でEnterを押すとファイルを開きます。
以下主なオプション。

o	ファイル及びディレクトリを別画面で開く
i	ファイルサイズやタイムスタンプなどの詳細を表示
d	ディレクトリを作成
x	指定したアプリケーションでファイルを開く

]]> vimのFile Explorer

vim内でディレクトリ間を移動したり、ファイルを開くには:Expと打ち込みます。(vimの標準プラグインであるnetrwの機能の一つ)

ディレクトリ上にカーソルを置きEnterを押すとディレクトリに移動し、ファイル上でEnterを押すとファイルを開きます。

以下主なオプション。

o	ファイル及びディレクトリを別画面で開く
i	ファイルサイズやタイムスタンプなどの詳細を表示
d	ディレクトリを作成
x	指定したアプリケーションでファイルを開く

vim - マクロ

マクロとは一連の操作をを記録し、再度その操作を行う機能です。以下使い方。

1. qaにて記録を開始
2. 任意の操作
3. qにて記録を終了
4. @aにて記録したマクロを実行。10回繰り返す場合には10@a

※ aの文字は任意。a-zまで記録可能。（レジスタ）
※ aではなくAとした場合、既存のマクロに処理を追加する。

IE8スタイル崩れ

IE8でスタイルが崩れてしまう場合、以下のmetaタグを追加すれば強制的にIE7互換モードにすることが可能。

キーボード割り当ての変更（Xwindows）

Xwindowsでのキー割り当ては.Xmodmapに記載すればよい。以下の例では「変換」キーをEscキーに変更している。

#現在のキーボードのマッピングをファイルに出力

$ xmodmap -pke -> .Xmodmap

# キーに割り当てられているkeycodeをxevコマンドにて表示

$ xev

# Escapeボタンを押したとき（keycodeは9）

KeyRelease event, serial 29, synthetic NO, window 0x3600001,
    root 0x65, subw 0x0, time 1909244937, (529,508), root:(592,563),
    state 0x0, keycode 9 (keysym 0xff1b, Escape), same_screen YES,
    XLookupString gives 1 bytes: (1b) ""
    XFilterEvent returns: False

# 変換ボタンを押したとき（keycodeは129）

KeyRelease event, serial 29, synthetic NO, window 0x3400001,
    root 0x65, subw 0x0, time 1909057279, (700,618), root:(763,673),
    state 0x0, keycode 129 (keysym 0xff1b, Escape), same_screen YES,
    XKeysymToKeycode returns keycode: 9
    XLookupString gives 1 bytes: (1b) ""
    XFilterEvent returns: False

# 該当するkeycodeを変更

$ vim ./.Xmodmap 
keycode   8 =
keycode   9 = Escape
keycode  10 = 1 exclam
keycode  11 = 2 at
.
.
.
keycode 129 = Escape

Digest::SHA

Digest::SHAモジュールを使用すればSHA1メッセージダイジェストの生成が可能。

  1 #!/usr/bin/perl
  2
  3 use Digest::SHA;
  4 use Carp;
  5
  6 die "Usage: $0 filename\n" if (@ARGV != 1);
  7 $filename = shift;
  8
  9 croak("Error: $filename not found") unless -f $filename;
 10
 11 $sha = Digest::SHA->new(1); # sha1
 12 $sha->addfile($filename);
 13 my $digest = $sha->hexdigest;
 14 print "$digest\n";

shasum - メッセージダイジェストの生成及びチェック

shasumはsha1及びsha2のメッセージダイジェスト（ハッシュ値）の計算及びチェックをするためのコマンドである。メッセージダイジェストはハッシュ関数を用いてデータの任意のブロックを取りだした値のことで、元のデータが変われば基本的にはメッセージダイジェストも変わる。異なるデータから同一のメッセージダイジェストを生成することは困難であるため、メッセージダイジェストをチェックすることで、ファイルが破損もしくは改竄していないことを確認することができる。

[使用法]
sha1sum [OPTION] [FILE]...
sha1sum [OPTION] --check [FILE]

[主なオプション]
-a　デフォルトはsha1（224、256、384、512を指定可能）

※　中身はPerlのDigest::SHAである。Digest::SHAが入っていない場合はsha1sumを使えばよい。

[関連記事]
md5sum

ssh-keygen - SSH鍵の作成及び管理

ssh-keygenはSSH鍵の作成及びパスワードの変更などを行うコマンドである。

[主なオプション]
-b ビット数を指定
-c 鍵のコメントを変更
-p 鍵のパスフレーズを変更

# RSA1鍵を作成(version1)
ssh-keygen -t rsa1

#RSA鍵を作成(version2)
ssh-keygen -t rsa

#DSA鍵を作成(version2)
ssh-keygen -t dsa

#パスフレーズの変更
ssh-keygen -p -f ./.ssh/id_rsa
Enter old passphrase:
Key has comment './.ssh/id_rsa'
Enter new passphrase (empty for no passphrase):
Enter same passphrase again:
Your identification has been saved with the new passphrase.

multitail - 複数ファイルをtail

multitailコマンドを使用すれば複数のファイルをtailすることができる。tail時のウィンドウをひとつにmergeしたりすることができるので、複数のapacheログファイルなどを同時に見たいときには便利かも。デフォルトではインストールされていないため、yum等にてインストールする必要有り。

[主なオプション]
-i 監視対象のファイルを指定
-I -iと同じだが同一ウィンドウにて表示
-l 後に続くコマンドの結果を監視
-L -l と同じだが同一ウィンドウにて表示
-e 後に続く正規表現にてフィルタリング

multitail -l "ssh localhost tail -f /var/www/logs/access_log" -L "ssh localhost tail -f /var/www/logs/error_log"

参照: MultiTail

show create table

show create table にて指定したテーブルのSQL作成文を確認することができる。

mysql> show create table bookmark \G
*************************** 1. row ***************************
       Table: bookmark
Create Table: CREATE TABLE `bookmark` (
  `bookmark_id` int(11) NOT NULL auto_increment,
  `url` varchar(255) default NULL,
  `title` varchar(255) default NULL,
  `record_time` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
  `comment` text,
  PRIMARY KEY  (`bookmark_id`)
) ENGINE=MyISAM AUTO_INCREMENT=5 DEFAULT CHARSET=utf8
1 row in set (0.02 sec)

DBIx::Class::Schema::Loader

DBIx::Class::Schema::Loaderを使用すればスキーマを作成する手間が省ける。

#!/usr/bin/perl

package My::Schema;
use base qw/DBIx::Class::Schema::Loader/;

# constraintで正規表現にマッチするテーブルのみロード
# excludeは正規表現にマッチするテーブルを除外
# debugオプションを指定することで自動解析したスキーマをダンプ
# その他loader_optionsに指定できるオプションはDBIx::Class::Schema::Loader::Baseを確認のこと

__PACKAGE__->loader_options( constraint => qr/point/, debug => 1 );

package Main;
use warnings;
use strict;

my $dsn = 'DBI:Pg:dbname=dbname;host=localhost';
my $user = 'username';
my $password = 'password';
my $attrs = { AutoCommit => 1 };
my $schema = My::Schema->connect($dsn, $user, $password, $attrs);

# primary_keyでの検索にはfind()を使用
my $result_set = $schema->resultset('Point')->search(
        { 
                timestamp => { '<=' => '2008-01-01' }
        },
        {
                order_by => 'timestamp'
        }
);

while (my $record = $result_set->next ) {
        print $record->id . "\t" . $record->timestamp . "\n";
}

# 検索してそのまま削除
$schema->resultset('Point')->search( { id => { '<=' => '514' } })->delete;

__END__