Article View: pl.comp.lang.perl
Article #493Re: Formatowanie dyskietek na 2Mb
From: Maciej Jastrzebski pedro
Date: Fri, 08 Aug 1997 12:34
Date: Fri, 08 Aug 1997 12:34
14 lines
1214 bytes
1214 bytes
In pl.comp.lang.perl Tomalo <godala@polbox.com> wrote:
> Cześć!
> Potrzebuję jakiegoś narzędzia do formatowania dyskietek na 2Mb (ostatecznie
> 1,66Mb) pod Win95. Mile widziany jakiĹ› crack lub chociaĹĽ shareware.
perl -e `twoj_ulubiony_program_do_formatowania_dyskietek_na_2MB`
Pedro.
--
#!/usr/bin/perl -- Maciej "Pedro" Jastrzebski pedro@golem.umcs.lublin.pl
open(h,${$|})?$_=<h>:f<vwy;$_.=<h>;split??;$=-=$=;while(!$!){$===48?exit:print
$_[$==unpack "x$?c",'&-$(T+$4+"4<+$T+!+$:!"g$B"< +!N/$(@!J$("$>h$B">4@(+!N&J'.
' $-4+J $>h$+f+J/J:-$g/(T$/(N</.+$&$d!/+J N0'];$?+=!$!;}
Technical Details
Message-ID:
<5sf3ou$f1j$1@helios.man.lublin.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!agh.edu.pl!ict.pwr.wroc.pl!news.icm.edu.pl!lublin.pl!not-for-mailReferences:
<01bca382$1bb73a00$LocalHost@tomalo>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!agh.edu.pl!ict.pwr.wroc.pl!news.icm.edu.pl!lublin.pl!not-for-mail From: "Maciej Jastrzebski" pedro@apollo.umcs.lublin.pl Newsgroups: pl.comp.lang.perl Subject: Re: Formatowanie dyskietek na 2Mb Date: 8 Aug 1997 12:34:38 GMT Lines: 14 Message-ID: <5sf3ou$f1j$1@helios.man.lublin.pl> References: <01bca382$1bb73a00$LocalHost@tomalo> NNTP-Posting-Host: apollo.umcs.lublin.pl Mime-Version: 1.0 X-Newsreader: TIN [UNIX 1.3 unoff BETA 970409; 9000/715 HP-UX B.10.20] Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit