VPF::Удалить все "+" - Форум программистов

Juliana10

Дата 19.1.2012, 15:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 19.1.2012

Репутация: нет
Всего: нет

Здравствуйте! Помогите,пожалуйста, с программой. Задание: Удалить все знаки «+», за которыми следует цифра. Программа удаляет ВСЕ "+", а мне надо,чтобы она удаляла только те "+", за которыми идет цифра. Подскажите,пожалуйста, где ошибка в программе? Заранее спасибо!
Код программы:

Код


# main program
$st=<STDIN>;
print "Loaded string: \"",$st,"\"\n";
@s=split('',$st);
for ($i=0;$i<=$#s;$i++)
{
if (($s[$i]="+")&&($s[$i+1]>"0")&&($s[$i+1]<="9"))
{
for ($j=$i;$j<=$#s-1;$j++) {$s[$j]=$s[$j+1];}
pop(@s);
$i--;
}}
print "Result1=\"",@s,"\"\n";
$st =~ s/\+//g;
print "Result2=\"",$st,"\"\n";
exit;

DurRandir

Дата 19.1.2012, 16:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 335
Регистрация: 27.9.2009

Репутация: 2
Всего: 17

perl -pe 's/\+(?=\d)//g'

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Регулярные выражения \| Следующая тема »