Perl. Помогите с регуляркой.

while (<>) { echo «Oppa! $_» if /\.string$/; }

Спасибо, помогли.

substr($string, -6, 6) eq 'string'

Ты кстати 0 брал, там обычно весь матч лежит, а не группа. Группа в 1.

-7, 7) eq '.string' же.

[$string =~ /\.(.+)$/]->[0]

эпический программизм. никогда не забуду как один товарищ детектил первый символ в строке разбивая строку на массив символов и проверяя первый элемент.