Отправка набора команд из txt файла в Expect

Вы можете сделать это с помощью Perl. Я немного изменил ваш ввод, чтобы проверить одиночные и тройные чешские слова:

$ cat dictionary 
záchod (m); toaleta (f) WC; käymälä; miestenhuone; naistenhuone; vessa
single (f) WC; test; words; go; here
first (f); second (n); third (m) WC; singleton


$ cat word_per_line.pl 
open($dictionary, '<', "./$ARGV[0]");

while( $word = <$dictionary> ) {
    $word =~ /(.*) (WC;.*)/;
    @czech = split(/; /, $1);
    foreach (@czech) {
        print "$_\t$2\n";
    }
}

$ perl word_per_line.pl dictionary 
záchod (m)  WC; käymälä; miestenhuone; naistenhuone; vessa
toaleta (f) WC; käymälä; miestenhuone; naistenhuone; vessa
single (f)  WC; test; words; go; here
first (f)   WC; singleton
second (n)  WC; singleton
third (m)   WC; singleton
0
11.10.2021, 09:18
1 ответ

Обратите внимание, что является расширением , так что вы захотите использовать некоторые Tcl-команды

  • open
  • while
  • gets

Вы можете найти полезным Tcl tutorial , особенно раздел File Access 101 .

0
12.10.2021, 16:10

Теги

Похожие вопросы