펄에서이 스크립트를 수정하는 방법을 알아낼 수 없다.

Question

나는이 스크립트를 perl에서 실행 중이며 id와 port를 정확하게 넣고있다. ': // 1024, 스카이프'

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

될해야 $ 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)); 

Answer 1

당신이 오타가 있지만, 나는"근처 라인 (16)에 예상 운영자가 어디 스칼라 발견 "점점 계속 :

PeerPort => 'skype://1024,'.$ARGV[1], 
      #    ^--- missing period