Как удалить все после последнего символа в текстовом файле?

Question

[DimDimuch]

Подскажите пожалуйста как с помощью perl удалить все после последнего символа (.) в текстовом файле?
Например, есть файл 1.txt
В нем:
gkjgklgn.jmnmmm.44444.55555.66666\hyjjkjmh
итого должно быть:
gkjgklgn.jmnmmm.44444.55555

Answer 1

[pcdesign]

$string = "gkjgklgn.jmnmmm.44444.55555.66666\hyjjkjmh";
print substr($string, 0, rindex($string, "."));

Comments

[DimDimuch]

А если строка "gkjgklgn.jmnmmm.44444.55555.66666\hyjjkjmh";
находится в самом файле 1.txt
Как правильнее указать файл в перловском скрипте, а не строку?
Так как содержимое файла 1.txt может меняться

[pcdesign]

DimDimuch, открываете файл. Построчно его считываете.

Answer 2

[DimDimuch]

А если строка "gkjgklgn.jmnmmm.44444.55555.66666\hyjjkjmh";
находится в самом файле 1.txt
Как правильнее указать файл в перловском скрипте, а не строку?
Так как содержимое файла 1.txt может меняться