From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Message-ID: <43576622.8000306@list.ru> Date: Thu, 20 Oct 2005 13:40:50 +0400 From: Genix User-Agent: Mozilla Thunderbird 1.0.6 (X11/20050815) X-Accept-Language: en-us, en MIME-Version: 1.0 To: Saratov Linux User Group Maillist Subject: Re: [Sarlug] =?KOI8-R?Q?=D3=CB=D2=C9=D0=D4?= References: <201200810.20051019181132@sstu.ru> <200510201311.47392.corax@4c.ru> In-Reply-To: <200510201311.47392.corax@4c.ru> Content-Type: multipart/mixed; boundary="------------050808080309050309010202" X-OriginalArrivalTime: 20 Oct 2005 09:40:07.0675 (UTC) FILETIME=[41BF34B0:01C5D55A] X-BeenThere: sarlug@lug.ru X-Mailman-Version: 2.1.5 Precedence: list Reply-To: Saratov Linux User Group Maillist List-Id: Saratov Linux User Group Maillist List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Thu, 20 Oct 2005 09:40:11 -0000 Archived-At: List-Archive: List-Post: This is a multi-part message in MIME format. --------------050808080309050309010202 Content-Type: text/plain; charset=KOI8-R; format=flowed Content-Transfer-Encoding: 8bit cORAX wrote: >>подскажите скрипт для преобразования текста разбитого символом ; в >>html таблицу. >>формат текста: "aaa; bbb;" > > > Лови! ой, стареет Герман, стареет ;))) по моему чел хотел что-то типа этого -- У каждого в башке свои тараканы... --------------050808080309050309010202 Content-Type: application/x-perl; name="script.pl" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="script.pl" #!/usr/bin/perl -w use strict(); unless(@ARGV){ print("Usage: script.pl file_name"); } my ($fname) = @ARGV; print <<_HEADER_; _HEADER_ open(FH, $fname) or die "$!"; while(){ chop($_); $_ =~ s/\;$//g; $_ =~ s/^/

/g; $_ =~ s/$/<\/td><\/tr>/g; $_ =~ s/\;/<\/td>

/g; print qq{$_\n}; } close(FH); print <<_FOOTER_;

_FOOTER_ exit(); --------------050808080309050309010202--