Foro - Perl en Español

por **explorer** » 2011-01-26 17:20 @764

No, no hay ningún tipo de ahorro, ni de CPU (los pasos son los mismos) ni de espacio en disco (la ocupación de bloques de disco será casi siempre la misma.

Pero aún así, es posible realizar esta operación con menos pasos: se puede eliminar completamente la línea 15 e incluir su funcionalidad dentro del bucle.

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
my %especies;
my $archivo = 'fila.txt';
 
open DATOS, $archivo or die "$!\n";
 
while (<DATOS>) {
        if ( /^>\w+\s+(.+)/ and ! $especies{$1} ) {
        $especies{$1} = 1;
        print "$1\n";
    }
}
 
close DATOS;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-01-27 16:26 @727

También así

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my %visto;
 
open my $fh, q[<], 'kk.txt';
 
while (<$fh>) {
        /^>\w+\s+(.+)/  # si capturamos el nombre
    and ! $visto{$1}++  # y si no ha sido visto antes, contamos una visita y seguimos
    and print "$1\n"    # entonces imprimimos el nombre
    ;
}
 
close   $fh;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Lo malo es que así no salen los nombres ordenados de forma alfabética, sino según en el orden en que aparecen en el fichero.

Con las nuevas expresiones regulares, se puede hacer un poco más expresivo

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while (<$fh>) {
          /^>\w+\s+(?<nombre>.+)/       # si capturamos el nombre
    and not $visto{$+{nombre}}++        # y si no ha sido visto antes, contamos una visita y seguimos
    and     print "$+{nombre}\n"        # entonces imprimimos el nombre
    ;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **wanako** » 2011-01-27 23:28 @019

Con el autoincremento no vale, ¡Trampa trampa!

Al principio no era jugar con los valores sino con las llaves, pero me gusta porque es más rápido:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use Time::HiRes;
use Benchmark qw(:all);
use Benchmark qw(:hireswallclock);
 
my $bench = timethese( -10, {
    t_explorer => sub{\&t_e},
    t_wanako => sub{\&t_w},
} );
cmpthese $bench;
 
sub t_e {
    my %e;
    while (<DATA>) {
        /^>\w+\s+(?<nombre>.+)/
        and not $e{$+{nombre}}++
        and print "$+{nombre}\n";
    }
}
 
sub t_w {
    my %w;
    while (<DATA>) {
        if ( /^>\w+\s+(.+)/ and ! $w{$1} ) {
            $w{$1} = 1;
            print "$1\n";
        }
    }
}
 
__DATA__
>TPC2_XENLA Xenopus laevis
ATGGAGTCGGAGCCGCTGCTCGGTTGGAGCGTCAATCTGCCT
>TPC2_XENTR Xenopus tropicalis
AAGTGACCGTAGACCAAAGCGAGTTTCGGCTCCAGGGAAGCG
>TPC2_XENLA Xenopus laevis
ATGGAGTCGGAGCCGCTGCTCGGTTGGAGCGTCAATCTGCCT
>TPC2_XENTR Explorer tropicalis
AAGTGACCGTAGACCAAAGCGAGTTTCGGCTCCAGGGAAGCG
>TPC2_XENLA Wanako laevis
ATGGAGTCGGAGCCGCTGCTCGGTTGGAGCGTCAATCTGCCT
>TPC2_XENTR Xenopus tropicalis
AAGTGACCGTAGACCAAAGCGAGTTTCGGCTCCAGGGAAGCG
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Salida:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Benchmark: running t_explorer, t_wanako for at least 10 CPU seconds...

t_explorer: 10.095 wallclock secs (10.09 usr +  0.00 sys = 10.09 CPU) @ 6930561.92/s (n=69957092)

  t_wanako: 10.0298 wallclock secs (10.03 usr +  0.00 sys = 10.03 CPU) @ 7084578.71/s (n=71065409)

                Rate t_explorer   t_wanako

t_explorer 6930562/s         --        -2%

t_wanako   7084579/s         2%         --
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-01-28 10:21 @473

¿No deberías colocar un

seek DATA, 0, 0;

al principio de cada subrutina? Sin esa línea, la lectura de de DATA se agota en la primera ejecución del primer while().

Colocando un par de líneas seek() delante de los while(), -y ajustando el benchmark a 1 s-, me sale:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Benchmark: running t_explorer, t_wanako for at least 1 CPU seconds...

t_explorer: 1.53997 wallclock secs ( 1.05 usr + -0.00 sys =  1.05 CPU) @ 5242879.05/s (n=5505023)

  t_wanako: 1.90747 wallclock secs ( 1.04 usr +  0.01 sys =  1.05 CPU) @ 4918272.38/s (n=5164186)

                Rate   t_wanako t_explorer

t_wanako   4918272/s         --        -6%

t_explorer 5242879/s         7%         --Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

De todas maneras, y como te dije, el número de operaciones es el mismo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

explorer@casa:~/Documentos/Desarrollo> perl -MO=Concise ./code_24373.pl

24 <@> leave[1 ref] vKP/REFC ->(end)

1     <0> enter ->2

2     <;> nextstate(main 1 code_24373.pl:3) v:{ ->3

6     <@> seek vK/3 ->7

-        <0> ex-pushmark s ->3

3        <#> gv[*DATA] s ->4

4        <$> const[IV 0] s ->5

5        <$> const[IV 0] s ->6

7     <;> nextstate(main 1 code_24373.pl:4) v:{ ->8

8     <0> padhv[%e:1,16] vM/LVINTRO ->9

9     <;> nextstate(main 10 code_24373.pl:5) v:{ ->a

11    <2> leaveloop vK/2 ->12

a        <{> enterloop(next->v last->11 redo->b) v ->w

-        <1> null vK/1 ->11

10          <|> and(other->b) vK/1 ->11

z              <1> defined sK/1 ->10

-                 <1> null sK/2 ->z

-                    <1> ex-rv2sv sKRM*/1 ->x

w                       <#> gvsv[*_] s ->x

y                    <1> readline[t5] sKS/1 ->z

x                       <#> gv[*DATA] s ->y

-              <@> lineseq vKP ->-

b                 <;> nextstate(main 9 code_24373.pl:6) v:{ ->c

-                 <1> null vK/1 ->v

m                    <|> and(other->n) vK/1 ->v

-                       <1> null sK/1 ->m

d                          <|> and(other->e) sK/1 ->m

c                             </> match(/"^>\\w+\\s+(?<nombre>.+)"/) s/RTIME ->d

l                             <1> not sK/1 ->m

k                                <1> postinc[t7] sK/1 ->l

j                                   <2> helem sKRM/2 ->k

e                                      <0> padhv[%e:1,16] sR ->f

i                                      <2> helem sK/2 ->j

g                                         <1> rv2hv sKR/1 ->h

f                                            <#> gv[*+] s ->g

h                                         <$> const[PV "nombre"] s/BARE ->i

u                       <@> print vK ->v

n                          <0> pushmark s ->o

-                          <1> ex-stringify sK/1 ->u

-                             <0> ex-pushmark s ->o

t                             <2> concat[t9] sK/2 ->u

r                                <2> helem sK/2 ->s

p                                   <1> rv2hv sKR/1 ->q

o                                      <#> gv[*+] s ->p

q                                   <$> const[PV "nombre"] s/BARE ->r

s                                <$> const[PV "\n"] s ->t

v                 <0> unstack v ->w

12    <;> nextstate(main 11 code_24373.pl:11) v:{ ->13

16    <@> seek vK/3 ->17

-        <0> ex-pushmark s ->13

13       <#> gv[*DATA] s ->14

14       <$> const[IV 0] s ->15

15       <$> const[IV 0] s ->16

17    <;> nextstate(main 11 code_24373.pl:12) v:{ ->18

18    <0> padhv[%w:11,16] vM/LVINTRO ->19

19    <;> nextstate(main 15 code_24373.pl:13) v:{ ->1a

23    <2> leaveloop vK/2 ->24

1a       <{> enterloop(next->1x last->23 redo->1b) v ->1y

-        <1> null vK/1 ->23

22          <|> and(other->1b) vK/1 ->23

21             <1> defined sK/1 ->22

-                 <1> null sK/2 ->21

-                    <1> ex-rv2sv sKRM*/1 ->1z

1y                      <#> gvsv[*_] s ->1z

20                   <1> readline[t16] sKS/1 ->21

1z                      <#> gv[*DATA] s ->20

-              <@> lineseq vKP ->-

1b                <;> nextstate(main 14 code_24373.pl:14) v:{ ->1c

-                 <1> null vKP/1 ->1x

1i                   <|> and(other->1j) vK/1 ->1x

-                       <1> null sK/1 ->1i

1d                         <|> and(other->1e) sK/1 ->1i

1c                            </> match(/"^>\\w+\\s+(.+)"/) s/RTIME ->1d

1h                            <1> not sK/1 ->1i

1g                               <2> helem sK/2 ->1h

1e                                  <0> padhv[%w:11,16] sR ->1f

-                                   <1> ex-rv2sv sK/1 ->1g

1f                                     <#> gvsv[*1] s ->1g

1w                      <@> leave vKP ->1x

1j                         <0> enter v ->1k

1k                         <;> nextstate(main 12 code_24373.pl:15) v ->1l

1p                         <2> sassign vKS/2 ->1q

1l                            <$> const[IV 1] s ->1m

1o                            <2> helem sKRM*/2 ->1p

1m                               <0> padhv[%w:11,16] sR ->1n

-                                <1> ex-rv2sv sK/1 ->1o

1n                                  <#> gvsv[*1] s ->1o

1q                         <;> nextstate(main 12 code_24373.pl:16) v ->1r

1v                         <@> print vK ->1w

1r                            <0> pushmark s ->1s

-                             <1> ex-stringify sK/1 ->1v

-                                <0> ex-pushmark s ->1s

1u                               <2> concat[t20] sK/2 ->1v

-                                   <1> ex-rv2sv sK/1 ->1t

1s                                     <#> gvsv[*1] s ->1t

1t                                  <$> const[PV "\n"] s ->1u

1x                <0> unstack v ->1y

./code_24373.pl syntax OKColoreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Se observa que las operaciones que hay dentro de las subrutinas son casi las mismas

por **wanako** » 2011-01-31 18:34 @815

¡Gracias por la corrección!

El ejercicio ha sido más útil para mí que para el creador del hilo, parece :mrgreen:

por **explorer** » 2011-01-31 19:40 @861

Aún no sabemos si le sirvió tu solución...

Foro - Perl en Español

Sacar nombres de especies sin repetición

Re: Sacar nombres de especies sin repetición

Publicidad

Re: Sacar nombres de especies sin repetición

Re: Sacar nombres de especies sin repetición

Re: Sacar nombres de especies sin repetición

Re: Sacar nombres de especies sin repetición

Re: Sacar nombres de especies sin repetición

Re: Sacar nombres de especies sin repetición

¿Quién está conectado?