Backreferencing through two sets of slashes

[Eric Smith]

Hi

if ( $foo =~ /(\d\d)-(\d\d)-\d\d\d\d/ and $bar =~ /(\d?\d)\d\d)\d
\d)/ )
{
# How do I match here the the two fields of $foo ?
# Or is it not possible in a single construction?
# $bar of course gives its ($hours, $minutes, $seconds) = $1, $2 and
$3
}

Thanks

Eric Smith

 

[C.DeRykus]

Hi

if ( $foo =~ /(\d\d)-(\d\d)-\d\d\d\d/ and $bar =~ /(\d?\d)\d\d)\d
\d)/ )
{
# How do I match here the the two fields of $foo ?
# Or is it not possible in a single construction?
# $bar of course gives its ($hours, $minutes, $seconds) = $1, $2 and
$3

}

You may need to clarify or provide some actual
data... If, possibly, you're trying to match
alternate date formats, you might use something
such as this:

if ( /(?| (\d\d) - (\d\d) - (\d{4}) # format 1
| # or
(\d\d?) : (\d\d) : (\d{4}) # format 2
)/x )
{
print "\$1=$1 \$2=$2 \$3=$3\n";
}

* see perlre for meaning of (?|pattern) "branch
reset pattern)