Koders Code Search: unreadable.pl

download

unreadable.pl
Language: Perl
LOC: 11

Project Info
Ultima Online Project(uop)
Server: SourceForge
Type: cvs

$SourceForge\u\uop\uop\uop\$ SourceForge\u\uop\uop\uop\

   acinclude.m4
   aclocal.m4
   action.cc
   action.h
   animation.cc
   animation.h
   artexport.cc
   artfactory.cc
   artfactory.h
   audio.cc
   audio.h
   btree.cc
   btree.h
   cache.h
   cliloc.cc
   cliloc.h
   config.h.in
   configure.in
   cvs2cl.pl
   entity.cc
   entity.h
   gumps.cc
   gumps.h
   interface.cc
   interface.h
   interfacegumps.cc
   interfacegumps.h
   interfacehandler.cc
   interfacehandler.h
   intrface.def
   Makefile.am
   Makefile.in
   message.cc
   message.h
   musicmap.def
   network.cc
   network.h
   patchhandler.cc
   patchhandler.h
   readable.pl
   serverhandler.cc
   serverhandler.h
   sprite.cc
   sprite.h
   stamp-h.in
   texthandler.cc
   texthandler.h
   tiledata.cc
   tiledata.h
   unreadable.pl
   uop.cc
   uop.cfg
   uop.dox
   uop.h
   uopconfig.cc
   uopconfig.h
   uosprite.h
   uostub.pl
   world.cc
   world.h

#!/usr/bin/perl

# this is a quick hack to convert intrface.txt back into intrface.def

open F,"<intrface.txt";
open OF,">intrface.def";

print OF chr(0xff);
print OF chr(0xfe);

while (<F>)
{
  s/(.)/$1\0/gs;
  print OF;
}
close F;
close OF;