From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: From: cORAX To: Saratov Linux User Group Maillist Subject: Re: [Sarlug] =?koi8-r?b?08vSydDU?= Date: Thu, 20 Oct 2005 15:10:32 +0400 User-Agent: KMail/1.8 References: <201200810.20051019181132@sstu.ru> <200510201311.47392.corax@4c.ru> <43576622.8000306@list.ru> In-Reply-To: <43576622.8000306@list.ru> MIME-Version: 1.0 Content-Type: Multipart/Mixed; boundary="Boundary-00=_os3VDxSkkbu9+2f" Message-Id: <200510201510.32380.corax@4c.ru> X-Virus-Scanned: amavisd-new at 4c.ru 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 11:10:41 -0000 Archived-At: List-Archive: List-Post: --Boundary-00=_os3VDxSkkbu9+2f Content-Type: text/plain; charset="koi8-r" Content-Transfer-Encoding: base64 Content-Disposition: inline 9yDTz8/C3cXOyckgz9QgMjAg78vU0cLS2CAyMDA1IDEzOjQwIEdlbml4IM7B0MnTwcwoYSk6Cj4g Y09SQVggd3JvdGU6Cj4gPj7Qz8TTy8HWydTFINPL0snQ1CDEzNEg0NLFz8LSwdrP18HOydEg1MXL 09TBINLB2sLJ1M/HzyDTyc3Xz8zPzSA7INcKPiA+Pmh0bWwg1MHCzMnD1S4KPiA+PsbP0s3B1CDU xcvT1ME6ICJhYWE7IGJiYjsiCj4gPgo+ID4g7M/XySEKPgo+IM/KLCDT1MHSxcXUIOfF0s3Bziwg 09TB0sXF1CA7KSkpCj4KPiDQzyDNz8XN1SDexcwgyM/Uxcwg3tTPLdTPINTJ0MEg3NTPx88KCvcg 1MHLz80g08zV3sHFINTXz8og0NLJzcXSIM7FINfF0s7FLi4gycLPIMXTzMkg1MXL09QgwtXExdQg xs/SzcHUwSAKInp6ejt4eHg7enp6O3h4eDt6eno7eHh4O3p6ejt4eHg7enp6O3h4eDt6eno7eHh4 O3p6ejt4eHg7enp6O3h4eCIgCtTPINfZINDPzNXeydQg1yDSxdrVzNjUwdTFCjx0cj48dGQ+enp6 PC90ZD48dGQ+eHh4PC90ZD48dGQ+enp6PC90ZD48dGQ+eHh4PC90ZD4KPHRkPnp6ejwvdGQ+PHRk Pnh4eDwvdGQ+PHRkPnp6ejwvdGQ+PHRkPnh4eDwvdGQ+Cjx0ZD56eno8L3RkPjx0ZD54eHg8L3Rk Pjx0ZD56eno8L3RkPjx0ZD54eHg8L3RkPgo8dGQ+enp6PC90ZD48dGQ+eHh4PC90ZD48dGQ+enp6 PC90ZD48dGQ+eHg8L3RkPjwvdHI+CgrPxM7VINPU0s/L1SDTIM3Oz9bF09TXz80g09TPwsPP1y4u LiAKwSDF08zJIM7V1sXOINLF2tXM2NTB1CDTIM3Oz9bF09TXz80g09TSz8sgySDE19XN0SDT1M/M wsPBzckuLi4uIAoK18/UINPL0snQ1C4uLiAoz9Qgy8HLIMkg19PFLCDOxdPP18XS28XOxc4gKSkp KQo= --Boundary-00=_os3VDxSkkbu9+2f Content-Type: application/x-perl; name="script1.pl" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename="script1.pl" #!/usr/bin/perl -w use strict(); unless(@ARGV){ print("Usage: script.pl file_name"); exit(); } my ($fname) = @ARGV; print <<_HEADER_; _HEADER_ open(FH, $fname) or die "$!"; while(){ chomp($_); $_ =~ s/(\w+)\;(\w+)/
$1<\/td>$2<\/td><\/tr>/ig; $_ =~ s/\;//ig; print $_."\n"; } close(FH); print <<_FOOTER_;
_FOOTER_ exit(); --Boundary-00=_os3VDxSkkbu9+2f--