Имя: Пароль:
IT
 
Изучаю перл. Запутался в СтрЗаменить...
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. Правда скорей всего тут ошибка, т.к. шаблон означает "один буквенноцифровой символ, дефис и перенос строки"
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс