From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: From: cORAX To: rs , Saratov Linux User Group Maillist Subject: Re: [Sarlug] =?koi8-r?b?08vSydDU?= Date: Thu, 20 Oct 2005 13:11:46 +0400 User-Agent: KMail/1.8 References: <201200810.20051019181132@sstu.ru> In-Reply-To: <201200810.20051019181132@sstu.ru> MIME-Version: 1.0 Content-Type: Multipart/Mixed; boundary="Boundary-00=_T91VDOyWysuZh9b" Message-Id: <200510201311.47392.corax@4c.ru> X-Virus-Scanned: amavisd-new at 4c.ru Cc: 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:12:09 -0000 Archived-At: List-Archive: List-Post: --Boundary-00=_T91VDOyWysuZh9b Content-Type: text/plain; charset="koi8-r" Content-Transfer-Encoding: base64 Content-Disposition: inline 9yDTz8/C3cXOyckgz9QgMTkg78vU0cLS2CAyMDA1IDE4OjExIHJzIM7B0MnTwcwoYSk6Cj4g8NLJ 18XULCBzYXJsdWcuCj4KPiDQz8TTy8HWydTFINPL0snQ1CDEzNEg0NLFz8LSwdrP18HOydEg1MXL 09TBINLB2sLJ1M/HzyDTyc3Xz8zPzSA7INcKPiBodG1sINTBwszJw9UuCj4gxs/SzcHUINTFy9PU wTogImFhYTsgYmJiOyIKCuzP18khCg== --Boundary-00=_T91VDOyWysuZh9b Content-Type: application/x-perl; name="script.pl" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; 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($_); my ($a, $b) = split(/\;/, $_); print qq{\n}; } close(FH); print <<_FOOTER_;

_FOOTER_ exit(); --Boundary-00=_T91VDOyWysuZh9b--