Dirk,
I'm not a regex pro, but this worked for me: /^\d{4}(-\d{2}){0,2}$/
I tested it with this:
@test = qw( 2004 200412 20041201 2004-12 2004-12-01 );
foreach $test (@test) {
print $test : . ($test =~ /^\d{4}(-\d{2}){0,2}$/ ? TRUE : FALSE)
. \n;
}
Regards,
Mike
-Original
Richard,
I've been having similar difficulty using Win32::OLE with Internet Explorer
recently. I wrote code that worked a month ago that doesn't work today. Perl
simply can't get an OLE connection to Internet Explorer anymore, even though I
can still connect to Excel, etc. Something must
Hello,
I've been having problems with a similar code snippet. Several months ago I
wrote a perl script for my office that filled in a HTML form in Internet
Explorer using a database. The code worked successfully on four Win2k machines
here. One by one, the same code stopped working on the