Jako domácí úkol ti to asi neprojde, ale pro zajímavost :-)
$ cat data.txt
41564=aaa aaa
7564=bbb bbb
874=ccc ccc
15=ddd ddd
$ cat data.txt \
| perl -ne 'if (/([^=]+)=(.*)/) { print "$1\0$2\0"; }' \
| relpipe-in-cli generate-from-stdin data 2 id integer hodnota string \
| relpipe-tr-guile 'data' '(if (= $id 874) (set! $hodnota "ccc2 ccc2") ) #t' \
| relpipe-out-tabular
data:
╭──────────────┬──────────────────╮
│ id (integer) │ hodnota (string) │
├──────────────┼──────────────────┤
│ 41564 │ aaa aaa │
│ 7564 │ bbb bbb │
│ 874 │ ccc2 ccc2 │
│ 15 │ ddd ddd │
╰──────────────┴──────────────────╯
Record count: 4
$ cat data.txt \
| perl -ne 'if (/([^=]+)=(.*)/) { print "$1\0$2\0"; }' \
| relpipe-in-cli generate-from-stdin data 2 id integer hodnota string \
| relpipe-tr-guile 'data' '(if (= $id 874) (set! $hodnota "ccc2 ccc2") ) #t' \
| relpipe-out-nullbyte \
| while read_nullbyte id hodnota; do echo "$id=$hodnota"; done
41564=aaa aaa
7564=bbb bbb
874=ccc2 ccc2
15=ddd ddd