Поскольку я не уверен, что вам так сильно нужен код perl
, вот аналогичный код awk
:
awk -F';' -v OFS=';' '{ $NF=""; print }' data.csv
=> Этот код очищает последнее поле каждой строки ( $NF=""
). Поля ввода (-F\;
) и поля вывода (OFS=';'
) считаются разделенными символом ";".
То же самое с sed
:
sed 's/[^;]*$//' data.csv
=> Это заменяет ( s/.../.../
) самая длинная последовательность символов, не являющаяся ";" ( [^;]*
) в конце строки ( $
) без ничего.
То же самое с grep
:
grep -o '.*;' data.csv
=> grep
регулярные выражения по умолчанию являются жадными, что означает, что они соответствуют самой длинной возможной последовательности. Здесь .*;
означает "самая длинная последовательность символов, которая заканчивается знаком ";". Опция -o
выводит то, что совпадает, а не всю строку.
Наконец , эквивалентом perl
будет (спасибо @steeldriver):
perl -F';' -lpe '$F[-1]=""; $_ = join ";", @F' data.csv
=> Он работает аналогично awk
, здесь соединение явно.
Esto puede ser un problema si compila e2fsprogs con libuuid y libblkid desde util -linux sin configurar paquete -config entorno correctamente:
export PKG_CONFIG_DIR=
export PKG_CONFIG_LIBDIR=${SYSROOT}/usr/lib/pkgconfig:${SYSROOT}/usr/share/pkgconfig
export PKG_CONFIG_SYSROOT_DIR=${SYSROOT}
Consulte también Referencia de compilación cruzada de Autotool .