Возможность писать и читать файлы.<br>Делать что то типа<br><div style><pre><span class="cm-meta">getDir</span>(<span class="cm-string">'/'</span>);</pre><pre><span class="cm-keyword">sub</span> <span class="cm-meta">getDir</span>{</pre>
<pre>    <span class="cm-def">my</span>(<span class="cm-variable">$dir</span>,<span class="cm-variable">@content</span>,<span class="cm-variable">$subdir</span>,<span class="cm-variable">@all_files</span>);</pre><pre>    <span class="cm-variable">$dir</span> <span class="cm-operator">=</span> <span class="cm-keyword">shift</span>;</pre>
<pre>    <span class="cm-keyword">opendir</span>(<span class="cm-meta">DIR</span>,<span class="cm-variable">$dir</span>);</pre><pre>    <span class="cm-variable">@content</span> <span class="cm-operator">=</span> <span class="cm-keyword">grep</span> { !<span class="cm-operator">/^</span>\<span class="cm-operator">.</span>{<span class="cm-number">1</span>,<span class="cm-number">2</span>}<span class="cm-variable-2">$/</span>} <span class="cm-keyword">readdir</span>(<span class="cm-meta">DIR</span>);</pre>
<pre>    <span class="cm-keyword">closedir</span>(<span class="cm-meta">DIR</span>);</pre><pre>    <span class="cm-keyword">foreach</span> <span class="cm-variable">$subdir</span> (<span class="cm-variable">@content</span>){</pre>
<pre>            <span class="cm-keyword">if</span>(<span class="cm-variable">$subdir</span> <span class="cm-operator">=~</span> <span class="cm-string-2">/^\w+$/</span>){</pre><pre>                <span class="cm-variable">@all_files</span> <span class="cm-operator">=</span> <span class="cm-variable">$dir</span>;</pre>
<pre>                <span class="cm-meta">getDir</span>(<span class="cm-string">"$dir/$subdir"</span>);</pre><pre>            }<span class="cm-keyword">else</span>{</pre><pre>                <span class="cm-keyword">print</span> <span class="cm-string">"$dir/$subdir"</span>;</pre>
<pre>            }</pre><pre>            <span class="cm-keyword">print</span> (<span class="cm-string">"\n"</span>);</pre><pre>    }</pre><pre>}<br><br>Может всетаки ограничить только возможностями которые нужны для выполнения урока?<br>
</pre></div><br><br><div class="gmail_quote">2012/7/20 vti <span dir="ltr"><<a href="mailto:viacheslav.t@gmail.com" target="_blank">viacheslav.t@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
А что смущает?<br>
<div class="im HOEnZb"><br>
On 07/20/2012 01:56 PM, alex puhachev wrote:<br>
> А не много ли возможностей дает это обучалка?<br>
><br>
><br>
> 2012/7/20 Oleg Alistratov <<a href="mailto:ali@ali.org.ua">ali@ali.org.ua</a>><br>
><br>
>> Привет!<br>
>><br>
>> Много спасибо.<br>
>><br>
>> Замечание одно. Слишком подробный вывод в TAP позволяет мухлевать.<br>
>> Например, <a href="http://perltuts.com/tutorials/quick-start/strings" target="_blank">http://perltuts.com/tutorials/quick-start/strings</a><br>
>><br>
>> Запускаем:<br>
>>   not ok 1 - Should be at pos 4<br>
>><br>
>> Пишем<br>
>>   say 4<br>
>><br>
>> Все в порядке, index() не нужен )<br>
>><br>
>><br>
>><br>
>> 19.07.2012, 19:22, "vti" <<a href="mailto:viacheslav.t@gmail.com">viacheslav.t@gmail.com</a>>:<br>
>>> Друзья!<br>
>>><br>
>>> Разрешите представить вам Perltuts.com, интерактивные Perl-уроки (ну<br>
>>> ладно, там пока один только и то неполный).<br>
>>><br>
>>> Буду благодарен за отзывы :)<br>
>>><br>
>>> Спасибо!<br>
<br>
<br>
</div><div class="HOEnZb"><div class="h5">_______________________________________________<br>
Kiev-pm mailing list<br>
<a href="mailto:Kiev-pm@pm.org">Kiev-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/kiev-pm" target="_blank">http://mail.pm.org/mailman/listinfo/kiev-pm</a><br>
</div></div></blockquote></div><br>