#!/usr/bin/perl

$addindex = "@ARGV"; #ここに追加したいindexデータを指定

open (IN,"tree.dat");
  @dt = <IN>;
close IN;

$finddt = "^" . $addindex . "\,";
@sr = grep(/$finddt/,@dt);
$findQTY = @sr;
if ($findQTY == 0) {
  print "たった今、元メッセージが削除されました。";
  exit;
}
($idx,$act,$eol) = split(/\,/,$sr[0]);
if ($act eq "d") {
  print "たった今、元メッセージが削除されました。";
  exit;
}

$finddt = "^" . $addindex . "[0-9][0-9]\,";
@sr = grep(/$finddt/,@dt);

$findQTY = @sr;
$findQTY++;

$lines = $addindex . sprintf("%02d",$findQTY) . "\,\,\n";

push(@dt,$lines);

@wdt = sort {$a cmp $b;} @dt;

open (OUT,">tree.dat");
  print OUT @wdt;
close OUT;