У меня есть большой объем данных в текущем формате:
a:7:{i:0;s:4:"9999";i:1;s:4:"10000";i:2;s:4:"10001";i:3;s:4:"10002";i:4;s:4:"10003";i:5;s:4:"10004";i:6;s:4:"989";}
Числа внутри ""
перед ними имеют s:4
. Для чисел, которые имеют длину 3 цифры, это должно быть изменено на s:3
, а цифры длиной 5 должны быть s:5
и т. д.
Преобразованные данные должны выглядеть следующим образом:
a:7:{i:0;s:4:"9999";i:1;s:5:"10000";i:2;s:5:"10001";i:3;s:5:"10002";i:4;s:5:"10003";i:5;s:5:"10004";i:6;s:3:"989";}
Каждая строка данных {}
находится на отдельной строке в data.txt
#!/usr/bin/env bash
IFS=';'
while read LINE
do
set -- $LINE
while [ "$1" ]
do
if [[ $1 =~ ^s:[0-9]+:\".*\"$ ]]; then
s=${1##*:}
printf 's:%d:%s%s' $((${#s}-2)) "$s" "$IFS"
else
printf '%s%s' "$1" "$IFS"
fi
shift
done
printf '\n'
done < data.txt
Этот скрипт устанавливает в качестве разделителя полей точку с запятой, а затем перебирает строки data.txt
, разбивая каждую строку на отдельные поля по разделителю с запятой. Для полей, начинающихся сs:###:"..."
(для произвольных значений ###
и ...
), сценарий вычисляет длину строки в кавычках и переформатирует поле, используя это значение длины и добавляя разделитель полей в конце. Поля, не соответствующие форме s:###:"..."
, выводятся дословно, снова добавляя разделитель завершающих полей.
a:7:{i:0;s:4:"9999";i:1;s:5:"10000";i:2;s:5:"10001";i:3;s:5:"10002";i:4;s:5:"10003";i:5;s:5:"10004";i:6;s:3:"989";};
Как насчет
perl -pe 's/s:\d+:"(.*?)"/sprintf("s:%d:\"%s\"",length($1),$1)/ge'
Пр.
$ echo 'a:7:{i:0;s:4:"9999";i:1;s:4:"10000";i:2;s:4:"10001";i:3;s:4:"10002";i:4;s:4:"10003";i:5;s:4:"10004";i:6;s:4:"989";}' |
perl -pe 's/s:\d+:"(.*?)"/sprintf("s:%d:\"%s\"",length($1),$1)/ge'
a:7:{i:0;s:4:"9999";i:1;s:5:"10000";i:2;s:5:"10001";i:3;s:5:"10002";i:4;s:5:"10003";i:5;s:5:"10004";i:6;s:3:"989";}
Вы можете добавить -i
для выполнения замены файла в месте -.