Пак за помощ.
4 отговора
160 прегледа
Пак за помощ.
Как мога да махна разширението на файл/ извлечен от директория/?
Точката ми създава проблеми в рег.израз.
само си питам
Точката ми създава проблеми в рег.израз.
само си питам
Re: Пак за помощ.
$filename = "first.second.third.ext";
$filename =~ s/(.+)?\..+[^\.]/$1/g;
print "$filename";
C:\test>perl test.pl
first.second.third
C:\test>
__________________________
[линк]
$filename =~ s/(.+)?\..+[^\.]/$1/g;
print "$filename";
C:\test>perl test.pl
first.second.third
C:\test>
__________________________
[линк]
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.
$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.