기본 변수에 해당하는 기능이 작동하지 않습니다.

Perl로 작성된 간단한 서버 응용 프로그램이 있습니다. 여기에 그것의 작동 버전이 있습니다.

my $client;
while ($client = $local->accept() ) { 
    print "Connected: ", $client->peerhost(), ":", $client->peerport(), "\n";  

    while (<$client>) {            

        if ($mod_ctr == -1) {
            $num_count = $_;
            init();
        }
        elsif ($mod_sayaci % 2 == 0) {
            $plus_count = $_;
        }
        elsif ($mod_sayaci % 2 == 1) {
            $minus_count = $_;
            eval();
        }

        last if m/^q/gi;
        $mod_sayaci++;
    }
    print "Server awaits..\n"; 
}

나는 이것이 완벽하게 작동한다고 확신합니다. 이제 mod를 사용하는 대신 작업을 결정하기 위해 클라이언트에서 시작 문자를 가져 오도록 코드를 변경할 때 :

my $client;

while ($client = $local->accept() ) { 
    print "Connected: ", $client->peerhost(), ":", $client->peerport(), "\n";  

    $input;
    $operation;
    $value;
    while ($input = <$client>) {            

        $operation = substr($input, 0, 1);
        $value     = substr($input, 1, 1);

        print "input: $input \n";
        print "operation: $operation \n";
        print "value: $value \n";

        if ($operation == "r") {
            print "entered r \n";
            $num_count = $value;
            init();
        }
        elsif ($operation == "a") {
            print "entered a \n";
            $plus_count = $value;
        }
        elsif ($operation == "e") {
            print "entered e \n";
            $minus_count = $value;
            eval();
        }
        elsif ($operation == "q") {
            # will quit here
        }
    }
    print "Server awaits..\n"; 
}

클라이언트 측에서는 사용자 r가 operation. 지금까지 모든 것이 잘 작동합니다. 첫 번째 입력 후 input, operation및 value인쇄는 정상적으로 작동하지만 항상 첫 번째를 입력 if하고 인쇄합니다 entered r. 내가 여기서 무엇을 놓치고 있습니까?