🚀 go-pugleaf

Ignacio Arenaza escribi�:

IA> El churro (bastante poco optimizado y limpio, la verdad) que adjunto a
IA> continuacion permite verificar si el path que se le indica como
IA> argumento esta o no en el fichero que se le envia por la entrada
IA> estandar (como un valor del tipo FontPath). Genera el codigo de

El churro :) tal y como lo has escrito falla en casi todos los casos
(y porque nos vamos conociendo, no descarto que los errores los hayas
puesto intencionadamente :) , pero he cogido la idea.

Con estas "correcciones" funciona bien:

<-----> <-----> <-----> <-----> <-----> <-----> <-----> <-----> <-----> 
#!/usr/bin/perl -w
#
# fichero busca_fontpath.pl
#
# Copyright (C) 2001 Ignacio Arenaza. Distribuible bajo licencia GPL.
#
use strict;

my $IN;
my $OUT;
my $continue;
my $last;
my @paths;
my %fontpaths;
my $i;

$continue = 0;
# La siguiente l�nea no pinta nada, as� que la quito...
#print "$ARGV[1]\n";

while (<STDIN>) {
    chomp;
# Para que no haya l�os entre espacios y tabuladores...
#    next unless (/^ *FontPath/i or $continue); 
    next unless (/^[ \t]*FontPath/i or $continue);
    if (! $continue) {
#        /^ *FontPath (.*)$/io;
        /^[ \t]*FontPath[ \t](.*)$/io;
        $_ = $1;
    }
#    /^ *(.*)$/o;
    /^[ \t]*(.*)$/o;
    $_ = $1;
    $last = substr ($_, -1);
    if ($last eq "\\") {
        $continue = 1;
# No me vuelvas loco. Hay una funci�n que hace esto :)
#        $_ = substr ($_, 0, length ($_)-1);
        chop;
	}
    else {
        $continue = 0;
    }
    @paths = split /,/;
    foreach $i (@paths) {
# Esta l�nea es la que provoca la mayor�a de los fallos...
#        $i =~ /^[^\"]*\"([^\"]*)\"/o;
        $i =~ /^\"?([^\"]*)\"?/o;
	$_ = $1;
        $fontpaths{$_} = 1;
    }
}

if (defined ($fontpaths {$ARGV[0]})) {
    exit 0;
}
else {
    exit 1;
}
<-----> <-----> <-----> <-----> <-----> <-----> <-----> <-----> <-----> 


Muchas gracias. Me ha servido para introducirme en el Perl (ya me
tocaba empezar).

Vamos a echarle un vistazo ahora al awk :)

Un saludo.
-- 
Debian GNU/Linux