Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

[r13118]: branches / phil_tmp / scripts / make-xpm-transparent.pl Maximize Restore History

Download this file

make-xpm-transparent.pl    17 lines (12 with data), 234 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
#!/usr/bin/perl -w
use strict;
my $prevLine = "";
while (<>) {
my $line = $_;
if ($line =~ /pixels/) {
$prevLine =~ s/ [G\#][\w\d][^\"]*/ None/;
}
print $prevLine;
$prevLine = $line;
}
print $prevLine;