I did a quick search, but didn't quite find anything that was sufficiently close to be an answer
I'm trying to use File::Find to find image files, so I can randomly change my wallpaper. I know; it's a silly task ⌣. My problem is that I have a bunch of image files on a flash drive, and File::Find won't follow a symbolic link to the contents of the flash drive. I suspect it's because File::Find, even when $File::Find::follow is set won't recurse into a different file system.
I'm using Fedora 21, Perl v5.18.4, File::Find version 1.23. sub image_search {
my $name = $File::Find::name;
my $dir = $File::Find::dir;
my @globbed;
my @temp;
my $images = '(png$)|(jpg$)|(gif$)|(jpeg$)';
if (-l $name) {
print "processing link named $name\n";
@globbed = glob("$name/*");
}
else {
print "processing directory named $dir\n";
@globbed = glob("$dir/*");
}
if (@globbed) {
@globbed = grep {m/$images/i} @globbed;
$image_list{$dir} = [@globbed];
}
} ## end sub image_search
Sorry for the a) less-than-optimal code design and b) absence of comments.
Information about American English usage here and here. Floating point issues? Please read this before posting. — emc
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|