🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: es.comp.os.linux.programacion
Article #1281

Re: Perl y depuración

#1281
From: David Serrano (Hue-Bond)
Date: Thu, 02 Feb 2006 06:57
47 lines
2912 bytes
AnimAlf, mié20060201@22:17:25(CET):
>
> estoy escribiendo unos script es perl en una máquina Linux 2.6.14.3
> con
> la versión 5.008007 de Perl, estos scripts luego los cuelgo en una
> Solaris 5.8 con la versión de perl 5.00503 en la que accedo vía ftp.

Ugh. 5.5 ya tiene tiempo...


> utilizo los switches -T y -w
> #/usr/bin/perl -Tw

Como ya te han dicho, 'use warnings' es mejor que '-w';


> ¿puedo hacer algo con mi perl para que sea más esctricto?

Por supuesto, 'use strict'.

De todas formas, esa no es la solución a tu problema en este caso. El
problema es que la sintaxis del operador mkdir cambió entre una versión y
otra (o eso parece). Creo que no te queda otro remedio que empollarte los
perldelta* relevantes y enterarte de lo que es distinto. Seguro que perlport
también te da consejos interesantes.

Otra cosa que debes hacer siempre siempre siempre, es comprobar el valor de
retorno de las llamadas al sistema. En este caso era un error de compilación
así que tampoco te serviría pero, ¿qué pasaría si el mkdir se ejecutara bien
en ambos sitios y luego fallase un posterior open?

mkdir 'dir', 0750            or die "mkdir: $!";
open my $fd, '>', 'dir/file' or die "open: $!";


> debo quizás recompilarlo con alguna opción especial para poder tener los
> errores de este tipo localmente.

Si quieres ver los errores en el navegata, me temo que debes redirigir
stderr a stdout en el momento en que se llama al script. Quizá también se
puede hacer desde el propio programa, dentro de un bloque BEGIN, pero ahora
mismo me tengo que marchar a la ofi pitando y no me acuerdo exactamente de
lo que hay que poner en el segundo parámetro de open.


-- 
 David Serrano
Technical Details
Message-ID: <slrndu3bb8.mqq.responder_solo_en_el_grupo@genus.hue-bond.info>
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!news4.google.com!news.glorb.com!news.antakira.com!antonio.escomposlinux.org!cernicalo.escomposlinux.org!escomposlinux.org!not-for-mail
References: <1138828645.236176.139620@g49g2000cwa.googlegroups.com>

Show Full Headers
Complete Article Headers
X-Google-Thread: f86c8,1a9245151043c239
X-Google-Attributes: gidf86c8,public
X-Google-Language: SPANISH,UTF8
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!news4.google.com!news.glorb.com!news.antakira.com!antonio.escomposlinux.org!cernicalo.escomposlinux.org!escomposlinux.org!not-for-mail
From: "David Serrano (Hue-Bond)" <responder_solo_en_el_grupo@yahoo.es>
Newsgroups: es.comp.os.linux.programacion
Subject: Re: Perl y depuración
Date: Thu, 2 Feb 2006 06:57:44 +0000 (UTC)
Organization: I work for myself
Lines: 47
Message-ID: <slrndu3bb8.mqq.responder_solo_en_el_grupo@genus.hue-bond.info>
References: <1138828645.236176.139620@g49g2000cwa.googlegroups.com>
NNTP-Posting-Host: 127.red-83-32-93.dynamicip.rima-tde.net
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 8bit
X-Trace: cormoran.emeteo.local 1138863464 26834 83.32.93.127 (2 Feb 2006 06:57:44 GMT)
X-Complaints-To: emeteo@escomposlinux.org
NNTP-Posting-Date: Thu, 2 Feb 2006 06:57:44 +0000 (UTC)
X-Message-Flag: Visit http://www.debian.org/
X-MSMail-Priority: High
Mail-Copies-To: nobody
User-Agent: slrn/0.9.8.1pl1 (Debian)