Телеграмм чат группы usePerlOrDie страница 1695

Можешь показать конкретный код для обоих вариантов?

Когда сравнивал, был ещё кривой вариант на Perl. Суть, что надо было отрезать первое "плохое" значение (оно без `=`).

#!/usr/bin/env python3

import fileinput

f = ['status', 'vhost', 'request', 'ip', 'user_agent']
for s in fileinput.input():
    F = dict(tuple([x.split('=', 1) for x in s.strip().split('\t')[1:]]))
    print('\t'.join([F[x] for x in f]))

perl -ne 'chomp; s/^log\t//; %F = map { split(/=/, $_, 2) } split(/\t/); printf "%s\n", join("\t", @F{@f}); BEGIN { @f = qw(a c e g i) }'

Надо перетестировать новый вариант.

12:33пожаловаться #1

#!/usr/bin/env python3

import fileinput

f = ['status', 'vhost', 'request', 'ip', 'user_agent']
for s in fileinput.input():
    F = dict(tuple([x.split('=', 1) for x in s.strip().split('\t')[1:]]))
    print('\t'.join([F[x] for x in f]))

perl -ne 'chomp; s/^log\t//; %F = map { split(/=/, $_, 2) } split(/\t/); printf "%s\n", join("\t", @F{@f}); BEGIN { @f = qw(a c e g i) }'

Надо перетестировать новый вариант.

Подожди ещё :)

12:33пожаловаться #2

Тебе надо для каждой строки вытащить значения a c e g i, так?

12:34пожаловаться #3

Yegor K in use Perl or die;

Как сделать, чтобы при сплите получалось ровно столько значений, сколько задано в лимите?
То есть я хочу получить тут
perl -M'Data::Dumper' -e '@t = split(/=/, "ab", 2); print Dumper(\@t);'
вместо

$VAR1 = [
          'ab'
        ];

такое

$VAR1 = [
          'ab',
          undef
        ];

(split /=/, 'ab', 2)[0,1]

12:35пожаловаться #4

Тебе надо для каждой строки вытащить значения a c e g i, так?

Да.

12:35пожаловаться #5

Да.

Они могут в строках повторяться? Типа a=1\ta=2?

12:35пожаловаться #6

Они могут в строках повторяться? Типа a=1\ta=2?

Нет.

12:36пожаловаться #7

Нет.

В каждой строке одинаковое их количество? Или где-то, например, может не быть e?

12:36пожаловаться #8

Yegor K

(split /=/, 'ab', 2)[0,1]

О, про слайс не подумал. Тогда можно без переменных.

12:36пожаловаться #9

О, про слайс не подумал. Тогда можно без переменных.

Короткий код != Быстрый код

12:37пожаловаться #10

В каждой строке одинаковое их количество? Или где-то, например, может не быть e?

Одинаковое.

12:37пожаловаться #11

Ща

12:37пожаловаться #12

Короткий код != Быстрый код

Ну вот как быстрее? )

12:37пожаловаться #13

У меня просто совещание сейчас, но интересно попробовать разные варианты. Я напишу парочку тебе для теста :)

12:37пожаловаться #14

Короткий код != Быстрый код

($k, $v) = split(/=/, $_, 2) быстрее (split(/=/, $_, 2))[0,1] ?

12:38пожаловаться #15

($k, $v) = split(/=/, $_, 2) быстрее (split(/=/, $_, 2))[0,1] ?

На первый взгляд нет, но надо смотреть.

12:39пожаловаться #16

У меня просто совещание сейчас, но интересно попробовать разные варианты. Я напишу парочку тебе для теста :)

Спасибо! ) У меня уже у самомго спортивный интерес к этой задаче. Так-то рабочих вариантов уже куча была.

12:39пожаловаться #17

Спасибо! ) У меня уже у самомго спортивный интерес к этой задаче. Так-то рабочих вариантов уже куча была.

Я забыл главный вопрос: в каком формате ты хочешь результат?

12:39пожаловаться #18

Я забыл главный вопрос: в каком формате ты хочешь результат?

Значения нужных полей через табуляцию.

12:40пожаловаться #19

Значения нужных полей через табуляцию.

А там где undef -- две табуляции?