Perl入学式 2019第3回 即席の正規表現練習問題

date_regex.pl

#!/usr/bin/env perl
use strict;
use warnings;

my $date = '07-13-2019';

# 「2019-07-13」の形式に直す。

# 正規表現でキャプチャしたものを並べ替える
$date =~ /(\d+)-(\d+)-(\d+)/;

print $3 . '-' . $1 . '-' . $2 . "\n";

# 正規表現でキャプチャしたもので置換する
$date =~ s/(\d+)-(\d+)-(\d+)/$3-$1-$2/;
print $date . "\n";

# おまけ・正規表現を使わない方法
$date = '07-13-2019';
my @array = split /-/, $date;
my $ymd   = join '-', ( $array[2], $array[0], $array[1] );
print $ymd . "\n";