moje da:

$ perl -ne 'chomp;$|?push@{_0},$_:push@{_1},$_;eof&&$|++;END{print$_1[$_],$_0[$_],$/for+0..@_0}' file1 file2


moje i "po-chetlivo":
$ perl -ne 'chomp;$|?push@{_0},$_:push@{_1},$_;eof&&$|++;END{$,=$?||map{print$_1[$,++],$_,$/}@_0}' file1 file2

ok?

#~
$_->[/^(?>(.)?(.)+.*)(?!\1)(??{print(($1..$2)[9,0,15,7])})/]
#~

Редактирано от zuluz на 18.08.05 16:35.