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