I would post excerpts here, but I don’t think they would do the piece justice.  The entire statement is worth a read.  It made me happy to be an Apple customer.

Yep. Now you might see the problem.

At first I wasn’t worried about them, because tar made the files vanish when I extracted the tarball to another location on my Mac. Assuming this was some quirk in tar, I posted the tarball to CPAN and went on my merry way. As it turned out, extracting the tarball on any non-Mac system retained all the shadow files, including ._Makefile.PL. That one caused the install process to fail and made the module essentially useless.

The only mention of tar’s new behavior I found was in a blog post about the same problem I was having. Turns out that it’s a relatively new twist on an old problem, new because tar itself had been updated to create and consume the dot-underscore files. There were other notes about these files (aka AppleDouble files) around the Web, but the proposed remedy was always the same: delete the files once they’re on the target system. Unfortunately, that’s not good enough when the target is CPAN.

tar’s own ability to –exclude input files was no use, either, because it creates the files after the exclude filter is processed. There is a –delete option, but it requires a specific filename so I’d have to remove the files one at a time. Now that the task had moved from impossibility to drudgery, however, the solution was obvious: a Perl script!

#!/usr/bin/perl

use Archive::Tar;
use IO::Zlib;
use File::Copy;

my $USAGE = ” Usage: $0 FILENAME\n”;

my $tar_file = $ARGV[0]
or die $USAGE;

my $tar = Archive::Tar->new($tar_file);

my @files_to_remove;
foreach my $file ( sort $tar->list_files( ['name'] ) )
{
print ” $file”;
if ($file =~ ‘/\._’ or $file =~ ‘.DS_Store’)
{
print ” …will be removed.”;
push @files_to_remove, $file;
}
print “\n”;
}

unless ( scalar(@files_to_remove) )
{
print “No files were found to remove. The archive is unchanged.\n”;
exit;
}

my $backup_file = $tar_file . “.bak”;
copy($tar_file, $backup_file);
print “Backup file written to $backup_file.\n”;

$tar->remove(@files_to_remove);

print “Clean archive:\n”;
foreach my $file ( sort $tar->list_files( ['name'] ) )
{
print ” $file”;
print “\n”;
}

$tar->write($tar_file, 1);

print “Clean file has been written.\n\n”;

I’ll probably clean that up and submit it to CPAN as well, but hopefully Apple will add a –dont-be-evil option to tar before I get the chance.

Gee (I’m going to stop exclaiming it) checks GMail’s Atom feed for my messages and updates a small blue circle in the menubar with the count of new ones. Pretty standard, but Gee goes one louder: clicking on the circle drops down a list of the senders’ addresses (or subject, or a combination depending on preference) so that I can quickly tell the difference between spam and an important message without pulling up GMail itself. If that’s not enough, Gee also lets me reset the counter so I can _choose to ignore it_ until something newer comes in.

That combination of simple features provides the best attention-span booster I’ve had in weeks. Of course, I just blew any productivity gain by blogging about it, but I had to share the love.