Article View: es.comp.os.linux.programacion
Article #7997Re: Leer un fichero
From: Reinoso G.
Date: Fri, 03 Jan 2003 13:12
Date: Fri, 03 Jan 2003 13:12
35 lines
2349 bytes
2349 bytes
El otro d�a, DK nos estuvo contando:
> Feliz a�o:
>
> Quiero sacar la media de una serie de datos que tengo almacenados en
> un fichero. El fichero podria ser de la siguiente manera:(datos.txt)
Bueno pues para que tengas la referencia de otro lenguaje m�s yo tambi�n
me apunto:
-----------------------------
#!/usr/bin/perl -w
$sum = $n = 0;
while (<>)
{
chomp;
$sum += $_;
$n++;
}
$med = $sum / $n;
print "La media es $med.\n";
-----------------------------
Hay que llamarlo poniendo
datos.pl < datos.txt
pues lee de la entrada est�ndar.
Saludos.
--
�������������������������������������������������������������������������
�� Reinoso G. EA4BAO r einoso.bao@wanadoo.e s ��
�� http://perso.wanadoo.es/reinoso.bao ��
�������������������������������������������������������������������������
Technical Details
Message-ID:
<slrnb1b32h.tm.reinoso@EA4BAO.PLLANO.ESP.EU>Path:
arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!feed3.newsreader.com!newsreader.com!news-xfer.cox.net!mainake.escomposlinux.org!lamanonegra.escomposlinux.org!news-7.escomposlinux.org!newsReferences:
<7d4ff0e4.0301020707.6388a1a6@posting.google.com>Show Full Headers
Complete Article Headers
X-Google-Language: SPANISH,ASCII X-Google-Thread: f86c8,5cf283a7acb0d167 X-Google-Attributes: gidf86c8,public X-Google-ArrivalTime: 2003-01-03 06:29:05 PST Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!feed3.newsreader.com!newsreader.com!news-xfer.cox.net!mainake.escomposlinux.org!lamanonegra.escomposlinux.org!news-7.escomposlinux.org!news From: "Reinoso G." <reinoso@probando.com> Newsgroups: es.comp.os.linux.programacion Subject: Re: Leer un fichero Date: Fri, 3 Jan 2003 14:12:49 +0100 Organization: ecolnet Lines: 35 Message-ID: <slrnb1b32h.tm.reinoso@EA4BAO.PLLANO.ESP.EU> References: <7d4ff0e4.0301020707.6388a1a6@posting.google.com> Reply-To: rei noso.bao@wanadoo.e s NNTP-Posting-Host: 62-37-145-56.dialup.uni2.es Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-15 Content-Transfer-Encoding: 8bit X-Trace: lamanonegra.eg 1041604150 11113 62.37.145.56 (3 Jan 2003 14:29:10 GMT) X-Complaints-To: foobar@escomposlinux.org NNTP-Posting-Date: Fri, 3 Jan 2003 14:29:10 +0000 (UTC) User-Agent: slrn/0.9.7.4 (Linux)