postproc.pl

MIPS下的boottloader yamon 的源代码

#!/usr/bin/perl

<STDIN>;		# toss first line...
$last = <STDIN>;	

while( <STDIN> )
{
    if( $_ =~ /\!/ )
    {
        <STDIN>;  # skip next line
        $last = <STDIN>; # get following line
    }
    else
    {
        print $last;
        $last = $_;
    }
}
print $last;