defalign.pl.svn-base

AVR单片机下

#! /usr/bin/perl -w
use strict;

my $delop = "rm";
my $mvop  = "mv";
my $fn;
$fn = <STDIN>;
chomp $fn;
die "Input Not a file\n" if( !(-f $fn) );
open IFD, "<".$fn || die "Cannot open input!\n";
my $read;
my $defname;
my $defval;

while($read = <IFD>){
	chomp $read;
	if( $read =~ m/^\#define\s+(\w+)\s+(\w+)\s*$/ ){
		$defname = $1;
		$defval  = $2;
		printf "#define %-35s  %-15s \n", $defname, $defval;
	}
}

close IFD;