2011-03-28T15:28:36 PETER_PAN2009

Hallo Leute!

Ich habe gerade ein schönes Beispiel in Bezug auf "Dateiendung mit Perl extrahieren" gefunden und wollte mal fragen, was das [0] eigentlich bedeutet?

Code (perl): (dl )

my $ext = ($file =~ m{([^.]+)$})[0]

1
2
3
4
5

my $ext;
if($text=~m/([^.]+)$/)
{
  $ext=$1;
}

1
2
3
4
5

my $ext;
if(my @results=$text=~m/([^.]+)$/)
{
  $ext=$results[0];
}

1
2

my @results=$text=~m/([^.]+)$/;
my $ext=$results[0];

my $ext=($text=~m/([^.]+)$/)[0];

2011-03-28T15:28:36 PETER_PAN2009

Die zweite Frage:
Wenn die Datei keine Endung hat(z.B. D:/test/Logger) soll es ebenfalls in der $ext gespeichert werden.
Mit dem Versuch

Code (perl): (dl )

my $ext = ($file =~ m{([^.]+)$})[0] || ($file =~ m{.*Logger$}[0]

hatte ich leider nicht so viel Erfolg :-(!

my $ext = ($file =~ m{([^.]+)$})[0] || ($file =~ m{.*Logger$})[0];

1
2

my $ext=($file =~ m{([^.]+)$} )[0];
   $ext=($file =~ m{.*Logger$})[0] unless($ext);