The Easiest (And Best?) Way To Search For Beautiful Wallpapers In Your Specific Screen Resolution And Size

Artem Russakovskii — Sun, 10 Jan 2010 00:25:35 +0000

There are undoubtedly a lot of wallpaper sites. Even more undoubtedly, most of them suck, both in content and filtering capabilities (by resolution, theme, etc).

My preferred way until recently was Deviant Art, because it had a lot of content and very nice filtering – I could specify my exact resolution.

However, as of some time ago, Deviant Art browsing by resolution disappeared, as evident from trying to find it on their site and from the comments on this post announcing the capability in the first place.

The Solution

Sometimes the solution lies right in front of our eyes – we just have to open them to see it.

A while ago, Google Image Search expanded their support for image size filtering (small, medium, large) to include the actual image size via this query:

imagesize:NNNNxNNNN

And because it's Google, you can add search terms to narrow down the subject.

Here are some examples.

Example 1: "wallpaper"

imagesize:1920×1200 wallpaper

The image size is so specific that it's usually not even necessary to include the word "wallpaper" – most of the results will already be wallpapers, except maybe for a few desktop screenshots.

Example 5: "babe"

imagesize:1680×1050 babe (be careful if you have SafeSearch off ;-] )

Starter Links Per Resolution

Here are some quick starter links for common resolutions to get you started:

Conclusion

What sites do you use to get your wallpapers, specifically allowing filtering by resolution? No spam links please.

[Perl] Finding Files, The Fun And Elegant Way

Artem Russakovskii — Wed, 08 Apr 2009 14:00:00 +0000

No matter what programming language you use, there comes a time when you need to search for a file somewhere on the file system. Here, I want to talk about accomplishing this task in Perl. There are many ways of doing so, most of them boring, but I want to discuss the fun and elegant way – using File::Find::Rule.

Let me briefly discuss some of the other methods first.

Limited

Using glob() (or <>, TODO verify) you can find files in a single directory, using only the limited shell wildcard support. For example,

1	my @files = glob("tmp*");

I prefer glob() to <> because glob()'s parameters can be more than just text (for ex functions) while <> treats everything inside as text.

Boring

File::Find is the de facto standard for searching in Perl.

This method finds files that end in .pl in "." and "../SomeDir", following symlinks:

#!/usr/bin/perl -w
 
use File::Find;
use Data::Dumper;
use File::Basename;
my @directories_to_search = (".", "../SomeDir");
my @file_list = ();
 
find(
  { wanted =>
    sub {
      if ( basename($File::Find::name) =~ /\.pl$/i )
      {
        push @file_list, $File::Find::name;
      }
    },
    follow => 1
  },
  @directories_to_search
);
print Dumper @file_list;

It works fine, except it's horribly ugly and boring. Let's have a look at something more fun.

The Fun And Elegant Way

File::Find::Rule. Just have a look at this beauty.

Just like above, find all .pl files in "." and "../SomeDir", following symlinks:

1 2	print Dumper (File::Find::Rule->name("*.pl")->file->extras({ follow => 1 })-> in(".", "../SomeDir"));

Same as above, except bypass .svn directories (shaves off a ton of time with a lot of directories):

1 2	print Dumper (File::Find::Rule->not(File::Find::Rule->directory->name('.svn')-> prune->discard)->name("*.pl")->file->extras({ follow => 1 })->in(".", "../SomeDir"));

Find all .log files that are older than 24 hours in "."

1
2
3

my $epoch_time_1_day_ago = time() - 60*60*24;
print Dumper (File::Find::Rule->file->name("*.log")->
mtime("<$epoch_time_1_day_ago")->in('.'));

Be sure to read the File::Find::Rule perldoc for more options and remember: have fun with your code!

Thanks to Perlbuzz and Andy Lester for pointing me to this library a few months ago.

beer planet » find