@DimDimuch

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

Подскажите пожалуйста как с помощью perl удалить все после последнего символа (.) в текстовом файле?
Например, есть файл 1.txt
В нем:
gkjgklgn.jmnmmm.44444.55555.66666\hyjjkjmh
итого должно быть:
gkjgklgn.jmnmmm.44444.55555
  • Вопрос задан
  • 110 просмотров
Пригласить эксперта
Ответы на вопрос 2
@pcdesign
$string = "gkjgklgn.jmnmmm.44444.55555.66666\hyjjkjmh";
print substr($string, 0, rindex($string, "."));
Ответ написан
@DimDimuch Автор вопроса
А если строка "gkjgklgn.jmnmmm.44444.55555.66666\hyjjkjmh";
находится в самом файле 1.txt
Как правильнее указать файл в перловском скрипте, а не строку?
Так как содержимое файла 1.txt может меняться
Ответ написан
Комментировать
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы