IB
Size: a a a
IB
AP
IB
IB
IB
IB
AP
Sort subroutine didn't return single value — меня это навело на мысльIB
AP
$ perl -MList::Util=uniq -E 'my @arr = qw(a b c); print join ", ", sort uniq @arr;'
Sort subroutine didn't return single value at -e line 1.
AP
glob в перле...AP
AP
glob в перле...AP
AP
IB
glob в перле...foreach my $file_name (glob '/data/projects/*.json') {K
AP
foreach my $file_name (glob '/data/projects/*.json') {SA