Re: pasar de una a dos columnas... como se hace?

Article View: es.comp.os.linux.programacion

Article #529

Back to es.comp.os.linux.programacion Previous Next

#529

From: El Máquinas
Date: Wed, 02 May 2007 15:05

29 lines
1853 bytes

Hola:

En Bash no se pero en Perl sin mucho pensar podr�a ser algo as�:

#!/usr/bin/perl
use strict;

my $file1 = shift;
my $file2 = shift;

if (open (FHA,$file1)) {
   if (open (FHB, $file2)) {
     do {
       my $line1  = <FHA>;
       my $line2  = <FHB>;
       chomp($line1);	# Elimino el caracter \n de la l�nea
       chomp($line2);	
       print $line1."\t".$line2."\n";
     } until (eof(FHA) and eof(FHB));
     close(FHB);
   }
   close(FHA);
}

Lo guardas en un ficherito con permisos de ejecuci�n y lo llamas desde 
la shell pasando como primer operando el primer fichero, como segundo 
operando en segundo fichero, el resultado se muestra en la consola.

Saludos.

Technical Details

Message-ID: <4638A8B6.40300@terra.es>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!fu-berlin.de!nsnmpen1-lo.nuria.telefonica-data.net!telenews.teleline.es!not-for-mail

References: <f19rio$h95$1@helvete.escomposlinux.org>

Show Full Headers

Complete Article Headers

X-Google-Thread: f86c8,8fe97fcf17270ce
X-Google-Attributes: gidf86c8,public
X-Google-Language: SPANISH,ASCII
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!fu-berlin.de!nsnmpen1-lo.nuria.telefonica-data.net!telenews.teleline.es!not-for-mail
X-Trace-PostClient-IP: 80.32.168.211
Message-ID: <4638A8B6.40300@terra.es>
From: El Máquinas <el.maquinas@terra.es>
User-Agent: Mozilla/5.0 (X11; U; Linux i686; es-ES; rv:1.7.8) Gecko/20070113 Debian/1.7.8-1sarge10
X-Accept-Language: es, es-es, de, en, de-de
MIME-Version: 1.0
Newsgroups: es.comp.os.linux.programacion
Subject: Re: pasar de una a dos columnas... como se hace?
References: <f19rio$h95$1@helvete.escomposlinux.org>
In-Reply-To: <f19rio$h95$1@helvete.escomposlinux.org>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 8bit
Lines: 29
Date: Wed, 02 May 2007 15:05:29 GMT
NNTP-Posting-Host: 10.20.31.4
X-Complaints-To: usenet@teleline.es
X-Trace: telenews.teleline.es 1178118329 10.20.31.4 (Wed, 02 May 2007 17:05:29 MET DST)
NNTP-Posting-Date: Wed, 02 May 2007 17:05:29 MET DST
Organization: Terra Networks

Reply to Parent Message