JAPV

My JAPH Vampire. Not as fancy as some I've seen here, but hey, it killed a couple hours.

#! perl -w

                   %a=(N,10,X,32,P,43,
              M,45,F,47         ,B,92,L,95,U
         ,124,D,68,                 G,71);undef
        $/;@_=                         split/\s+/
      ,<DATA>;                          chomp;$n=
      join '',                          @_;@_=split
      '',$n;                                foreach
      (@_)    {print chr(      $a{$_});}     __DATA__
      NXXX     XXMPMXXX         UXXXXX       XXXXXX
      XUXU      XXXXXX           XXUB        XXXXU
      XXUX       XXX      XXU    NX          XXXX
      XUUU               FMPMX               XFBX
       UFB               FBMPM               UFB
       FFU               F X X               UFF
       FUF               UXXUF              BFB
        XFU     F                     F     FUF
         NXX     XX                 XL    UBF
          BXU     XXXB          FBUX     UBF
           XUX      UXUBFUXXXUXBFU      XUX
            XUX      U BFBBUBBF U     XXXX
             XXX     X   NXXX   X   XXXX
              XFX                   NXX
                XXXX              XXXX
                  XXXXX        XXXXX
                     XXXX   XXXXX
                       XXXXXXN
[download]

Note: I've only tested this on NT, but I think it ought to work across the board. If not, Please let me know.

Update: Seems to run correctly on NT, Linux, NetBSD and Solaris 7.

Comment on JAPV Download Code

Replies are listed 'Best First'.
Re: JAPV by Elliott (Pilgrim) on Oct 17, 2001 at 23:07 UTC
It doesn't work on a Mac. You have the equal and opposite problem to the one I had with When a PERL Hacker Retires. BTW I was able to see what it's supposed to do by copying the output into BBEdit and replacing all the "funny" characters with line feeds. Cool work! Oh and here's a fix that certainly works on the Mac and I'm pretty sure is platform-indepedent: `#! perl -w %a=(N,ord("\n"),X,32,P,43, M,45,F,47 ,B,92,L,95,U ,124,D,68, G,71);undef $/;@_= split/\s+/ ,<DATA>; chomp;$n= join '', @_;@_=split '',$n; foreach (@_) {print chr( $a{$_});} __DATA__ NXXX XXMPMXXX UXXXXX XXXXXX XUXU XXXXXX XXUB XXXXU XXUX XXX XXU NX XXXX XUUU FMPMX XFBX UFB FBMPM UFB FFU F X X UFF FUF UXXUF BFB XFU F F FUF NXX XX XL UBF BXU XXXB FBUX UBF XUX UXUBFUXXXUXBFU XUX XUX U BFBBUBBF U XXXX XXX X NXXX X XXXX XFX NXX XXXX XXXX XXXXX XXXXX XXXX XXXXX XXXXXXN` [download]	[reply] [d/l]
Re: Re: JAPV by DamnDirtyApe (Curate) on Oct 17, 2001 at 23:30 UTC
Thanks, that's one of the few platforms I don't have access to.	[reply]