[115850]Вот один способ:[12144]Пояснение:[12145]-000[116337] : включает "режим абзаца", устанавливает [116338]perl[116339] разделитель полей на [116340]\n\n[116341], последовательные новые строки. Это означает, что каждая из ваших записей будет рассматриваться как одна строка.[12146]@f=split(/\n/);[116343] : разделите текущую строку (запись) на новые строки и сохраните как массив [116344]@f[116345]. Теперь этот массив содержит каждое поле из вашей записи. Это означает, что срез массива [116346]@f[0,2..8][116347] будет содержать поля от 0 и от 2 до 8.[12147]распечатать join ",",@f[0,2..8] , "\n"'[116349] : это соединит срез массива запятыми и распечатает полученную строку, за которой последует новая строка. [12148]
27.01.2020, 20:36
Ссылка