AO
my ($key, $value) = split /=/, $string, 2;Size: a a a
2020 December 17
SZ
Плохой ответ
А хорошего нет;)
IB
Как сделать, чтобы при сплите получалось ровно столько значений, сколько задано в лимите?
То есть я хочу получить тут
вместо
такое
То есть я хочу получить тут
perl -M'Data::Dumper' -e '@t = split(/=/, "ab", 2); print Dumper(\@t);'вместо
$VAR1 = [
'ab'
];
такое
$VAR1 = [
'ab',
undef
];
а задача ровно в том чтобы аккуратно все это в хеш сложить?
A
А хорошего нет;)
Просто хотелось бы слышать в ответ обоснованное мнение, а не просто мнение.
SZ
Просто хотелось бы слышать в ответ обоснованное мнение, а не просто мнение.
Ты у себя изменяешь массив с помощью push. Это не производительно
g
а задача ровно в том чтобы аккуратно все это в хеш сложить?
Да.
Хочу получить что-то типа, только правильно.
Хочу получить что-то типа, только правильно.
perl -M'Data::Dumper' -e '%h = map { split(/=/, $_, 2) } split(/\s+/, "a=b c=d e=f g i=j"); print Dumper(\%h);'$VAR1 = {
'a' => 'b',
'e' => 'f',
'c' => 'd',
'g' => 'i',
'j' => undef
};SZ
а задача ровно в том чтобы аккуратно все это в хеш сложить?
Вот-вот, плясать надо от задачи. Вероятно он там построчно парсит
g
Вот-вот, плясать надо от задачи. Вероятно он там построчно парсит
Построчно, да.
IB
возможно, я бы делал это не сплитом, а регуляркой
A
В строке одна пара или может быть больше?
g
В строке одна пара или может быть больше?
Произвольное количество.
SZ
Да.
Хочу получить что-то типа, только правильно.
Хочу получить что-то типа, только правильно.
perl -M'Data::Dumper' -e '%h = map { split(/=/, $_, 2) } split(/\s+/, "a=b c=d e=f g i=j"); print Dumper(\%h);'$VAR1 = {
'a' => 'b',
'e' => 'f',
'c' => 'd',
'g' => 'i',
'j' => undef
};@PerlBanjoBot
$ perl -M'Data::Dumper' -e 'for(split(/\s+/, "a=b c=d e=f g i=j")){my ($k, $v) = split(/=/, $_, 2); $h{$k}=$v}; print Dumper(\%h);'P
@PerlBanjoBot
$ perl -M'Data::Dumper' -e 'for(split(/\s+/, "a=b c=d e=f g i=j")){my ($k, $v) = split(/=/, $_, 2); $h{$k}=$v}; print Dumper(\%h);'$VAR1 = {
'a' => 'b',
'e' => 'f',
'g' => undef,
'i' => 'j',
'c' => 'd'
};
https://PerlBanjo.com/65317e3bd5
'a' => 'b',
'e' => 'f',
'g' => undef,
'i' => 'j',
'c' => 'd'
};
https://PerlBanjo.com/65317e3bd5
SZ
возможно, я бы делал это не сплитом, а регуляркой
Возможно я бы тоже это делал регуляркой. Зависит от длины строк
g
Возможно я бы тоже это делал регуляркой. Зависит от длины строк
Не больше килобайта.
SZ
Не больше килобайта.
Если тебе не нравится вариант выше, то можешь и регуляркой делать
SZ
Но это будет менее производительно
g
Понял, спасибо.
SZ
Если тебе хочется написать это "perlish", то тоже можно, но это не производительно, лучше так не делать
g
Если тебе хочется написать это "perlish", то тоже можно, но это не производительно, лучше так не делать
echo -e "a=b\tc=d\te\tg=\ti=j" | perl -lne '%F = map { ($k, $v) = split(/=/, $_, 2); } split(/\t/); print join("\t", @F{qw(a c e g i)});'