Article View: es.comp.os.linux.programacion
Article #9415Re: regex, matchs, perl, controlar decimales
From: "Jesús M. NAVARRO"
Date: Sun, 14 Jul 2002 15:17
Date: Sun, 14 Jul 2002 15:17
54 lines
2679 bytes
2679 bytes
Hola, isues: isues wrote: > Wuenas a todos los mundos> > vereis mi problema surge cuando quiero controlar los decimales con perl. > > dada la expresion> > > $num1 = 390; > $num2 = 1.07: > > $resultado = ($num1 / $num2); > > #el resultado 364.485981308411, claro que yo solo necesito dos decimales, > y no se ni por donde pillarlo, se que se resuelve usando regex y match. Supongo que lo �nico que deseas es formatear el resultado (no imagino que pudieras "capar" el n�mero antes de acabar de realizar con �l operaciones aritm�ticas y perder por ello precisi�n). Pues si lo que quieres es formatear una salida, utiliza las funciones de formateo de salida (de perogrullo vaya). Tal que as�: $num1 = 390; $num2 = 1.07; $resultado = ($num1 / $num2); # �Que quieres dos decimales al enviar a la salida el resultado? pues... printf "%.2", $resultado; # ...tambi�n hubieras podido hacerlo directamente si esto es todo lo que quer�as hacer con el n�mero: printf "%.2", ($num1/$num2); # �Lo quieres con un formateo un poco m�s particular? printf "El n�mero de la bestia es %.2\n", ($num1/$num2); El funcionamiento de printf es calcado del que se le da en C. Finalmente, si se trata de una salida repetitiva con los mismos tipos de formato, pues en la misma base de Perl (no nos olvidemos: Practical extracting and *reporting* language) tenemos los Formatos, para hacerlo (keyword FORMAT). > > PD.prometo estudiar mas los regex.(son fascinantes) > Sin duda lo son, pero quiz� no sea �ste el caso de usarlos ;^D -- SALUD, Jesus *** jmnavarrol@able.es ***
Technical Details
Message-ID:
<3D319619.6070605@able.es>Path:
arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news.tele.dk!small.news.tele.dk!213.56.195.71!fr.usenet-edu.net!usenet-edu.net!proxad.net!proxad.net!skynet.be!skynet.be!seanews2.seabone.net!garse!news.iddeo.es!mithrandir.intranet!newsReferences:
<agpdui$h9f$1@localhost.localhost>Show Full Headers
Complete Article Headers
X-Google-Language: SPANISH,ASCII X-Google-Thread: f86c8,b809275dbda7b1e8 X-Google-Attributes: gidf86c8,public X-Google-ArrivalTime: 2002-07-14 08:39:28 PST Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news.tele.dk!small.news.tele.dk!213.56.195.71!fr.usenet-edu.net!usenet-edu.net!proxad.net!proxad.net!skynet.be!skynet.be!seanews2.seabone.net!garse!news.iddeo.es!mithrandir.intranet!news From: "Jesús M. NAVARRO" <jmnavarrol@able.es> Newsgroups: es.comp.os.linux.programacion Subject: Re: regex, matchs, perl, controlar decimales Date: Sun, 14 Jul 2002 17:17:45 +0200 Organization: Iddeo - Retevisi�n Lines: 55 Message-ID: <3D319619.6070605@able.es> References: <agpdui$h9f$1@localhost.localhost> NNTP-Posting-Host: 212.97.185.73 Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 8bit User-Agent: Mozilla/5.0 (X11; U; Linux i586; en-US; rv:1.0.0) Gecko/20020615 Debian/1.0.0-3 X-Accept-Language: en