backup.pm

package backup;

use File::Copy;
use strict;

#backupを保存するフォルダ
my $backup_dir = "db/backup";

#backup::filecopy($file);#$file : コピーするファイル名

sub filecopy {
  my $file = shift;
  my $backup = $file;

  #パスからファイル名を取得
  $backup =~ s/^.*\/(.*)\..*$/$1/;

  my $num = setNumber($backup_dir."/".$backup."_count.txt"); 
  copy($file,$backup_dir."/".$backup.$num);

}

sub setNumber {
  my $count_txt = shift;

  my $count;
  open(OUT, "+<"."$count_txt");
  flock(OUT,2);

  open(IN, "$count_txt");
  $count = <IN>;
  close(IN);
  $count++;
  $count ="1" if ($count le 10);
  my $old = select(OUT); $| = 1; select($old);
  print OUT $count;

  truncate(OUT, tell(OUT));
  close(OUT);
  return $count;
}
1;