append.pl

#!/usr/bin/perl

#su xinmin 2013/1/17

$NUM_ARGV  =  @ARGV  ;

if ( $NUM_ARGV  ==  2 )

{

         $input   =  $ARGV  [ 0 ];

         $cl   =  $ARGV  [ 1 ];

}

else

{

         return  1  ;

}

open  (inf, $input  ) ||  die  " $input "  ;

@alllines  =  <inf>  ;

close  (inf);

$str = ""  ;

foreach  ( @alllines  )

{

         $str .= $_  ;

}

$str  =~ s/#  [0-9]+ / \@  $cl /sg ;                                #将#3  数字 改成  @cl号

open  F  , "> $input  "  or  die  " $input "  ;

print  F  $str ;

close  F  ;