Article View: chile.comp.programacion
Article #1580Perl: analogo a #include ?
From: Miguel Farah
Date: Tue, 11 Jul 2006 20:40
Date: Tue, 11 Jul 2006 20:40
29 lines
2635 bytes
2635 bytes
Estoy trabajando en un programa en Perl. La primera mitad del código
fuente consiste en muchas declaraciones de variables, como esto:
$padre{"12"}="-23"; $madre{"12"}="-24"; $conyuges{"12"}=",";
$hijos{"12"}=","; $sexo{"12"}="M"; $nombre{"12"}="Joaquín Bachelet
Echeñique";
$padre{"13"}="-25"; $madre{"13"}="-26"; $conyuges{"13"}=",";
$hijos{"13"}=","; $sexo{"13"}="F"; $nombre{"13"}="Michelle Piñera
Infante";
$padre{"14"}="-27"; $madre{"14"}="-28"; $conyuges{"14"}=",";
$hijos{"14"}=","; $sexo{"14"}="M"; $nombre{"14"}="Sebastián Lavín
Jeria";
que son generadas automáticamente por un segundo programa (también en
Perl), que filtra los datos a partir de un archivo .GED entregado como
input. La segunda mitad consiste en una serie de subrutinas que hacen
cálculos y rastreos.
Como la segunda mitad del código es esencialmente fija y la primera
dependerá del archivo inicial y deberá regenerarse cada vez, lo más
razonable es separar ambas partes en distintos archivos y luego unirlos
con el equivalente al #include ... el problema es que no sé cuál es
el
equivalente en Perl (por otro lado, tengo un tercer programa, en PHP,
que usa al primero, y para el cual sí tengo el problema resuelto:
basta
usar la sentencia include() ).
¿Cómo lo hago? ¿Tendré que darme la p*ja de hacer un módulo?
Technical Details
Message-ID:
<1152650449.974331.107490@h48g2000cwc.googlegroups.com>Path:
arc1-ca.pugleaf.net!g2news2.google.com!news1.google.com!postnews.google.com!h48g2000cwc.googlegroups.com!not-for-mailShow Full Headers
Complete Article Headers
X-Google-Thread: 1593cb,1e0792ae33bdfe35,start X-Google-Attributes: gid1593cb,public X-Google-Language: SPANISH,ASCII Path: arc1-ca.pugleaf.net!g2news2.google.com!news1.google.com!postnews.google.com!h48g2000cwc.googlegroups.com!not-for-mail From: "Miguel Farah" <miguel@farah.cl> Newsgroups: chile.comp.programacion Subject: Perl: analogo a #include ? Date: 11 Jul 2006 13:40:50 -0700 Organization: http://groups.google.com Lines: 30 Message-ID: <1152650449.974331.107490@h48g2000cwc.googlegroups.com> NNTP-Posting-Host: 64.117.137.69 Mime-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable X-Trace: posting.google.com 1152650455 27818 127.0.0.1 (11 Jul 2006 20:40:55 GMT) X-Complaints-To: groups-abuse@google.com NNTP-Posting-Date: Tue, 11 Jul 2006 20:40:55 +0000 (UTC) User-Agent: G2/0.2 X-HTTP-UserAgent: Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:1.8.0.4) Gecko/20060508 Firefox/1.5.0.4,gzip(gfe),gzip(gfe) X-HTTP-Via: 1.1 navegador (NetCache NetApp/5.6.2), 1.1 navegador (NetCache NetApp/5.6.2) Complaints-To: groups-abuse@google.com Injection-Info: h48g2000cwc.googlegroups.com; posting-host=64.117.137.69; posting-account=Gk5wgQwAAADH3zTvnNaPXDyNEGzIj-i1