File Perl

  1. Home
  2. Perl
  3. File
  4. Rename a file
#!/usr/bin/perl -w
use strict;
print "enter new file name: ";
chomp(my $newname = );
rename "../yourData.dat", $newname or die "rename failed: $!\n";
print "file moved successfully!\n";