sslug-teknik team mailing list archive

["Erwin S. Andreasen" <erw@xxxxxx>]

On Sun, 24 Oct 1999, Allan Frank wrote:

> Jeg har nogle filer med denne slags filnavne:
> 
>               frame.12.ppm  frame.18.ppm  frame.23.ppm  frame.6.ppm

[...]

> Derfor ville jeg gerne ændre navnene til:
> 
> frame.000001.ppm

Her er noget vha Perl. Jeg venter spændt på Peter Makholm's mmv løsning :)

#!/usr/bin/perl -w
use strict;
for (@ARGV) {
	if (/^frame\.(\d+)\.ppm$/) {
		my $file = sprintf("frame%06d.ppm", $1);
		if (-f $file) {
			warn "$_ => $file already exists\n";
		} else {
			rename $_, $file;
			print "$_ => $file\n";
		}
	}
}

Gem det i en fil, kør ./fil.pl frame*ppm.


-- 
==============================================================================
Erwin Andreasen   Herlev, Denmark <erw@xxxxxx>          UNIX System Programmer
<URL:http://www.andreasen.org>              <*>              Goodbye, Richard!
==============================================================================