shell_gei_18_ans.md

第18回シェル芸勉強会個人的回答

https://blog.ueda.asia/?p=6836

Q4

$ cat cross | sed 's/./& /g' | \
perl -anlE 'printf chr($_+ord(a)-1)."-".$F[0]."=".$F[$_]." " for (1..$#F); say ""' | \
grep -oP '.{3}(?=\=x)'

Q5

$ xxd -p text | tr -d '\n' | sed 's/0a/;/g'| sed -r 's/;;+/;;/g' | sed 's/;/0a/g' | xxd -p -r

Q8

$ cat number | sed 's/./& /g' | egison -F1c -m '(match-all-lambda (list integer)[<join _ <join $a _>> [a"\n"]])' | grep -oP '(?<={).+(?=})' | awk 'NF>2' | sort | uniq -c | sort -k1,1n