Пак за помощ.

4 отговора 160 прегледа
#1

Пак за помощ.

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





само си питам

Отговор
в отговор на Пak aз #2

Re: Пак за помощ.

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

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

__________________________
[линк]
Отговор
в отговор на Yankoff #3

Re: Пак за помощ.

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

Отговор
в отговор на Пak aз #4

Re: Пак за помощ.

$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.

Отговор
в отговор на sofit #5

Re: Пак за помощ.

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

Отговор