Article 12311 of comp.lang.perl:
Path: feenix.metronet.com!news.ecn.bgu.edu!usenet.ins.cwru.edu!howland.reston.ans.net!cs.utexas.edu!uunet!meaddata!petew
From: petew@meaddata.com (Pete Williams)
Newsgroups: comp.lang.perl
Subject: Re: New hex dump utility with auto EBC<=>ASC conversion
Date: 5 Apr 1994 23:57:10 GMT
Organization: Mead Data Central, Dayton OH
Lines: 115
Message-ID: <2nstsm$c1e@meaddata.meaddata.com>
References: <2nstl1$brl@meaddata.meaddata.com>
NNTP-Posting-Host: fracture.meaddata.com


As an added bonus, I've added a little something that calls the 
ASCII<->EBCDIC module.  Basically, this is a hex dump in a (I think)
more readable format, with the added bonus that it automatically
determines (with some margin of error, no doubt) whether a file 
is in ASCII or EBCDIC format;  if it is in EBCDIC format, the 
ASCII representations of the characters are printed out instead.

There are a few other bells and whistles as well.

While I'm not entirely happy with the coding, it seems to work well.
I've noted known bugs on the attached (wrapman-ned) manual page.
Any suggestions, especially on testing an input file format (EBCDIC
or ASCII) would be greatly appreciated.

As usual, bugs, hacks, suggestions, etc, to me.  Naturally, I offer no
warranties of any kind;  any similarities to programs living or dead are
entirely coincidental (except of course, the "heart" of the routine --
thanks Larry/Randal!).  All mistakes entirely my own.

Thanks again to everyone who responded to my post.  Hope someone finds this
useful.

Pete

_/_/_/_/_/_/   _/_/_/_/_/_/_/_/_/_/_/_/     _/      "'Tis an ill wind that
   _/      _/ _/         _/    _/           _/       blows no minds"
  _/_/_/_/   _/_/_/     _/    _/_/_/_/_/_/_/_/_/   --Malaclypse the Younger
 _/         _/         _/    _/            _/
_/         _/_/_/_/   _/    _/_/_/_/     _/        == petew@meaddata.com ==


-------%x-------------------CUT-HERE-------------------%x-------

begin 640 nhd.gz
M'XL("%'NH2T  VYH9 "U6FU3VT@2_LS\BEGBQ/9ARR^0S28<&P@X"74)4)AL
MZBJPJ;$TMK7(DD\:0;C=S6^_IWM&LHS))K5'M%MX-"_=TR_S=/<H#WZ0G3Q+
M.U'BJZ@S"N/.7*>1J =A?5O4PTFWB]\'XH&LO=8JT&G-OKQ))FC=XP.B1Z\/
MF/B[3$WT,QE/ _FA'<5Q?('?E'_;2K:U_# .(WUQO^Q%JO^3AZF6=97Y>N1[
M\PB"BUH*J2,SE3NR%H6QMLTGW6U1,SHS]G6SBW=L_"1-?)UETD]F,Q4';5H@
M53K)9SHVF>=Y0HP3$/2GLH9NV=C=.WWU2U/^+M8:W+'S67;:4>,\V&AVFO+1
M(]FXFW^MQZ.Q_F2VE]:FM];Z7YFOBZF0. A]3.VY#I.J.!M':E+VK:Y6G;^>
M+,5:,M=Q8WAV<'C4HG5-^<<?,@BU7-]7<=U(&I8UTL*'[L4S6?OA/%Z7X;CL
MVA9_DF+?JDLMLQS685(RS.0H'X]UJ@,)C<ILIJ)(DE=8+6<ZTKYI--PO+VJV
M9.V/G5X35)MLK7T5^7FDC)8FF;>3<7L.MR-R,V5D9M(PGF1P  QF>@[!?DO"
MN%&OMV3=J\M/<@N-J\I;O5L'7=I-H^:;G=ZVQ(_\Y\*$G5Y7;D ]/+"QP69G
MZG/E:]"O2R+4P*RVC'0\,5,BU 11GL;.Y,&6Q1(/H]MK-'B=+ WJN5/;<*[]
M4$725QD+)N$021K /_/80#RHWX1)S"HKO,59]#,V!+4=OSOKNYY?RYZ/9\<G
M5H4'B0R-5)F,$E##[[4&LUB2Q+)TW=$-CHJ$4I4TX4P+IR3JAJ(@1;K3;1'[
M.)^1WAHUB ]NM+[PG4 9U2HH-JT.4ZM$L09;3K5_"3O*3&OR'W(%\I(PEH,7
M^P>'^X5=DQAC:6;D)&FG4$- PJ\5_M\BJDVP?C08^6<XWS*/(SK151>'!_,T
M:&"MELWA)\81APT?]KW^)[(CR0#+[:HT53<8R6/8[+*QOE_['2-_KEN1V+C4
MH$/JSN!S^<A"4'U@DKV&G2=Q.*BQF/]9FK1SWFV?;SXY[SUY0K]/.EZ')ERI
M* -!M[?&^M(NUUMV3[S_ZRDIJN%6?)99Y]>&U\3_G0[[)YB%DQY[5F_;O?;Y
MM8_7/]>(1!H:UOEB?[0$4W@N=%*G3FMMN;%3:.;1*VW>F&G&2ZWO6;>]3U1_
M( LV'%E.V?\[+Q#L+N&H]OR'Y!/PR/5VNNY.Q#V'EBP?R4):*!4"%]X/?"C/
M':M[ ?>-<LY&"?U-^7,Y'[/7GB] OBW==!YX5BXA,TD= 0!NT:],**VS([O;
M=A:=Q8T-6OP];.).%]OD)1W'EAQA9Y<RGTLS172@V)J%_]4(!C%.=;'M-O7)
M$9DO\Z0\S6/)T309@Q 69L4@7G"Z)U.F1L1T*A&1"WAP,!5H],\(.J^G&C-3
MH%D=G@(D\\-0PB?LD01&2/E>A00')HPD!1O'9ZJNP%,#KYA+T&(VH 4?DGSJ
MZ&4FD]P0&-%V4CV!VZ7R6MUXI('[U"V[6H%=,#AG=11&TE;-^*; 49S %A]3
M_MMO[7)[E]L\#TZP2YC0JFE>L6M_ "061 BW'&VKHJ;S'=NYJRW$D!M7IHZA
MM,N,>J&71I% =4I8)T2RL0%[V.D"Y(T](G:A?7>1<^V.(*&7HP2[<K'CN\"Y
MXO>N]8$X7#!*$>OG+A9M+(WCK/4N&)$+,LS8K24@=TBXYO1P)_Q7UO!.&[:'
M,ZL/):)?W)&@,<L[,+[$=[T ^*\CO,5KM_D2Z"W25WH)[RW@WXW< (K">!S0
M;81>,EX9L=>^&O.<<K#"*KKROKU8_N40N!2$>M6%-B8YZ<KN53\HAE;"&^M@
MUY'?=?38RU-M\C1>SB6^1TA[>7SZ=N^LDHS=,X:X [.@#P'%"27'N__$(VH/
MA9#%L_L/462GMSIM5BJ$]WT5\#V%)\%W?\93",5 2HZP+"MYPTI/'Z++[RM[
M_WL*WR^E)_E)*)L6. 4LC=A3T_JR(NYUH[15)/UG'/"ITI1C?2W)VU!FH$B,
M] 15#\+M*$&J<Z+3B*-RG";C,;S10[D.A'N 2B .LZGTPHF0=..!SO/UHC<(
MKW2:(1ELM^>IO@J3/&,6<I8CMHXHTU#QI?#B5,:1[+9[=C%5JI3%4+D0<FZ)
M_,66'%Q?JHD*8U[U4'8MP\RHU%!]Q!-ZHKXM/WX<'!U\_"B7A)8OTV0FD:9H
M*F,H54%%A<5QH%#4S52<0VJFL:0J[^PU7:W(-W)]#]$BDH];LO?TZ=:Z\.!(
MF\(;8GSO[4#0A<MY&PJ];FA405/]204H(%%;RR"?S27/'/[[Z/AD>#@4W@NZ
MH1'G'\[YCN;\@IOIHCE?-)7[U?CU#M&D^HS:('@P&.Z?'IZ<'1X?88QIAB38
M"OL<J5=H;I!#D:HH[&6<5D$'5.>.0[H,H"N EKP.87<EDEB?M^'3Y^V$[*;F
M<RYZQS9I]*<J53XR0.BQRBS5L'>F8\.E@2?@9K:>I)01=E]P2VQ"YZY[V#M:
ME#721'1B&1FLL) (XWEN/.&=G#!-[!WOF A'R4B6,41A#T.KW!RD&2=1E%R#
MW^@&?IQPHLJ\1+E5DLOP/LG1JM*4A,@/R_FW-""<)&J4()VU<GR)JUQAFJ&J
M@OCB;K:HN#!]CAD\/[G%NE"BW3DQ\,2QU4R4(&^0&11IIK0V"G&VT,R>"2^;
M"^]?Y(0'"[@IGU[9ZI>MS;*U5;8>+]8BQ?>NZ$_W6UN\MLOLVCU RM(.NOT?
MG_8?=WO=WN.G/W4W?^QW7\O3RE8W^_AOLU]]-E>>K?[CK7)XL;87]'3WUK/"
M[J=N?ZL<M>&:M7(ZM%V8\Q/F\[.JP%(,6KQ0U^/5/?:_^-#H8FU_<Y7O7S_"
M.QC Q@,^+^_L-0PY"M"$SAC Q!7K%O/+4TD5&,#4Z-G<T!70##Y);B=6JSU3
MG&Q[4[0WW#\\)-I+5T8H_0['=,V%20L: 9$$&-R^8&HQ44N)+I21=M/=+V^1
M,4L'@D!KQ>M+6,JTH;9#!PYJP(RS$P+<XXK *G-'E(Z#'68@+DX/!X+K,#!3
M2'!2ON O5:]8'_R64\5*@F 9SFF4SV(JJ\^F)*IBVH"D/+/@835\P_M&&C"B
MLSLNEI$B4&KXMN)VFR<@=T(S68V*>ZSRB'7YI%NL;;F5X]#PW3DT:=0HNB$E
MS1+H1UBEHX+QY%%"%[84 H@1J:=M+TMM7 YG,QV$RF@LM^KA>?6H7BJ18Y2P
M5T'NHI5L3.!<7) ZBM@E6<,IB*\Q"_58URNU1/'EEHJ624%3U,DA@'W.NI5A
M53MBQ&[AQ;?<(XR_Z![6I&)$'J9]'5C,KNS!6JN\FB@ F^D6[E N%6ZMGP.W
M$2E(;'MCS+=DK'I'EQ,70F9EG"T!B.S9Z! 6R^GT>J=#N>$]#L7[J;9^K\&>
MXYVC!-'YNT@A."=U;JS8(7.C#8*#HBS%!:H4V5X:,#Z 9/5L.RY5:41%<7**
M,\1W-XYWQ28+DR#TW3:+L K-R.2LSS!8.;_6,C,D:_#$5(_I0T2VO!7> TVW
MY,#]%7+.I9S"1CJ3FR0-5?20OXFUTZVM+E\W(0_G\4HV<9WD4<"1<S5P:G<B
MT 6ZIX.O1-&_$T;_;ARUW+XYD);#;C&P1(Y_'&^-QUO59[SR^%N!7PY7M@WZ
MHV^(J4]OQU2[[[\;5'NP(T'BRK/UQ8=&*_M^VO^_PFJ!B$K8B%5&O,&G.=V'
M+.!J$>[LS++L*)>\YXNF(H6/J3N"ZYLTU)FM@2;T 8^"WS?&WZ(<)=AB$)C3
M]U4;L0+Z\@3D2])+SO:)+(81\XNLE,)6"Z&C<IJ9B"J#PI)<"#& 0,(7@((J
M-D-30(3KB3BI)M-4W[F/!T'"0.=TJ<7M].%EDOK0@>T^;_]L25<IE-D -D32
M"J3A:0I4L8BA</Y!*O3MKCJ.@4\?O:RXREBH<DJG'8$H*@[@",VPGT8=O%7#
M$#!P/M=Q=MN^138C<D Q^0*I?;%C%W,2'V!6C<E)#.Z5#"V;,AZ-V!R!QP7?
MX.B7P]/CH[>#HS-QA'(@O@K3)*9/Y/)* >9&D2OC%TM>'KX9##&9]8SWO7=G
MKX]/Q0GL)=]C(Z&:%55?G 0LS!N5IC?R/5W5%V&/+P+@A"CDM]M-:.-%/LE:
M@K\+Y),) )4EP^(Y"%_OSK0*Z*K#@Q(MW_7A8"#WW@R/U\4T:/2:MH ]W'MU
M=#P\.]P?(JO@?T2065Y;'@XFJ6(:3N#O//O%NU=#,=2F]-/E/*&!$MJY:]/9
MQ&6^ROK((JV3 I.C<O),W:#PA,YDQ638"M(MMGP,(1&>%'\-;MG$9JK%,GML
M'\6;"VL55M<4N%UVL_APG-GPONR42>SN3:P1273X1':#7',&L(.S!3 U-I L
M.92@_5.L-72#,H_HFSA.8B$))-B3601BAOP[Y(__\)@J;U%4^$2*,US*9^#2
M' G#F2Z^P(QS R@J*O&08"0^KQN+)D 1^A<P-YSM0)2;ZK\ND(W0TUZK8I//
>B#V<&9)#B9?A)W+>^ :N^EQX^I/X'X&*HJI@(P  
 
end
-------%x-------------------CUT-HERE-------------------%x-------



From petew@meaddata.com Mon Apr 11 01:15:46 CDT 1994
Article: 12392 of comp.lang.perl
Path: feenix.metronet.com!news.utdallas.edu!chpc.utexas.edu!cs.utexas.edu!uunet!meaddata!petew
From: petew@meaddata.com (Pete Williams)
Newsgroups: comp.lang.perl
Subject: Patch for hexdump
Date: 7 Apr 1994 20:53:12 GMT
Organization: Mead Data Central, Dayton OH
Lines: 36
Message-ID: <2o1rro$b8p@meaddata.meaddata.com>
References: <2nstl1$brl@meaddata.meaddata.com>
NNTP-Posting-Host: fracture.meaddata.com

My apologies again --

I put in an old copy of "nhd" on a previous post...  Here is the patch
to get it working right.  

To apply:

  1.  Save patch to a separate file, say "patch00";
  2.  "patch nhd < patch00"

Pete

------------------------------CUT HERE---------------------------------------
7c7
< # Usage: nhd [-lnnn] [-rnnn] [-pnnn] -a -e [file]
---
> # Usage: nhd [-lnnn] [-rnnn] -a -e [file]
20d19
< 	($arg =~ /-p(\d+)/) && ($= = $1) && next;
43,46d41
< # Check to see if file is in EBCDIC format on first go-round...
< 
< ($ebcdic,$ctr) = &EbcTest unless ($transflag || $ctr);
< 
49a45,48
> 
> 	# Check to see if file is in EBCDIC format on first go-round...
> 	($ebcdic,$ctr) = &EbcTest unless ($transflag || $ctr);
> 
271,275d269
< .TP
< .B -pnnn
< Page length.  Page size is set to nnn.  This allows for "manual" adjusting of
< page size so that output will fit on a terminal screen or a printer with
< a given font.  Default is 60.
------------------------------CUT HERE---------------------------------------



.