perl Обработка массива

Так оно и так на perl, лол

Да но это однострочник.

Тогда ты непонятно сформулировал

Для не понятливых:

#!/usr/bin/perl
use warnings;
use strict;

my @arr= `ls -l`;

Как дальше получить, то что делает однострочник в стартовом посте.

Может это поможет?

$F[8]

Что-то я не могу найти $F в perlvar. Я так понимаю однострочник печатает колонку с индексом 8?

UPD Нашел:

-a                autosplit mode with -n or -p (splits $_ into @F)

Если правильно все понимаю, то:

for my $line (@arr) {
  print((split /\s+/, $line)[8], "\n");
}

print (map {split /\s+/} `ls -l`)[8];

как-то так

Всем спасибо.

Так лучше, да. У KennyMinigun тоже лучше.

Но если ОП не понимает самых базовых вещей - то мой пример чуть наглядней и в нем легко понять что происходит. А так да, производительность в моем случае будет хуже некуда.

в твоем примере хуже потому, что внутри цикла массив собирается? Это сильно скажется на производительности?

Ну лишние инициализации, лишние ресурсы. Если по всему проекту такое будет - то нормально скажется.

Хотя по моему опыту, там где нужна скорость - там перл не используют. И если уж на нем писать - то лучше бы писать читабельно и подробно, иначе вот к примеру лично ты вольешься в проект, в котором будет понапичкано:

"print (map {split /\s+/} `ls -l`)[8];"

Не разберешься и начнешь втыкать костыли, будет очень много разнородного кода. Ну и через какое-то количество лет проект может превратиться в кучу нечитабельной лапши, в которой вообще никто не разберется. Я лично видел как оно бывает.

Ну а если нужна скорость и работают опытные люди, которые понимают что они делают, вот тогда лучше писать хороший, оптимизированный код.

В лекциях есть , советую посмотреть https://sphere.mail.ru/curriculum/program/discipline/587/

Можно короче:

#!/usr/bin/env perl

use v5.20;

opendir( my $dh, '.' );

say foreach grep !/^\./, sort readdir($dh);

use v5.20;

Краткая (aka постфиксная) запись цикла помещает текущий элемент в переменную по умолчанию ($_).

Если print или say вызываются без аргументов, то в качестве аргумента передаётся значение $_

Следующие три строки аналогичны:

say;
say $_;
print "$_\n";

print $ta[8] . "\n";

Данные ключевые слова полные синонимы, но принято с помощью for обрабатывать счётчики, а foreach молотит списки.

Где принято? Книга с верблюдом рекомендует for

Не вспомню. Тоже в какой-то книге прочитал. Использовать for для циклов в C-style или

for (0..42) {
...
}

foreach my $camel (@camels) {
...
}

Самое во всём этом занятное - это то, что у ТС ввод читается с STDIN, про который здесь никто ничего так и не написал.