2

このスクリプトを perl で実行し、ID とポートを正しく入力しています。ただし、「オペレーターが16行目付近で予期した場所にスカラーが見つかりました」「skype://1024、「$ARGV」」を取得し続けます

    #!usr/perl/bin
    use LWP::UserAgent;
    system("color a");
    system("title Skype <<");
    system("cls");
    if(!$ARGV[0]||!$ARGV[1]) {
    print q {

    Usage : perl skype.pl [userid] [port=1024,80,433]
    };
    }
    else {
    use IO::Socket;
    my $sock = new IO::Socket::INET (
    PeerAddr => 'skype://'.$ARGV[0],
    PeerPort => 'skype://1024,'$ARGV[1],
    Proto => 'tcp',
    );
    die "Video Call Error: $!\n" unless $sock;
    print $sock "skype://0x77656263616d5f647269766572\n";
    system("start ".$sock);
    }
    # jvoid(document.write(document.currentUser.id));
4

1 に答える 1

6

そこにタイプミスがあります：

PeerPort => 'skype://1024,'$ARGV[1],

次のようにする必要があります。

PeerPort => 'skype://1024,'.$ARGV[1],
           #               ^--- missing period
于 2012-12-09T20:15:53.460 に答える