Все с наступившим новым Годом!


Помогите, имею файл My.File.Second.jpeg

как мне выделить в две различных переменных

$i="My.File.Second";
$ii="jpeg";

Если бы без точек разделил бы сам.

my ($head, $tail) = $file =~ /(.*)\.(.*)/

Спасибо большое!!!!!!!!!!!!
а есть ли возможность расшифровать словами что именно значит /(.*)\.(.*)/ 

Она немного хитрая. Использует "жадность" оператора "*". Если переводить её дословно - то будет "захвати всю строку, потом отдай обратно всё до первого с конца (т.е. последнего - как раз он нам и нужен) символа точки, и во 2ю группу захватить остаток после точки до конца строки".

Регулярка, используяющая жадность, работает дольше чем с чётким определением, тем более без граничных маркеров.

Лучше использовать /^(.*)\.([^.]+)$/

1) Всё, что начинается с .*, не требует ^ - оно сматчится в любом случае с начала, в крайнем случае дав пустую строку
2) Аналогично для $ и конечного .*
3) Фраза "Регулярка, используяющая жадность, работает дольше чем с чётким определением", в общем-то, верна, но в вашей регулярке - жадность осталась, единственный кусок, который будет отыгрываться назад - это, как раз, /(.*)\./ - его вы никуда не дели, зачем-то только навесив на 2ю половину требование проверки отсутствия точки - которой там никогда не будет. Поздравляю, движку задана лишняя работа 
4) Если уходить от жадности, то тогда уж /(.*?)\.([^.]+)$/ (найдите 2 отличия, и вот здесь якорь $ обоснован), но она будет работать медленнее жадного варианта. Догадываетесь, почему?)

Это сообщение отредактировал(а) DurRandir - 5.1.2011, 17:45

В версиях 5.8 и 5.10 был баг, в результате которого вариант /(.*)\.(.*)/ весьма притормаживал -- начинал делать лишние обходы в поисках дополнительных вариантов.
Исправлен в 5.12

Где в инете можно почитать об жадных регулярках

>evya
Хорошая книга по регуляркам - http://oreilly.com/catalog/9780596528126

>vadiml
Я на 5.8.8 прогнал жадный вариант под  use re 'debug'  - он отработал ровно то, что должен по теории. М.б. там нужен какой-то более сложный пример.

Есть ли возможность выслать в pdf?

Я её где-то в сети находил. 

как к специалисту,
подскажи еще по регулярке
имею имя файла 802FILE.JPEG

Необходимо отделить первые цифры от имени файла и само имя файла

имя файла может быть

1File.jpeg
10File.jpeg
100File.gpeg
1000File.gpeg

Добавлено через 8 минут и 20 секунд
или немного проще
есть имя файла 802FILE.JPEG
есть переменная $id=802

как отделить в $file без $id

Ну это же вообще простейшая) Тут даже perlretut достаточно.

my ($num, $name) = $file =~ /^(\d+)(.*)/;

может я неправильно написал!

есть имя файла 802FILE.JPEG
есть переменная $id=802
как отделить в $file без $id
т.е.$newfile="FILE.JPEG";


А вашем выражении нет $id

my ($num, $name) = $file =~ /^(\d+)(.*)/; 

Если найти файл который начинается на $id и записать в $newfile все что идет за $id,то так:

my ($newfile)= $file =~ /^$id(.*)/;

или, наверное, лучше так:

my ($newfile) = $file =~ /^$id(\D.*)/;

если $id состоит из цифр.

Это сообщение отредактировал(а) alezzz - 7.1.2011, 22:59