File Perl

  1. Home
  2. Perl
  3. File
  4. Delete every file whose name ends in bak
#!/usr/bin/perl
use warnings;
use strict;
use File::Find;
find ( \&callback, "/") ;
sub callback {
    unlink $_ if /\.bak$/;
}