To handle some of the other date formats:
m/^\s*(@#D(?:GREGORIAN|JULIAN|HEBREW|FRENCH
R|ROMAN|UNKNOWN)@\s*)?(ABT|BEF|AFT|FROM|TO|CAL|EST)?\s*(JAN|FEB|MAR|APR|MAY|JUN|JUL|AUG|SEP|OCT|NOV|DEC|VEND|BRUM|FRIM|NIVO|PLUV|VENT|GERM|FLOR|PRAI|MESS|THER|FRUC|COMP|TSH|CSH|KSL|TVT|SHV|ADR|ADS|NSN|IYR|SVN|TMZ|AAV|ELL)\s+(\d+)\s*$/i)
This would still leave
FROM 17 FEB 1978 TO MAR 1978
BET 17 FEB 1978 AND JUL 1978
to be handled. And the pattern could be made smarter to look for
French months only after @#DFRENCH R@, etc.
On Wed, Mar 25, 2009 at 10:29 PM, Philip Durbin <philipdur...@gmail.com> wrote:
> Yes, that works just fine. Thanks!
>
> Phil
>
> On Mar 25, 2009, at 11:09 PM, Stephen Woodbridge wrote:
>
>> This should work for the formats you show.
>>
>> if ($date =~
>> m/^\s*(JAN|FEB|MAR|APR|MAY|JUN|JUL|AUG|SEP|OCT|NOV|DEC)\s+(\d+)\s*$/i) {
>> print "ERROR: date has month($1) and year($2) but no day: $date\n";
>> }
>>
>> -Steve
>>
>> Philip Durbin wrote:
>>>
>>> I'd like to detect when a date in my GEDCOM file contains a year and a
>>> month but no day, such as "FEB 1978".
>>> I've written a small test (below) that you can run with "prove
>>> datebug.t". The answer I'm looking for is the proper $condition for the if
>>> statement in datebug.pl (also below).
>>> Gedcom::Date says "the Gedcom standard for genealogical data files
>>> defines a number of date formats" so it would be nice if the solution would
>>> work not just for the format my dates happen to use (i.e. 24 MAR 1964, which
>>> is what GRAMPS exported), but for any GEDCOM dates. That said, I would
>>> (selfishly) be content with a solution that only works for dates like mine.
>>> :)
>>> Thank you very much for your help!
>>> Phil
>>> [pdur...@macbook tmp]$ cat datebug.pl
>>> #!/usr/bin/perl
>>> use strict;
>>> use warnings;
>>> while (my $line = <DATA>) {
>>> chomp $line;
>>> my ($name, $date ) = split(/:/, $line);
>>> # what should the condition be?
>>> my $condition;
>>> if ($condition) {
>>> print "ERROR: date has month and year but no day: $date\n";
>>> }
>>> }
>>> __DATA__
>>> Person1:FEB 1978
>>> Person2:1 APR 1917
>>> Person3:JUL 1973
>>> Person4:24 MAR 1964
>>> [pdur...@macbook tmp]$
>>> [pdur...@macbook tmp]$ cat datebug.t
>>> use strict;
>>> use warnings;
>>> use Test::More tests => 1;
>>> is(
>>> `./datebug.pl`,
>>> "ERROR: date has month and year but no day: FEB 1978
>>> ERROR: date has month and year but no day: JUL 1973\n",
>>> 'datebug.pl is ok'
>>> );
>>> [pdur...@macbook tmp]$
>>
>
>
--
J. Hunter Johnson <><
http://www.hunterandlori.com
