Testor1Всем привет !


Какой быстрый способ существует на PERL для замены значения столбцах CSV строки? Требуется значение всех столбцов заменить на пустую строку, кроме заранее определенных столбцов.

Пример
исходная строка
a,b,c,d,e

Требуется оставить значение 3 и 5 столбца.

конечная строка
,,c,,e


perl -E 'for ( split /,/, "aa,bbbb,ccccc,dd,eeeeeeeeeee") { $tmp[$i++] = ( $i != 2 and $i != 4 )? "" : $_ } say join ",", @tmp'

vkle,


perl -aF/,/ -nE 'say ",,$F[2],,$F[4]"'

[quot Testor1]vklesplit по разделителю полей. Если только разделитель не попадет внутрь поля.... Потом собрать из нужных полей строку.
Как вариант, регуляркой заменить ненужное на пустую строку.[/quot

Как регуляркой указать столбец ?

vkle сказал, что низзя, а вот МОЖНО:

perl -E 'say ",,", /([^,]*,*){3}/, ",", /([^,]*,*){5}/ for "aa,bbbb,ccccc,dd,eeeeeeeeeee"'

( проверять под Линухом, а под Виндусом двойные и одинарные кавычки надо поменять местами )

[quot volodin661]Testor1пропущено...


vkle сказал, что низзя, а вот МОЖНО:

perl -E 'say ",,", /([^,]*,*){3}/, ",", /([^,]*,*){5}/ for "aa,bbbb,ccccc,dd,eeeeeeeeeee"'

( проверять под Линухом, а под Виндусом двойные и одинарные кавычки надо поменять местами )

а можно и так:
$_="aa,bbbb,ccccc,dd,eeeeeeeeeee";
say "Третий: ", [m/[^,]*,*/g]->[2]';
say "Пятый: ", [m/[^,]*,*/g]->[4]';

Testor1volodin661,

Спасибо за предложенные варианты.

Я не спец, но вопрос - краткость кода означает его производительность в данном конкретном случае ?


Краткость кода в случае приведенных примеров означает точное следование поставленной задачи с наложенной эстетикой программирования на Perl,
где, чем короче, тем круче ))

Ставить в прямое соответствие краткость кода производительности в случае механизма НеДетерминированных Конечных Автоматов( его использует механизм рег. выр. Perl) , я не решусь.

для проверки производительности можно, например, воспользоваться модулем Benchmark;

как честный человек хочу сказать, что в PERL 6 регулярными выражениями эта задачка -

в CSV-строке выделить только 3-й и 5-й столбцы -

решается самым естественным с точки зрения человеческого(английского) языка образом:




output:



регулярные выражения в Perl6 вместе со всем прочим претерпели самые решительные изменения,
поэтому некоторые пояснения:

класс символов теперь представляется не квадратными скобками [ ... ], а вот так:

,
a сами квадратные скобки служат для незахватывающей группировки.
угловые скобки - это assertion

Исключение из класса символов теперь не птичка ^ внутри квадр.скобок, а минус перед ними


метасимвол + остался служить квантификатором, пробелы являются незначащими по умолчанию.

Модификаторы переехали с конца на перед и перед ними ставится двоеточие.





match -переменные $0,$1 итд отсчитываются теперь от 0 и, строго говоря, являются синтактическим сахаром;

результаты хранятся в Match-об'екте $/ ,
так что $0 - это $/[0], $1 - это $/[1] итд