use File::Find;
use Win32::DriveInfo;

for( Win32::DriveInfo::DrivesInUse )
{
   find( \&handleFind, "$_:" );
}

sub handleFind {... same as before ...}
[download]

Note: installing Win32::DriveInfo requires installing Win32::API. The former is available only from CPAN, the latter is available as a PPM. Fortunately Win32::Drive info is pure Perl and can simply be copied to C:/perl/lib/site/lib/win32 and used from there.

I agree, Win32::DriveInfo is best.
As we just discussed here, this code also works:

use File::Find;
use Win32API::File qw( :Func :DRIVE_ );

my @drives = map { tr{\\}{/}s; $_ }
             grep { GetDriveType($_) == DRIVE_FIXED }
             getLogicalDrives();

find( sub {
  $File::Find::prune = 1, return
    if $File::Find::name =~ m{^.:/System Volume Information$};
  print "$_\n";
}, @drives );
[download]

Perhaps someone will find it useful when Win32API::File is at hand, but Win32::DriveInfo is not.

% find2perl -name "*.txt"

I edited the wanted function adding the && print $name,"\n";

#! /usr/bin/perl -w
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
        if 0; #$running_under_some_shell

use strict;
use File::Find ();

# Set the variable $File::Find::dont_use_nlink if you're using AFS,
# since AFS cheats.

# for the convenience of &wanted calls, including -eval statements:
use vars qw/*name *dir *prune/;
*name   = *File::Find::name;
*dir    = *File::Find::dir;
*prune  = *File::Find::prune;


# Traverse desired filesystems
File::Find::find({wanted => \&wanted}, '.');
exit;


sub wanted {
    /^.*\.txt\z/s && print $name,"\n";
}
[download]

@drives = &someSubThatReturnsListODrives();
foreach my $drive ( @drives ) {
      find(\&handleFind, $drive);
}

sub handleFind {
      my $foundFile = $File::Find::name if 'VCVARS32.BAT';
      print "$foundFile\n";
}
[download]

That's wierd! I didn't type


$File::Find::name if 'VCVARS32.BAT'


I typed $drive

what's up with that?