Myślę, że najlepszym sposobem jest awk
i gawk
.
awk
awk -F "([.] )|( / )" '/^[0-9]{1,3}[.]/{x="F"$1"("$2").txt";}{print >x;}' I_Ching_Wilhelm_Translation.txt
-F
określi separator pól dla każdej linii. Jest to wyrażenie regularne, tutaj używamy wielu separatorów: ". "
i " / "
. W ten sposób podobny wiersz 1. Ch'ien / The Creative
zostanie podzielony na 3 pola: 1
Ch'ien
i The Creative
. Później możemy odwoływać się do tych pól za pomocą $n
. $0
to cała linia.
Następnie mówimy awk, aby dopasował linie do wzoru. ^[0-9]{1,3}[.]
Jeśli istnieje dopasowanie, wówczas przypisujemy wartość do x
. Wartość x zostanie użyta jako nazwa pliku do print
operacji. W tym przykładzie używamy, "F"$1"("$2").txt"
więc linia 1. Ch'ien / The Creative
podaje nazwę plikuF1(Ch'ien).txt
gapić się
W gawk możemy również uzyskać dostęp do przechwyconej grupy. Możemy więc uprościć polecenie, aby:
gawk 'match($0, /^([0-9]{1,3})[.] (.*) \/ (.*)$/, ary){x="F"ary[1]"("ary[2]")";}{print >x;}' I_Ching_Wilhelm_Translation.txt
tutaj używamy match
przechwytywania grup i umieszczamy je na liście zmiennych ary
. $0
to cała linia. ary[0]
wszystko jest dopasowane. ary[1...n]
jest każda grupa.
perl
Możemy to również zrobić za pomocą Perla:
perl -ne 'if(/^([0-9]{1,3})[.] (.*) \/ (.*)$/) {close F; open F, ">", sprintf("F$1($2).txt");} print F' I_Ching_Wilhelm_Translation.txt
Wyniki:
> ls F*
F10(Lü).txt F22(Pi).txt F34(Ta Chuang).txt F46(Shêng).txt F58(Tui).txt
F11(T'ai).txt F23(Po).txt F35(Chin).txt F47(K'un).txt F59(Huan).txt
F12(P'i).txt F24(Fu).txt F36(Ming I).txt F48(Ching).txt F5(Hsü).txt
F13(T'ung Jên).txt F25(Wu Wang).txt F37(Chia Jên).txt F49(Ko).txt F60(Chieh).txt
F14(Ta Yu).txt F26(Ta Ch'u).txt F38(K'uei).txt F4(Mêng).txt F61(Chung Fu).txt
F15(Ch'ien).txt F27(I).txt F39(Chien).txt F50(Ting).txt F62(Hsiao Kuo).txt
F16(Yü).txt F28(Ta Kuo).txt F3(Chun).txt F51(Chên).txt F63(Chi Chi).txt
F17(Sui).txt F29(K'an).txt F40(Hsieh).txt F52(Kên).txt F64(Wei Chi).txt
F18(Ku).txt F2(K'un).txt F41(Sun).txt F53(Chien).txt F6(Sung).txt
F19(Lin).txt F30(Li).txt F42(I).txt F54(Kuei Mei).txt F7(Shih).txt
F1(Ch'ien).txt F31(Hsien).txt F43(Kuai).txt F55(Fêng).txt F8(Pi).txt
F20(Kuan).txt F32(Hêng).txt F44(Kou).txt F56(Lü).txt F9(Hsiao Ch'u).txt
F21(Shih Ho).txt F33(TUN).txt F45(Ts'ui).txt F57(Sun).txt
jak zdobyć przykładowy plik:
curl http://www2.unipr.it/~deyoung/I_Ching_Wilhelm_Translation.html|html2text -o I_Ching_Wilhelm_Translation.plain
sed 's|^[[:blank:]]*||g' I_Ching_Wilhelm_Translation.plain > I_Ching_Wilhelm_Translation.txt