Perl使用Tesseract-OCR实现验证码识别教程

 
            my $bak1 = $txt;
            my $bak2 = $txt;
            $bak1 =~ s/13/19/g;
            $bak1 =~ s/.32./.92./g;
            $bak1 =~ s/.33./.99./g;
 
            $bak2 =~ s/19/13/g;
            $bak2 =~ s/.243/.249/g;
            $bak2 =~ s/203./209./g;
 
            open FHX,">>$file";
            print FHX ${$pxy[$i]}{ip}.":".${$pxy[$i]}{port}."n";
            print FHX $bak1.":".${$pxy[$i]}{port}."n";
            print FHX $bak2.":".${$pxy[$i]}{port}."n";
            close FHX;
 
        }
        my $txt = undef;
    }
}
`del ___* /s /q`;
undef($url);
undef($file);
undef($res);
undef(@tmp);
undef(@pxy);