#!/usr/bin/perl
 
use strict;
use warnings;
 
use File::Find;
 
 
# tag "~/.emacs"
system("etags \"C:/Documents and Settings/dirk/Application Data/.emacs\"");
 
# tag all .el files of "C:\Program Files\Emacs"
find(\&tagEmacsFiles, "C:/Program Files/Emacs");
 
sub tagEmacsFiles()
{
	if( -f $_ )
	{
		if( $_ =~ m/\.[eE][lL]$/ )
		{
			# option -a means append to TAGS file
			system("etags -a \"$File::Find::name\"");
		}
	}
}

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

use File::Find;

my @file_list;

# tag "~/.emacs"
system("etags \"C:/Documents and Settings/dirk/Application Data/.emacs\"");

# tag all .el files of "C:\Program Files\Emacs"
find(\&addEmacsFilesToList, "C:/Program Files/Emacs");
for my $file (@file_list)
{
    system("etags -a $file");
}

sub addEmacsFilesToList()
{
    if( -f $_ )
    {
        if( $_ =~ m/\.[eE][lL]$/ )
        {
           push(@file_list, "\"$File::Find::name\"");
        }
    }
}