create_xcl.pl

cc1111调试文件

use Getopt::Std;
use File::Find;
use Cwd;

getopts('f:c:', \%args);

# get date today
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime time;
$mon += 1;
$year += 1900;
$toDay = "$year.$mon.$mday-$hour:$min";

if( $args{c} ){
   $tag = $args{c};
   $tag =~ /(\d*)/;
   $chip = $1;
   print "tag: $tag chip:  $chip \n";
}
else{
  die "Enter chip number";
}

if( $args{f} ){
   split_file ( $args{f} );
}
else{
   split_file ("lnk51ew_ccxxxx.xcl");
}


sub split_file
{
   $infile = $_[0];
   $outfile = "lnk51ew_cc$tag.xcl";

   open( INFILE, $infile) or die "cant open infile\n";
   open( OUTFILE, ">$outfile") or die "cant open outfile\n";

   $in = 1;
      
   foreach( <INFILE> ){
      $line = $_;
      
      if( $line =~ /(.*File: )/ ) {
      	$line = "$1 $outfile\n";
      } 
      elsif( $line =~ /(.*Date: )/ ) {
      	$line = "$1 $toDay\n";
      } 
      elsif( $line =~ /(.*Chipcon CC)/ ) {
      	$line = "$1$chip.\n";
      } 
      elsif( $line =~ /&$tag\s/ ) {
      	$in = 1;
      	$line = "";
      }
      elsif( $line =~ /&/ ) {
      	$in = 0;      
      	$line = "";
      }
      elsif( $line =~ /#/ ) {
      	$in = 1;      
      	$line = "";
      }
      
      if ($in == 1){
      	print OUTFILE $line;
      }
   }
   close( OUTFILE );
   close( INFILE );
}