Foro - Perl en Español

Hola a todos, les escribo porque tengo una pequeña duda... cómo eliminar correctamente la ejecución de un CGI, cuando se produce una instrucción determinada... ej:

Código: Seleccionar todo

(otra parte del script)

$id=param('id');

my @checkid= `ls /red/numero/`;
foreach $variable(@checkid) {
    if($id eq $variable)
    {
        print("Ya hay una red creada con ese numero") || die (¿instrucciones?)
    }
}

(resto del script a realizar sino se cumple la condición)

¿¿¿ Cómo podría hacerlo ???

¡¡Muchas gracias a todos otra vez!!.

Saludos.

Lo normal es terminar la página html y salir con un exit.

Código: Seleccionar todo

$id = param('id');
@checkid= `ls /red/numero/`;
foreach $variable ( @checkid ) {
    if ( $id eq $variable ) {
        print "Ya hay una red creada con ese número";
        print end_html;
        exit;
    }
}
# resto del script a realizar sino se cumple la condición

pero claro... a veces nos queda una página web muy pobre...

Lo mejor en ese caso es usar un if-else:

Código: Seleccionar todo

$id = param('id');
@checkid= `ls /red/numero/`;
@id = grep( $_ eq $id, @checkid );
if ( @id ) {
    print "Ya hay una red creada con ese número";
} else {
    # aqui seguimos en el caso de que no coincidir ningún $id
}
# resto del script y de la página html