defalign.pl.svn-base

来自「AVR单片机下」· SVN-BASE 代码 · 共 25 行

#! /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;