https://mobile.opennet.me/openforum/vsluhforumID9/8343.html Всем привет.<br>Никак не могу сообразить, как вызвать n раз один и тот же цикл, но с переопределение в нем переменной, написав его только 1 раз.<br>имеется<br>if($b=~/^\d{7,9}$/){<br>$b=$b/1048576;<br>$b=~s/\.\d+//;<br>$b="$b MB";<br>};<br>Данный цикл нужно вызывать n раз и значение $b переопределять при каждом новом вызове.<br><br><br><br> https://mobile.opennet.me/openforum/vsluhforumID9/8343.html#3 Thu, 09 Jul 2009 10:53:12 GMT Для начала неплохо было бы следовать правилам хорошего тона и использовать use strict, сдается мне, оно вам много нового расскажет о ваших программах. Непонятно что именно вызывает проблему. Если сделать my $b за циклом, то между итерациями $b будет сохранять значение, если внутри цикла, то на каждой итерации будет получать undef. <br> https://mobile.opennet.me/openforum/vsluhforumID9/8343.html#2 Thu, 09 Jul 2009 09:42:47 GMT &gt;&gt;if($b=~/^\d{7,9}$/){ <br>&gt;&gt; $b=$b/1048576; <br>&gt;&gt; $b=~s/\.\d+//; <br>&gt;&gt; $b="$b MB"; <br>&gt;&gt;}; <br>&gt;&gt;Данный цикл <br>&gt;<br>&gt;Простите, а где здесь цикл? Цикл будет, когда Вы напишете for, а <br>&gt;это всего лишь ветвление <br><br>while (@r=$result1-&gt;fetchrow_array){<br>@b=@r;<br>.......<br>отсюда<br>if(@b[0]=~/^\d{7,9}$/){ <br>@b=@b[0]/1048576; <br>@b[0]=~s/\.\d+//; <br>@b="@b MB";<br>};<br>досюда <br>этот блок мне нужно вставить в разные циклы.<br>.......<br>};<br> https://mobile.opennet.me/openforum/vsluhforumID9/8343.html#1 Thu, 09 Jul 2009 05:14:39 GMT &gt;if($b=~/^\d{7,9}$/){ <br>&gt; $b=$b/1048576; <br>&gt; $b=~s/\.\d+//; <br>&gt; $b="$b MB"; <br>&gt;}; <br>&gt;Данный цикл <br><br>Простите, а где здесь цикл? Цикл будет, когда Вы напишете for, а это всего лишь ветвление<br><br>