#!/usr/bin/perl -w use strict; use warnings; use CGI; my $q = CGI->new; print $q->header('text/html'); print "renamehuh Perl\n\n"; print '

Why doesnt this work

'."\n"; print '

'."\n"; 

  my $dir='/saveit/md5test';

  use File::Basename; 

  my $file=$dir.'/huh.saveit'; 

  my $dpart=dirname ($file); 
  my $fpart=basename($file); 
  my $nback=5; 
  if ($nback){ 
      if (-e $dpart.'/bkup'.$nback.'-'.$fpart) { unlink $dpart.'/bkup'.$nback.'-'.$fpart; } 
 
      for (;$nback>1;$nback--){ 
        my $nback1=$nback-1; 
        my $thisfn=$dpart.'/bkup'.$nback1.'-'.$fpart; 
        if (-e $thisfn) { myrename ($thisfn,$dpart.'/bkup'.$nback.'-'.$fpart);} 
        } 

      if (-e $file) { myrename ($file,$dpart.'/bkup'.$nback.'-'.$fpart); } 
      } #nback

  open (my $out,'>',$file); 
  my $time=time; 
  print $out "hi $time\n"; 
  close $out;   

  use HTML::Entities qw/encode_entities/;

  print "\n\n perl program is $0 \n";
  open (my $iam,'<',$0); 
  while (my $line=<$iam>){
    chomp $line; 
    print encode_entities($line)."\n";
    } 

exit; 
sub myrename{ 
  my $thisfn=shift; 
  my $newfn=shift; 
  print " \n";
  if  (-f $thisfn) {print "$thisfn exists \n";}
  print "rename $thisfn,$newfn\n"; 
  my $ok=rename $thisfn,$newfn;
  unless ($ok) {print "Cant rename $thisfn $newfn $!\n";} 
  unless (-e $newfn) {print " .. $newfn doesnt exist \n";}
  return $ok;  
  } # 

####

/saveit/md5test/huh.saveit exists 
rename /saveit/md5test/huh.saveit,/saveit/md5test/bkup1-huh.saveit
Cant rename /saveit/md5test/huh.saveit /saveit/md5test/bkup1-huh.saveit No such file or directory
 .. /saveit/md5test/bkup1-huh.saveit doesnt exist