Date: Fri, 2 Feb 2001 12:35:36 +0200 From: Peter Pentchev <roam@orbitel.bg> To: "Louis A. Mamakos" <louie@TransSys.COM> Cc: Jean-Marc Zucconi <jmz@FreeBSD.ORG>, Warner Losh <imp@harmony.village.org>, hackers@FreeBSD.ORG Subject: Re: EBCDIC -> ASCII Message-ID: <20010202123536.G328@ringworld.oblivion.bg> In-Reply-To: <200102020534.f125Yl812054@whizzo.transsys.com>; from louie@TransSys.COM on Fri, Feb 02, 2001 at 12:34:47AM -0500 References: <20010131214403.G17598@ringworld.oblivion.bg> <200101311642.f0VGgXv06307@iguana.aciri.org> <p05010404b69e18f4e1aa@[128.113.24.47]> <200102020036.f120as934631@harmony.village.org> <200102020049.f120n6M50078@freefall.freebsd.org> <200102020534.f125Yl812054@whizzo.transsys.com>
next in thread | previous in thread | raw e-mail | index | archive | help
On Fri, Feb 02, 2001 at 12:34:47AM -0500, Louis A. Mamakos wrote:
> > >>>>> Warner Losh writes:
> >
> > > Even the name (dd) comes from IBM's control language (JSYS?).
> >
> > Huh! I never realized that.
> > //GO.SYSIN DD *
> > ...
> > //
> > Where are my punch cards? :-)
>
> man 6 bcd
Come to think of it, since bcd(6) doubles as ppt(6), why isn't there
already something like the attached script? :)
G'luck,
Peter
--
This sentence was in the past tense.
#!/usr/bin/perl -wT
# $Id: unppt.pl,v 1.1 2001/02/02 10:33:42 roam Exp $
# unppt - a trivial script to convert ppt(6)'s output back to ASCII.
use strict;
MAIN:{
my $line; # input line processed
while (defined($line = <>)) {
chomp $line;
next unless $line =~ /^\|([ o]*)\.([ o]*)\|$/;
$line = "$1$2";
$line =~ tr/ o/01/;
print pack("B*", $line);
}
print "\n";
}
To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-hackers" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20010202123536.G328>