Help for this page

Select Code to Download


  1. or download this
    chomp(my $filename = <STDIN>);
my $dir = getcwd;
my $backupdir = 'backup_files';
my $back = $filename . ".bak";
my $backful = $dir . "/" . $backupdir . "/" . $back;
  2. or download this
    use File::Basename        qw( basename );
use File::Spec::Functions qw( catfile );
...
my $backupdir = 'backup_files';
my $back      = $filename . ".bak";
my $backful   = catfile($backupdir, $back);
  3. or download this
    use File::Basename        qw( basename );
use File::Spec::Functions qw( catfile rel2abs );
...
my $backupdir = 'backup_files';
my $back      = $filename . ".bak";
my $backful   = rel2abs(catfile($backupdir, $back));