IC
Не знал)
Size: a a a
2020 June 12
SZ
А в зависимости от контекста - ещё и разворачивает его
SZ
Как вот тут, в скалярном
SZ
А в списочном не стал бы
IC
SZ
покажи
Тебе нужно либо это:
Либо это:
my (undef, undef, @provides) = map { split /\s+/ } grep /# PROVIDE: /, @rcbody);Либо это:
my @provides = map { do { my $i = 0; grep { $i++ >= 2 } split /\s+/ } } grep /# PROVIDE: /, @rcbody);IB
@PerlBanjoBot
use Data::Dumper;
## скаляр
my $str = 'Hello';
my $result = reverse $str;
warn Dumper $result;
## массив
my @arr = ('one', 'two');
my @result = reverse @arr;
warn Dumper \@result;
P
@PerlBanjoBot
use Data::Dumper;
## скаляр
my $str = 'Hello';
my $result = reverse $str;
warn Dumper $result;
## массив
my @arr = ('one', 'two');
my @result = reverse @arr;
warn Dumper \@result;
IB
Но ты, конечно, совершенно прав.
SZ
@PerlBanjoBot
use Data::Dumper;
## скаляр
my $str = 'Hello';
my $result = reverse $str;
warn Dumper $result;
## массив
my @arr = ('one', 'two');
my @result = reverse @arr;
warn Dumper \@result;
Ну путай контекст и аргументы!
SZ
@PerlBanjoBot
use Data::Dumper;
## скаляр
my $str = 'Hello';
my @result = reverse $str;
warn Dumper \@result;
## массив
my @arr = ('one', 'two');
my $result = reverse @arr;
warn Dumper \$result;P
@PerlBanjoBot
use Data::Dumper;
## скаляр
my $str = 'Hello';
my @result = reverse $str;
warn Dumper \@result;
## массив
my @arr = ('one', 'two');
my $result = reverse @arr;
warn Dumper \$result;VG
Тебе нужно либо это:
Либо это:
my (undef, undef, @provides) = map { split /\s+/ } grep /# PROVIDE: /, @rcbody);Либо это:
my @provides = map { do { my $i = 0; grep { $i++ >= 2 } split /\s+/ } } grep /# PROVIDE: /, @rcbody);да уж, sub cdrcdr короче :)
SZ
да уж, sub cdrcdr короче :)
++
SZ
да уж, sub cdrcdr короче :)
Если в каждой строке PROVIDE надо убрать первые два слова, то да :)
SZ
Хотя в твоём частном случае можно ещё и substr жахнуть
VG
Если в каждой строке PROVIDE надо убрать первые два слова, то да :)
ну можно было бы еще тупо вырезать регэкспом
VG
Хотя в твоём частном случае можно ещё и substr жахнуть
не, у меня их 4 штуки отличающейся длины https://t.me/freebsd_ru/155219
SZ
Таки да. Либо внутри map сунуть в (undef, undef, @arr) и вернуть его из map
2020 June 13
SZ
@nuclight я тут все думал, как же это красивее сделать.
Смотри, вот тут ты используешь @body только четыре раза и как раз для того страшного split.
В результате, если файлов много, то ты сильно затормаживаешь обработку.
А ведь можно по классике, в один проход по каждому файлу.
Смотри, вот тут ты используешь @body только четыре раза и как раз для того страшного split.
В результате, если файлов много, то ты сильно затормаживаешь обработку.
А ведь можно по классике, в один проход по каждому файлу.
while(defined($_ = <$fh>)) {
chomp;
...
}