Foro - Perl en Español

por **opmeitle** » 2012-07-31 00:37 @067

Hola, ¡¡muy buenas noches!! Acá en Argentina ¡¡son las 02:34 matina!! Ya hora de dormir, pero bueno, me cansé de intentar solucionar esto pero no pude.

El código habla por si solo, no entiendo cómo configurar el sort() para que me devuelva una salida como la que necesito.

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

cat /home/delkav/labs-scripts/grep
$90850
$0
$389
$469
$670
$750
$684
$21744
$604
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

%ttys = ();
my @lsarray = `cat /home/delkav/labs-scripts/grep`;
my @array;
$array[0] = <STDIN>;
$array[1] = <STDIN>;
$array[2] = <STDIN>;
$array[4] = <STDIN>;
$array[5] = <STDIN>;
$array[6] = <STDIN>;
$array[7] = <STDIN>;
$array[8] = <STDIN>;
@ttys{@lsarray} = @array;
print "@{[%ttys]}\n"
__END__
# ENTRADA EN STDIN ES "UNO, DOS,TRES, ... SIETE, OCHO, NUEVE"
# LA SALIDA QUE IMPRIME EL SCRIPT
$684
SIETE
$469
CUATRO
$21744
OCHO
$670
CINCO
$389
TRES
$90850
UNO
$0
DOS
$750
SEIS
$604
NUEVE
 
# LO QUE NECESITO
$90850
UNO
$0
DOS
$389
TRES
$469
CUATRO
$670
CINCO
$750
SEIS
$684
SIETE
$21744
OCHO
$604
NUEVE
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Gracias

#!/usr/bin/env perl
use strict;
use warnings;
use diagnostics;
use autodie;   # «Mejor morir que regresar con deshonor» --Proverbio Kinglon
 
open my $DOLARES, '<', '/home/delkav/labs-scripts/grep';
 
while (my $cantidad = <$DOLARES>) {
    print $cantidad;
 
    my $etiqueta = <>;
    print $etiqueta;
}
 
close $DOLARES;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Aunque, si las etiquetas siempre son las mismas, pues podemos programarlas...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use strict;
use warnings;
use diagnostics;
use autodie;             # «Mejor morir que regresar con deshonor» --Proverbio Kinglon
 
my @etiquetas = qw(
    UNO    DOS    TRES    CUATRO    CINCO
    SEIS   SIETE  OCHO    NUEVE     DIEZ
);
 
open my $DOLARES, '<', '/home/delkav/labs-scripts/grep';
 
for my $etiqueta (@etiquetas) {
    my $cantidad = <$DOLARES>;
    print $cantidad;
    print $etiqueta;
}
 
close $DOLARES;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Problema Sort + Array + Hash

Problema Sort + Array + Hash

Publicidad

Re: Problema Sort + Array + Hash

¿Quién está conectado?