rename_pixmaps.pl

来自「pixil 最新的嵌入linux 應用程序集,別的地方很難下載」· PL 代码 · 共 20 行

#!/usr/bin/perl

# This script renames pixmaps internally after conversion from Image Magick,
# to the Gimp's naming scheme.

$file_name = $ARGV[0];

open (IN, "< $file_name");
while (<IN>) { $file .= $_; }
close (IN);

$n = $file_name;
$n =~ s/\./\_/g;
$file =~ s/magick/$n/g;

open (OUT, "> $file_name");
print OUT $file;
close (OUT);