Using network paths

[riverrunner6]

Definate newbie to Perl and programming. I am attempting to script out a routine to search a file tree for a specific file. The code below works great on my local hard drive to produce a list of files but how do I work produce this list from a network drive?

Code:
#!/usr/bin/perl
use strict;
use warnings;

$Bentley = 'N:\building\'
@files = $Bentley<*.dgn>);
foreach $file (@files) {
print $file . "\n";
}
I am not doing this right using the array, any suggestions would be very helpful

D

 

[learingperl01]

I would look into using File::Find::name. You recursively searches path/dirs. You can also add a regex to only look for certain names, files extensions....Kinda like find on steroids.

 

[MoshiachNow]

I would do it simply using glob:

for (glob("\\\\$NetworkDrive\\*$DATE*")) {
next if ( $_ eq '.' or $_ eq '..');
print $_ . "\n";
}

Long live king Moshiach !

http://www.simpletoremember.com/vitals/seven-laws-of-noah.htm