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

nota CIX. Class IO


       Стало интересно, что это за класс IO.
    
#!/usr/bin/perl6
my $file='/usr/local/lib/parrot/4.6.0/parrot_config.o';
$file.IO.changed().say;
1351598577

       Выводит время, когда файл был в последнее время изменен.
       Другие возможные методы: directory, prompt, modified, accessed...
       Если надо узнать, существует ли файл, можно сделать так:
    
#!/usr/bin/perl6
my $file='/usr/local/lib/parrot/4.6.0/parrot_config.o';
if $file.IO ~~ :e { 'file exsistit'.say }
else { 'file non exsistit'.say }
file exsistit

       То есть это как в perl 5: -e $file. Другие буковки:
    
#!/usr/bin/perl6
my $file='/usr/local/lib/parrot/4.6.0/parrot_config.o';
if $file.IO ~~ :d { 'file is directory'.say }
if $file.IO ~~ :f { 'file is file'.say }
if $file.IO ~~ :l { 'file is symbolic link'.say }
if $file.IO ~~ :r { 'file is readable'.say }
if $file.IO ~~ :w { 'file is writable'.say }
if $file.IO ~~ :x { 'file is executable'.say }
$file.IO.s.say; # размер файла
if $file.IO ~~ :z { 'file size is zero'.say }
file is file
file is readable
35416

       Эти буковки всегда пригодятся.
# mutatio postrema: 31 Oct 2012

   IO      charta situs       nota CVIII <<     >> nota CX   

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