fixup

No7信令,我需要交换类似的代码, 请店长审核,谢谢了,急着交换,谢谢

#!/usr/bin/perl
# =============================================================================
# 
# @(#) fixup,v 0.7 2001/12/10 22:34:26 brian Exp
# 
# -----------------------------------------------------------------------------
# 
# Copyright (C) 2001  OpenSS7 Corporation <http://www.openss7.com>
# 
# All Rights Reserved.
# 
# This program is free software; you can redistribute it and/or modify it under
# the terms of the GNU General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option) any later
# version.
# 
# This program is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
# details.
# 
# You should have received a copy of the GNU General Public License along with
# this program; if not, write to the Free Software Foundation, Inc., 675 Mass
# Ave, Cambridge, MA 02139, USA.
# 
# -----------------------------------------------------------------------------
# 
# U.S. GOVERNMENT RESTRICTED RIGHTS.  If you are licensing this Software on
# behalf of the U.S. Government ("Government"), the following provisions apply
# to you.  If the Software is supplied by the Department of Defense ("DoD"), it
# is classified as "Commercial Computer Software" under paragraph 252.227-7014
# of the DoD Supplement to the Federal Acquisition Regulations ("DFARS") (or any
# successor regulations) and the Government is acquiring only the license rights
# granted herein (the license rights customarily provided to non-Government
# users).  If the Software is supplied to any unit or agency of the Government
# other than DoD, it is classified as "Restricted Computer Software" and the
# Government's rights in the Software are defined in paragraph 52.227-19 of the
# Federal Acquisition Regulations ("FAR") (or any success regulations) or, in
# the cases of NASA, in paragraph 18.52.227-86 of the NASA Supplement to the FAR
# (or any successor regulations).
# 
# -----------------------------------------------------------------------------
# 
# Last Modified 2001/12/10 22:34:26 by brian
# 
# =============================================================================

eval 'exec perl -S $0 ${1+"@"}'
	if $running_under_some_shell;

$\ = '';    # don't add newline on print
$* = 1;	    # do multiple line matching
undef $/;   # read in entire input

$file = <>;

while ( $file=~s/.\010//g ) { }
while ( $file=~s/FORMFEED\[(Page [0-9]*)\]\n/          \1\n\f/g ) { }

print $file;