1

次の例を試してみましたが、見つからないのはなぜですか?

#!/usr/bin/perl
use Expect;

my $exp = new Expect;
$exp->expect(10, 'match me exactly', '-re', "match me exactly") or print "Not found\n";

最初は、Expect.pm の例に従って「match\s+me\s+exactly」で試しましたが、どちらも機能しませんでした。

助言がありますか?

前もって感謝します。

4

1 に答える 1

3

出力が一致すると予想される子を起動するのを忘れました。

于 2013-01-13T07:50:27.423 に答える