Ver Tema

Doddy · 2012-01-17 10:26 @476

Hola. Tengo una lista en la que muestro el elemento que se ha seleccionado con su número de orden. El problema es que después de mostrar el dato por pantalla quiero borrarlo de la lista.

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

my @procer = ("uno","dos","tres","cuatro","cinco","seis");
my $numb = 5;
print @procer[$numb];
#borrar dato

¿Alguien me puede explicar cómo borrar dicho dato?

explorer · 2012-01-17 10:44 @489

Una cosa es borrarlo:

Syntax: [ Download ] [ Hide ]

Using bash Syntax Highlighting

explorer@casa:~/Documentos/Desarrollo> perl -E '@x = 1 .. 10; delete $x[5]; $"="]["; say "[@x]"'
[1][2][3][4][5][][7][8][9][10]

Y otra cosa es eliminarlo:

Syntax: [ Download ] [ Hide ]

Using bash Syntax Highlighting

explorer@casa:~/Documentos/Desarrollo> perl -E '@x = 1 .. 10; splice @x, 5, 1; $"="]["; say "[@x]"'
[1][2][3][4][5][7][8][9][10]

Doddy · 2012-01-17 10:45 @490

¿Me podrías dar un ejemplo en un script normal?

explorer · 2012-01-17 10:50 @493

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl
@x = 1 .. 10;
splice @x, 5, 1;
$"="][";
say "[@x]";

Doddy · 2012-01-17 11:20 @514

Tengo un problema con el siguiente código

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!usr/bin/perl
#Manager 0.3
#Written By Doddy H
 
use Color::Output;
Color::Output::Init;
use Win32::OLE qw(in);
use Win32::Process;
 
&clean;
&options;
 
sub clean {
    cprint "\x0313";
    print "\nManager 0.3\nCopyright 2012 Doddy Hackman\nMail:lepuke[at]hotmail[com]\n\n";
    cprint "\x0x30\n\n";
    my %process = getprocess();
    chomp %process;
    $limit = "";
    for my $pid ( keys %process ) {
        if ( $pid ne "" ) { $limit++ }
        push( @procer, $process{$pid} );
        push( @pids,   $pid );
        chomp( @procer, @pids );
    }
    $limit--;
    for my $n ( 1 .. $limit ) {
        cprint "\x037";
        print "Process Number: [$n]\tProcess name : $procer[$n]\tPID : $pids[$n]\n";
        cprint "\x037";
    }
}
 
sub options {
    cprint "\0035";
    print "\n\nOptions :\n\n[a] : Close a process\n[b] Clean Console\n[c] Exit\n\n\n[+] Write you options : ";
    $t = <STDIN>;
    chomp $t;
    if ( $t eq "a" ) {
        &close;
    }
    elsif ( $t eq "b" ) {
        reload();
    }
    elsif ( $t eq "c" ) {
        print "\n\n[+] Written By Doddy H\n\n";
        <stdin>;
        exit(1);
    }
    else {
        reload();
    }
}
 
sub close {
    print "\n[+] Write the number of the process : ";
    $numb = <STDIN>;
    chomp $numb;
    Win32::Process::KillProcess( @procer[$numb], "" );
    splice @procer, $numb, 1;                           ##### FALLO #####
    print "\n\n[+] OK , Process Closed\n\n";
    <stdin>;
    reload();
}
 
sub reload {
    system("cls");
    &clean;
    &options;
}
 
sub getprocess {
 
    my %procesos;
 
    my $uno = Win32::OLE->new("WbemScripting.SWbemLocator");
    my $dos = $uno->ConnectServer( "", "root\\cimv2" );
 
    foreach my $pro ( in $dos->InstancesOf("Win32_Process") ) {
        $procesos{ $pro->{Caption} } = $pro->{ProcessId};
    }
    return %procesos;
}
 
# The End ? 

El valor no se me borra en la línea 60.

explorer · 2012-01-17 11:37 @526

Con splice() estás eliminando elementos, no borrándolos.

Y al eliminar elementos, los que le siguen en el resto del array, suben un puesto, dejando al array con una longitud menor.

A lo mejor lo que quieres es simplemente borrarlos. Te vale entonces con hacer una de estas líneas:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

undef  $procer[$numb];

delete $procer[$numb];

$procer[$numb] = '';

teniendo en cuenta que el delete() se comporta de forma distinta con los elementos del final del array: recortará el array.

Doddy · 2012-01-17 11:50 @535

He encontrado una forma de solucionarlo. El código me queda así.

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!usr/bin/perl
#Manager 0.3
#Written By Doddy H
 
use Color::Output;
Color::Output::Init;
use Win32::OLE qw(in);
use Win32::Process;
 
&clean;
&options;
 
sub clean {
    cprint "\x0313";
    print "\nManager 0.3\nCopyright 2012 Doddy Hackman\nMail:lepuke[at]hotmail[com]\n\n";
    cprint "\x0x30\n\n";
    my %process = getprocess();
    chomp %process;
    $limit = "";
    for my $pid ( keys %process ) {
        if ( $pid ne "" ) { $limit++ }
        push( @procer, $process{$pid} );
        push( @pids,   $pid );
        chomp( @procer, @pids );
    }
    $limit--;
    for my $n ( 1 .. $limit ) {
        cprint "\x037";
        print "Process Number: [$n]\tProcess name : $procer[$n]\tPID : $pids[$n]\n";
        cprint "\x037";
    }
}
 
sub options {
    cprint "\0035";
    print "\n\nOptions :\n\n[a] : Close a process\n[b] Clean Console\n[c] Exit\n\n\n[+] Write you options : ";
    $t = <STDIN>;
    chomp $t;
    if ( $t eq "a" ) {
        &close;
    }
    elsif ( $t eq "b" ) {
        reload();
    }
    elsif ( $t eq "c" ) {
        print "\n\n[+] Written By Doddy H\n\n";
        <stdin>;
        exit(1);
    }
    else {
        reload();
    }
}
 
sub close {
    print "\n[+] Write the number of the process : ";
    $numb = <STDIN>;
    chomp $numb;
    Win32::Process::KillProcess( @procer[$numb], "" );
    print "\n\n[+] OK , Process Closed\n\n";
    <stdin>;
    reload();
}
 
sub reload {
    system("cls");
    system($0);
    &clean;
    &options;
}
 
sub getprocess {
 
    my %procesos;
 
    my $uno = Win32::OLE->new("WbemScripting.SWbemLocator");
    my $dos = $uno->ConnectServer( "", "root\\cimv2" );
 
    foreach my $pro ( in $dos->InstancesOf("Win32_Process") ) {
        $procesos{ $pro->{Caption} } = $pro->{ProcessId};
    }
    return %procesos;
}
 
# The End ?
 

explorer · 2012-01-17 12:09 @548

Me temo que @procer no hace más que crecer y crecer...

¿No sería más claro usar solo %process a lo largo del programa? Te ahorrarías unas cuantas líneas...

Doddy · 2012-01-17 12:56 @580

Sí, pero no sé cómo hacerlo. ¿Vos no me podrías ayudar a corregir el código?

explorer · 2012-01-17 15:56 @706

Lo siento, yo no tengo Windows.

Publicidad

Socializa