perl6.suОсвоим perl6 к 2015 году!

elems


       Имеем файл '/bibl/last.news', в котором содержатся заголовки последних новостей с lenta.ru. Попробуем прочитать первую в списке новость.
    
#!/usr/bin/perl6
my $novitates=open '/bibl/last.news';
my $novitas=get $novitates;
$novitas.say;
Госдума предложила запретить электронные сигареты

       Legimus. Будем знать. get легко забирает у файла его первую строку. А если еще раз сделать get?
    
#!/usr/bin/perl6
my $novitates=open '/bibl/last.news';
my $novitas=get $novitates;
$novitas.say;
$novitas=get $novitates;
$novitas.say;
Госдума предложила запретить электронные сигареты
Всеволод Чаплин назвал фильм НТВ о церкви адекватным

       Legimus. Новости важные, но двигаемся дальше. Очевидно, get забирает строки, пока это возможно. Скорее всего, имеется средство, позволяющее сразу вывести содержание файла в массив. Sic!
    
#!/usr/bin/perl6
my $novitates=open '/bibl/last.news';
my @list=$novitates.lines;
@list.elems.say;
40

       elems выводит нам количество элементов в массиве. Заметно, что их больше одного в данном случае. Возьмём новость из середины листа:
    
#!/usr/bin/perl6
my $novitates=open '/bibl/last.news';
my @list=$novitates.lines;
my $num=0.5*@list.elems;
"$num) @list[$num]".say;
20) Евгений Малкин набрал три очка в матче НХЛ

       Bene.
# mutatio postrema: 8 Aug 2010


       Если использовать массив или список как число, тогда в качестве оного берется количество элементов.
    
#!/usr/bin/perl6
my @mass=<pedis pulex acarus cimex>;
say @mass == 4;
say @mass + 10;
say <pedis pulex acarus cimex> == 4;
say <pedis pulex acarus cimex> + 10;
True
14
True
14

       Очевидно, что надо опасаться риска, что случайно можно обратиться с другим контекстом.
    
#!/usr/bin/perl6
my @mass=<pedis pulex acarus cimex>;
say @mass eq 4;
False

       Для явного вызова количества элементов массива есть оператор elems.
    
#!/usr/bin/perl6
my @mass=<pedis pulex acarus cimex>;
say @mass.elems;
say <pedis pulex acarus cimex>.elems;
4
4

       N.B. Пожалуй, лучше не рисковать и использовать elems.
# mutatio postrema: 8 Sep 2010

   массивы, открытие файла, elems, get, lines, open      charta situs       nota V, nota LVIII   

    RSS     stdin@perl6.su    © Alexius Karmanov, 2010-2011