Foro - Perl en Español

por **Zeokat** » 2008-12-07 10:09 @464

Digamos que tengo un archivo de texto con varias palabras.

Lo que quiero hacer es poner en un archivo las palabras que empiecen por a o A , en otro archivo las que empiecen por b o B, etc...

Para esto tengo que hacer:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open A,'>>','A.txt'ordie$!;
open B,'>>','B.txt'ordie$!;
open C,'>>','C.txt'ordie$!;

etc...Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Quería saber si hay alguna forma de crear esos archivos sin que tenga que escribir tanto. Pensé en hacer lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

formy$i(65 .. 90){
my$letra=chr($i);
open(OUT.$letra,">> $letra.txt")ordie"Cannot open output file\n";
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Me abre los archivos y funciona correctamente cuando escribo con:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if($start=~/A/){print OUTA $line,"\n";}
elsif($start=~/B/){print OUTB $line,"\n";}
elsif($start=~/C/){print OUTC $line,"\n";}

etc...Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y por último los cierro:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

formy$i(65 .. 90){
close(OUT.chr($i));
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Todo funciona... pero si digo que use strict, me devuelve errores.
y además si uso el use warnings me devuelve varios warnings...

No sé cuál sería la mejor forma de abrir todos esos archivos, de escribir en ellos y por último cerrarlos sin tener que escribir tantas líneas.
Al mismo tiempo sería interesante la posibilidad de que no devolviese ningún warning y que funcionase empleando el strict.

A ver si a alguien se le ocurre algo y me puede ayudar.
Gracias de antemano.

#!/usr/bin/perl
use strict;
use warnings;

use utf8;# Poner si estamos trabajando en modo utf8
use locale;
useopen OUT =>':locale';

my@letras=('a'..'z','á','é','í','ó','ú','ü','ñ');
my%ficheros;

## Abrir
formy$letra(@letras){
my$fichero=uc($letra).'.txt';

open$ficheros{$letra},'>>',$fichero
ordie"ERROR al abrir $fichero: $!\n";
}

## Grabación
my@palabras=qw(

    En un lugar de la Mancha

    de cuyo nombre no quiero acordarme
no ha mucho que vivía un hidalgo
);

formy$palabra(@palabras){
my$letra=lcsubstr$palabra, 0,1;
print{$ficheros{$letra}}"$palabra\n";
}

## Cerrar
close$_foreachvalues%ficheros;Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Notar la forma de sacar la primera letra de la palabra: con substr(). La expresión regular que estabas usando buscaba una 'A' en cualquier posición de la palabra... y además, no encontraba el caso de minúsculas.

Debería ser algo así: /^a/i (la 'i' es para indicar independencia de la capitulación)

por **Zeokat** » 2008-12-07 14:10 @632

Muy buena, explorer. No solo me solucionó el problema sino que hice un benchmark y antes me procesaba un archivo de 7,33 Mb en 12 segundos y ahora lo hace en 3 segundos.

En cuanto a lo de la expresión regular, tienes razón, no lo puse pero estaba usando:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$start=uc(substr($line,0,1));
if($start=~/A/){print OUTA $line,"\n";}
elsif($start=~/B/){print OUTB $line,"\n";}
elsif($start=~/C/){print OUTC $line,"\n";}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

de ahí que no me preocupase que la expresión regular chequease solo el primer carácter.

Buenísimo. Gracias.

por **explorer** » 2008-12-07 15:51 @702

Pero entonces no tienes ni siquiera que usar expresiones regulares, solo comparaciones de cadena de caracteres:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$start=uc(substr($line,0,1));
if($starteq'A'){print OUTA $line,"\n";}
elsif($starteq'B'){print OUTB $line,"\n";}
elsif($starteq'C'){print OUTC $line,"\n";}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Consigues más velocidad. De todas formas, el usar el hash es más cómodo y corto.

Foro - Perl en Español

Múltiples archivos

Múltiples archivos

Publicidad

¿Quién está conectado?