blog.autopsy.se » Named Capture http://blog.autopsy.se basically; it sucks. everything sucks. but.. in a good way.. Mon, 02 Aug 2010 16:14:11 +0000 en hourly 1 http://wordpress.org/?v=3.0.1 Perl 5.8.8 sucks, or the lack of Perl 5.10 on my box sucks! Really http://blog.autopsy.se/2009/01/perl-588-sucks-or-the-lack-of-perl-510-on-my-box-sucks-really/ http://blog.autopsy.se/2009/01/perl-588-sucks-or-the-lack-of-perl-510-on-my-box-sucks-really/#comments Fri, 16 Jan 2009 01:44:34 +0000 ube http://blog.autopsy.se/?p=55 Been struggling with a regexp using perl since I couldn't get sed to work as I wanted (mainly "+" sucks with sed).

These are my tests:

# echo cold.case.S01E12.qweqwe |perl -pe 's/^(?:(.*)\.(\d+)x(\d+).*)|(?:(.*)\.S(\d+)E(\d+)).*$/\1 \2 \3 \4 \5 \6 \7/'
cold.case    01 12
#echo cold_case.1x12 | perl -pe 's/^(?:(.*)\.(\d+)x(\d+).*)|(?:(.*)\.S(\d+)E(\d+)).*$/\1 \2 \3 \4 \5 \6 \7/'
cold_case 1 12

Notice the three spaces in front of cold.case? It's because I can't get perl to do an alternate match. A friend came up with the following line:
perl -pe 's/(?:^(?<a>.*)\.(?<b>[0-9])+x(?<c>[0-9]+).*$)|(?:^(?<a>.*)\.S(?<b>[0-9]+)E(?<c>[0-9]+).*$)/$+{a} $+{b} $+{c}/'
Which works just fine, if you're running Perl 5.10, and I'm not! Or, it's not in the Gentoo repository yet. So I'll have to wait. Crap!

]]> http://blog.autopsy.se/2009/01/perl-588-sucks-or-the-lack-of-perl-510-on-my-box-sucks-really/feed/ 0