Spliting af filnavn

Tag et kig på http://www.perldoc.com/perl5.8.0/pod/func/split.html
måske er det lige det du står og skal bruge :-)
Du vil nok have noget ala
$filnavn = "fil.dat";
($navn, $extension) = split(/\./,$filnavn);
(Utestet, men mon ikke det virker?)

Prøv med

$fil = "fil.dat";
$X = substr($fil,0,index($fil,"."));
$Y  = substr($fil,index($fil,".")+1);

Der findes sikkert en smartere måde. Men denne er da til at forstå

ravio's måde virker og er noget mere elegant.

tilgengæld virker den ikke, hvis der er et punktum i filnavnet... (fx Monster.cool-fil.txt

Det er rigtigt. I det tilfælde skal man beslutte sig for hvor man vil splitte og så evt. bruge rindex. så $filnavn bliver Monster.cool-fil

følgende gør også tricket... det er godtnok ikke så pænt, men det var lige, hvad jeg kunne finde på... det er testet og virker..

$file = 'fil.noget.txt';
$name = $file;
$extension = $file;
$name =~ s/^(.*)\.([^.]*)/$1/;
$extension =~ s/^(.*)\.([^.]*)/$2/;

det kan gøres noget pænere...

$file = 'fil.noget.txt';
$file =~/^(.*)\.([^.]*)/;
$name=$1;
$extension=$2;