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: [email protected] (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: <[email protected]>
References: <[email protected]>
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
_/         _/         _/    _/            _/
_/         _/_/_/_/   _/    _/_/_/_/     _/        == [email protected] ==


-------%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 [email protected] 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: [email protected] (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: <[email protected]>
References: <[email protected]>
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---------------------------------------

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.