File Perl

  1. Home
  2. Perl
  3. File
  4. Using a Callback
#!/usr/bin/perl
use warnings;
use strict;
use File::Find;
find ( \&callback, "/") ; # Warning: Lists EVERY FILE ON THE DISK!
sub callback {
    print $File::Find::name, "\n";
}