Hello,

I want to tag all my emacs files. Here is my first version.

#!/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\"");
        }
    }
}

[download]

The tagging within the find function is not working. Why???

Here is the second version. This one is working.

#!/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\"");
        }
    }
}

[download]

Would be really interesting for my me why the first version is not working.

Thank you.

Greetings,

Dirk

In reply to etags not working within function called by find by Dirk80

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.