regexes

[Matija Papec]

If you ever come to idea making regexes more challenging, you could always
try it in php,

my $ym = 200405;
my($year, $month) = $ym =~ /^(\d{4})(\d{2})$/;

is "same" as,

$ym = 200405;
preg_match("/^(\d{4})(\d{2})$/", $ym, $tmp);
list($year, $month) = array_slice($tmp, 1);

 

[Steven Kuo]

If you ever come to idea making regexes more challenging, you could always
try it in php,

my $ym = 200405;
my($year, $month) = $ym =~ /^(\d{4})(\d{2})$/;

is "same" as,

$ym = 200405;
preg_match("/^(\d{4})(\d{2})$/", $ym, $tmp);
list($year, $month) = array_slice($tmp, 1);

IMO, regular expressions are unwieldy in any language, including Perl.

Here's a contender in Tcl:

% foreach { year month } [ lrange [ regexp -inline -- {^(\d{4})(\d{2})$} "200405" ] 1 end ] { break }

% puts $year
2004

% puts $month
05

 

[Matija Papec]

X-Ftn-To: Steven Kuo

IMO, regular expressions are unwieldy in any language, including Perl.

It's not only the regex, but the complete path from matching to puting
things in desired places. Perl is very elegant at it, and PHP is far from
elegancy.

Here's a contender in Tcl:

% foreach { year month } [ lrange [ regexp -inline -- {^(\d{4})(\d{2})$} "200405" ] 1 end ] { break }

OMG.