решение первого задания: [vilfred@localhost ~]$ perl -e 'while(<*.*>){$c++; do{ print "$_ \n"; $a++} if -s $_ > 1024*1024}; print "all: $c \t big: $a\n"'
Re:Однострочники на Perl (нужна помощь!)
решение первого задания:
[vilfred@localhost ~]$ perl -e 'while(<*.*>){$c++; do{ print "$_ \n"; $a++} if -s $_ > 1024*1024}; print "all: $c \t big: $a\n"'
Mozilla/5.0 (X11; Fedora; Linux x86_64; rv:42.0) Gecko/20100101 Firefox/42.0