テキスト1:
abc
trt
prc etc
テキスト2:
1
2
3 etc
テキスト3:
abc1
abc2
abc3
trt1
trt2
trt3
prc1
prc2
prc3 etc
ベストアンサー1
ファイルがメモリに入ることができる場合:
perl -e 'chomp (@a = <STDIN>); @b = <>;
for $a (@a) {for $b (@b) {print $a,$b}}' < 'txt 1' 'txt 2'
または、デカルト積がメモリに入ることができる場合は、次のようになりますzsh
。
a=( ${(f)"$(<'txt 1')"} )
b=( ${(f)"$(<'txt 2')"} )
print -rC1 -- $^a$^b
(もう2つのファイルの空白行を削除する順番です)