temporary rename all files in var subfolder

Perl |

650 B

None

0 👍

0 👎

Raw Download Clone Embed Print View

#!/usr/bin/perl
# https://stackoverflow.com/questions/2601027/how-can-i-check-if-a-file-exists-in-perl
# https://stackoverflow.com/questions/3455956/how-do-i-get-the-dirname-of-a-file-with-perl
# https://stackoverflow.com/questions/67965882/finding-a-file-in-directory-using-perl-script
use File::Find;
use File::Basename;
 
my $curr_path="var";
 
my @content;
find( \&wanted, $curr_path);
 
for my $b (@content) {
    if (-f $b) {
    $tmp_name = dirname($b)."/1";
    rename $b, $tmp_name or die "$b: 1st rename error";
    rename $tmp_name, $b or die "$b: 2nd rename error";
    }
}
 
exit;
 
sub wanted {
    push @content, $File::Find::name;
  return;
}

Comments

01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎
01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎
01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎

Pasted

temporary rename all files in var subfolder

Comments