ChangeLog メモ整形スクリプト

- 先頭にタブが入っていない場合で、日付の行ではなかった場合にタブを付加する。

#!/usr/bin/perl
use strict;

defined($ARGV[0]) or die __FILE__ . ": target file not specified\n";
my $memo_file = $ARGV[0];
my @line = &ReadFile($memo_file);
my $str = '';
foreach my $buf (@line) {
  if ($buf =~ /^[^\t]/) {
    if ($buf !~ /^\d{4}-\d{2}-\d{2}\s+.*?<.*>$/) {
      $buf = "\t" . $buf;
    }
  }
  $buf =~ s/\s+$/\n/;
  $str.= $buf;
}
&WriteFile(1, $str, $memo_file);

# 引数で指定されたファイルを読み込み、呼び出し側のコンテキストに応じた形で返す
sub ReadFile($) {
  my $target_file = $_[0];
  my @lines = ();

  if (! -e $target_file) {
    die(__FILE__ . ": error: ReadFile(): $target_file not found.");
  }
  if (! -r $target_file) {
    die(__FILE__ . ": error: ReadFile(): $target_file: permission denied.");
  }
  open(FILE, $target_file) or die(__FILE__ . ": error: ReadFile(): can not open $target_file.");
  flock(FILE, 1);
  @lines = <FILE>;
  close(FILE);

  return (wantarray ? @lines : join('', @lines));
}

# テキストデータをファイルに書き込む
# 引数1 : 0のとき追記、1のとき上書き
# 引数2 : データ (スカラー)
# 引数3 : ファイル名
# 返り値 : 書き込み成功のとき 1
sub WriteFile($$$) {
  my ($overwrite, $data, $target_file) = @_;
  if (-e $target_file) {
    if (! -w $target_file) {
      die(__FILE__ . ": error: WriteFile(): $target_file: permission denied.");
    }
  }

  my $err_msg = __FILE__ . ": error: WriteFile(): Can not open $target_file.";
  if ($overwrite) {
    open(FILE, ">$target_file") or die($err_msg);
  } else {
    open(FILE, ">>$target_file") or die($err_msg);
  }
  flock(FILE, 2);
  print(FILE $data);
  close(FILE);

  return 1;
}