🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: chile.comp.programacion
Article #1580

Perl: analogo a #include ?

#1580
From: Miguel Farah
Date: Tue, 11 Jul 2006 20:40
29 lines
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-mail

Show 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