История изменений

Исправление Deleted, 26.04.15 22:18 (текущая версия) :

$ perl -E 'open $_,shift for F1,F2; for(;;){ chomp($x=<F1>,$y=<F2>); $x && $y or last; say substr $x,$y*-1 }' words.txt numbers.txt

если правильно понял.

Исходная версия Deleted, 26.04.15 22:14:

$ perl -E 'open $_,shift for F1,F2; for(;;){ chomp($x=<F1>,$y=<F2>); $x || $y or last; say substr $x,$y*-1 }' words.txt numbers.txt

если правильно понял.