# Version One sub post_process { my ($path,$yymmdd) = @_; my %rename_table = ("foo_data_a.results" => "bar_abc_foo_data_$yymmdd", ("foo_data_b.results" => "bar_bcd_foo_data_$yymmdd", ("foo_data_c.results" => "bar_cde_foo_data_$yymmdd", ("foo_data_d.results" => "bar_def_foo_data_$yymmdd", ("foo_data_e.results" => "bar_efg_foo_data_$yymmdd", # Don't do anything if any files are missing. for my $src_file (keys %rename_table) { if (!file_exists("$path/$src_file")) { die "$src_file missing. Go yell at Jorge.\n"; } } for my $src_file (keys %rename_table) { # Rename the file my $to_base = "$path/$rename_table{$src_file}"; rename_file("$path/$src_file","$to_base.results"); touch_file("$to_base.FLG"); } } sub file_exists { my ($filename) = @_; #return (-f $filename); return 1; } sub rename_file { my ($src,$dst) = @_; # return rename $src,$dst return 1; } sub touch_file { my ($filename) = @_; # return `touch $filename`; return 1; }