ecdata_patch.pl

来自「这是广泛使用的通信开源项目,对于大容量,高并发的通讯要求完全能够胜任,他广泛可用」· PL 代码 · 共 17 行

eval '(exit $?0)' && eval 'exec perl -pi -S $0 ${1+"$@"}'
    & eval 'exec perl -pi -S $0 $argv:q'
    if 0;

# ecdata_patch.pl,v 1.1 2000/05/24 16:45:19 cdgill Exp
#
# This script patches the event data definition by removing the IDL typedef,
# for java idl compilers that do not handle typedefs correctly.  Repeated
# applications of this patch to an already patched file should be idempotent.
# This script reads from stdin and writes to stdout.

while (<>) {
s%^(\s*)(typedef RtecEventData EventData;)%$1// $2%;
s%^(\s*)(EventData data;)%$1Rtec$2%;
print;
}