I have a large set of filenames that may or may not have names (as part of the string). I've been using regexes and some logic to determine this.

There has to be something in cpan that I can use to test if a string is a name or has a name in it.. etc.

But I don't find that, the closest I find is data in Data::RandomPerson, which has.. some census data to pull a random name, etc.

I want to be able to do something like.. 

use Lingua::EN::Names 'is_name'; # ??

my $string = '123-James-Rubyn2134_docs.pdf';
my @names = grep{ is_name( lc($_) )  } split( /\W+/, $string );

print "Names : @names\n";

[download]

Now, I could have coded this in the time it took to look it up, fail, and ask. But- Is something like this out there? Like.. a Data Census list that can easily be queried.. I'm having a hard time believing it's not just me left wanting on my search skills.

update

Lingua::Names . It's a hack.. but it has a test suite and .. dammit.. it works. Does what I needed.

In reply to missing simple 'is this a name' module on cpan? by leocharre

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.