Perl: удаление остатка строки после обнаружения определенного символа

Question

Я делаю некоторую очистку данных в файле.Итак, я читаю каждую строку, проверяю определенные условия и выполняю соответствующую операцию в файле.Одна из вещей, которые мне нужно сделать, это проверить наличие символа $ в строке.Если найдено, мне нужно удалить оставшуюся часть строки, включая $.Например, если строка

abc$hello-goodbye

, мне нужно получить

abc

Как мне это сделать в Perl с минимальным кодом?Использовать регулярное выражение какого-нибудь рода?

Answer 1

Самый быстрый - это простое регулярное выражение:

$string =~ s/\$.*//;

, где

$string = 'abc$hello-goodbye';

Answer 2

в рубине

>> "abc$def".split("$")[0]
=> "abc"
>>

Аналогично, используйте функцию split() из Perl, чтобы сделать это и получить первый элемент. См. perldoc -f split для получения дополнительной информации

Answer 3

Вы можете использовать регулярное выражение или комбинацию index и substr.

Это не должно быть слишком сложно.