Article View: es.comp.os.linux.programacion
Article #11951Re: Problema con Perl
From: Raul
Date: Tue, 18 Sep 2001 19:32
Date: Tue, 18 Sep 2001 19:32
39 lines
1988 bytes
1988 bytes
Gracias, aprovechando y perdona mi ignorancia, �para que el "-w "?.
Y te agradezco los cambios que de todo se aprende, pero, �no funcionaria
el "for" para mostrar los nombres?.
Un saludo.
>
>He incluido abajo tu programa con unos cambios.
>
>Saludos
>
>Adrian.
>
>----------------------
>#!/usr/bin/perl -w
>
>until(0) {
> chop ($cadena = <STDIN>);
> last if !$cadena;
> @tabla = split(/ /,$cadena);
> $formal = "$tabla[1] $tabla[2], $tabla[0]";
> push(@mennombres, $formal);
> if ($tabla[0] eq "Juan") { # eq para cadenas, == para numeros
> push(@menjuan, $formal);
> }
>
>}
>foreach (sort @mennombres) { # no se si es lo que querias
> print "$_\n";
>}
>
>open (NOMBRESJUAN, ">juanes");
>foreach (sort @menjuan) {
> print NOMBRESJUAN "$_\n"; # si quieres el \n
>}
>close (NOMBRESJUAN);
>
>
>
Technical Details
Message-ID:
<3BA7A168.1020303@grupobbva.net>Path:
arc1-ca.pugleaf.net!archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!feed.textport.net!news-out.nuthinbutnews.com!propagator2-austin!propagator!feed2.uncensored-news.com!feed1.uncensored-news.com!propagator-la!news-in-la.newsfeeds.com!news-in.superfeed.net!newsfeed.bcn.ttd.net!news.mad.ttd.net!not-for-mailReferences:
<3BA64E6E.1030809@grupobbva.net> <slrn9qe99r.s9.adrianr@localhost.localdomain>Show Full Headers
Complete Article Headers
X-Google-Language: SPANISH,ASCII X-Google-Thread: f86c8,e64cc5443679e137 X-Google-Attributes: gidf86c8,public X-Google-ArrivalTime: 2001-09-18 12:47:41 PST Path: arc1-ca.pugleaf.net!archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!feed.textport.net!news-out.nuthinbutnews.com!propagator2-austin!propagator!feed2.uncensored-news.com!feed1.uncensored-news.com!propagator-la!news-in-la.newsfeeds.com!news-in.superfeed.net!newsfeed.bcn.ttd.net!news.mad.ttd.net!not-for-mail From: Raul <rauljh@grupobbva.net> Newsgroups: es.comp.os.linux.programacion Subject: Re: Problema con Perl Date: Tue, 18 Sep 2001 21:32:56 +0200 Organization: Telefonica Transmision de Datos Lines: 40 Message-ID: <3BA7A168.1020303@grupobbva.net> References: <3BA64E6E.1030809@grupobbva.net> <slrn9qe99r.s9.adrianr@localhost.localdomain> NNTP-Posting-Host: 213.97.97.118 Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 8bit User-Agent: Mozilla/5.0 (Windows; U; Win98; en-US; rv:0.9.2) Gecko/20010726 Netscape6/6.1 X-Accept-Language: en-us, es