Problem mit Regular Expression

[Masipulami]

Hab sogar noch was hässlicheres zusammen gebastelt:

my $week = "18/10/2007";

my $year_for_filename = $week;
my $month_for_filename = $week;
my $day_for_filename = $week;

$year_for_filename =~ /([0-9]{4}$)/;
$month_for_filename =~ /([/][0-9]{2}[/])/;
$month_for_filename =~ s/(^[1])//;
$month_for_filename =~ s/([/]$)//;
$day_for_filename =~ /(^[2]{2})/;
my $week_for_filename = $year_for_filename . $month_for_filename . $day_for_filename;

Als Ergebnis will ich halt in $week_for_filename folgenden Inhalt: 20071018

Auch das muss doch schöner gehen oder nicht?

---

1. / ↩︎

2. 0-9 ↩︎