повышение:: asio: Как я использую async_accept для принятия входящих соединений?

Версия Quick Perl с завершающей косой чертой:

ls -1 | perl -E 'say join ", ", map {chomp; 
 Версия Quick Perl с завершающей косой чертой: 
 [110] 
 Объяснить: 
 
 
 perl -E: выполнить Perl с поддержкой функций (скажем, ...) 
 
 говорят: печатать с возвратом носителя 
 
 join ",", ARRAY_HERE: соединять массив с помощью "," 
 
 map {chomp; $ _} ROWS: удалить из каждой строки возвращаемую несущую и вернуть результат 
 
 <>: stdin, каждая строка является ROW, в сочетании с картой она создаст массив каждой ROW 
 
} <>'

Объяснить:

• perl -E: выполнить Perl с поддержкой функций (скажем, ...)
• говорят: печатать с возвратом носителя
• join ",", ARRAY_HERE: соединять массив с помощью ","
• map {chomp; $ _} ROWS: удалить из каждой строки возвращаемую несущую и вернуть результат
• <>: stdin, каждая строка является ROW, в сочетании с картой она создаст массив каждой ROW