Как мога да махна разширението на файл/ извлечен от директория/?
Точката ми създава проблеми в рег.израз.





само си питам

$filename = "first.second.third.ext";
$filename =~ s/(.+)?\..+[^\.]/$1/g;
print "$filename";

C:\test>perl test.pl
first.second.third
C:\test>

__________________________

Съдържаниет е скрито
Влезте за да го видите

Благодаря ти ! ти винаги помагаш.

$var = 'test.ga.lsa.txt';
$var = substr($var, 0, rindex($var, '.'));

($var is equal to test.ga.lsa now).

Eto i oste edin po-lesen na4in za reshqwane na problema.

Благодаря и на теб и двата начина отлично вървят.