|
Изучаю перл. Запутался в СтрЗаменить... |
☑ |
0
Wobland
23.05.12
✎
07:15
|
исходная задача: заменить в файле все минусы в конце строки, но только если перед минусом есть какой-то не_пробел.
while (<FILE>)
{
s/-\n/\n/;
print $_;
}
вот так вырезаются все минусы, а как бы сделать проверку на не_пробел? ну и ещё буду благодарен, если кто-то скажет, как называется слово НайтиФайлы()
|
|
1
badboychik
23.05.12
✎
07:30
|
по перлу уже лет 20 назад все доки написаны. По регуляркам вообще гугл ссылками закидыват по самое не могу. Не можешь найти раздел про выражение предпросмотра ?
(?>\S)-\n/\n
|
|
2
Wobland
23.05.12
✎
07:36
|
(1) да нашёл я место для потестить, толку с этого, я в синтаксисе путаюсь ;)
а этот набор символов не понял.
как-то так взлетело:
while (<FILE>)
{
s/-\n/\n/ if (/\w-\n/);
print $_;
}
close(FILE);
|
|
3
badboychik
23.05.12
✎
08:09
|
а чего непонятного ? тоже вариант решения, выполняется замена если строка соответствует шаблону после IF. Правда скорей всего тут ошибка, т.к. шаблон означает "один буквенноцифровой символ, дефис и перенос строки"
|
|