Возможность писать и читать файлы.
Делать что то типа
getDir('/');
sub getDir{
my($dir,@content,$subdir,@all_files);
$dir = shift;
opendir(DIR,$dir);
@content = grep { !/^\.{1,2}$/} readdir(DIR);
closedir(DIR);
foreach $subdir (@content){
if($subdir =~ /^\w+$/){
@all_files = $dir;
getDir("$dir/$subdir");
}else{
print "$dir/$subdir";
}
print ("\n");
}
}
Может всетаки ограничить только возможностями которые нужны для
выполнения урока?
2012/7/20 vti <[email protected]>
> А что смущает?
>
> On 07/20/2012 01:56 PM, alex puhachev wrote:
> > А не много ли возможностей дает это обучалка?
> >
> >
> > 2012/7/20 Oleg Alistratov <[email protected]>
> >
> >> Привет!
> >>
> >> Много спасибо.
> >>
> >> Замечание одно. Слишком подробный вывод в TAP позволяет мухлевать.
> >> Например, http://perltuts.com/tutorials/quick-start/strings
> >>
> >> Запускаем:
> >> not ok 1 - Should be at pos 4
> >>
> >> Пишем
> >> say 4
> >>
> >> Все в порядке, index() не нужен )
> >>
> >>
> >>
> >> 19.07.2012, 19:22, "vti" <[email protected]>:
> >>> Друзья!
> >>>
> >>> Разрешите представить вам Perltuts.com, интерактивные Perl-уроки (ну
> >>> ладно, там пока один только и то неполный).
> >>>
> >>> Буду благодарен за отзывы :)
> >>>
> >>> Спасибо!
>
>
> _______________________________________________
> Kiev-pm mailing list
> [email protected]
> http://mail.pm.org/mailman/listinfo/kiev-pm
>
_______________________________________________
Kiev-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/kiev-pm
