perlメモ

#行頭の空白を削除する
open (IN , "< in.ldif");
open (OUT , "> out.ldif");
while(<IN>){
	s/^\s+//;
	print(OUT "$_");
}

仕事で、必要っぽかったので、perlがてら以下。汎用性なし！

#ldifファイルにあったuserpasswordの値を、
#useridの値でリセットする。
open (INDIF , "< user.ldif");
open (OUTDIF , "> change.ldif");
my $uidVal;
while(<INDIF>){
	chomp;
	if(m/^uid:/){
		@array = split(/ / , $_);
		$uidVal = @array[1];
	}	
	s/^(userPassword:).+/$1 $uidVal/;
	print(OUTDIF "$_\n");
}

正規表現ってすごい深みがある。
これ買った↓

【送料無料】正規表現クックブック [ ジャン・ゲイバ-ツ ]

また時間かかるぞ。

ついでにこれも買った↓

【送料無料】Mac　OS　10　v10．5　Leopard　as　UNIX [ 大津真 ]

MacのUnixはくせがあるので、基本linuxコマンドたたけますけれども。