1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
|
#!/usr/contributed/bin/perl
foreach $elem( @ARGV) {
if ($elem =~ /\.xbm$/io) {
rename ($elem, $elem . '.bak');
open (OUTFILE, ">$elem");
$oldfile = $elem . '.bak';
open (INFILE, $oldfile);
print "Working on $elem\n";
@data = <INFILE>;
$name = $elem;
$name =~ s/\.xbm$//;
@parts = split(/\//,$name);
$count = @parts;
$name = @parts[$count - 1];
print "name = $name count = $count\n";
foreach $line (@data) {
$line =~ s/ \S*width/' ' . $name . '_width'/e;
$line =~ s/ \S*height/' ' . $name . '_height'/e;
$line =~ s/ \S*x_hot/' ' . $name . '_x_hot'/e;
$line =~ s/ \S*y_hot/' ' . $name . '_y_hot'/e;
$line =~ s/ \S*bits/' ' . $name . '_bits'/e;
}
print OUTFILE @data;
unlink ($oldfile);
}
}
|