• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

Удаление "+"

  • Автор темы Автор темы Juliana
  • Дата начала Дата начала
J

Juliana

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

# 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;
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab