Community  »  CGI: Allgemeines Forum

dateien umbenennen.,	Seitenanfang
hallo. habe einen ordner mit Foto(1).JPG Foto(2).JPG Foto(3).JPG Foto(4).JPG Foto(5).JPG [..] Ich möchte mit einen Script aus allen .JPG ein .jpg machen. wie mache ich das? sind übrigens zwischen 1 und 1000 bilder in diesem ordner. MFG Stefan Datum: 22.11.2004-14:11
re: dateien umbenennen.,	Seitenanfang
#! /usr/bin/perl use strict; use warnings; use File::Copy; my $dir = '/Verzeichnis/mit/den/JPGs/'; opendir(DIR,$dir) or die $!; while(my $file = readdir(DIR)){ next unless $file =~ /\.JPG$/; my $old_file = $dir.'/'.$file; my ($new_file = $old_file) =~ s/\.JPG$/.jpg/; move($old_file,$new_file); } closedir(DIR); Datum: 22.11.2004-14:42
re: dateien umbenennen.,	Seitenanfang
my @files = <*.JPG>; for my $filename (@files) { rename($filename, lc($filename)); } oder willst du nur die endung lowercase? Datum: 22.11.2004-16:06
re: dateien umbenennen.,	Seitenanfang
@jan, damit würdest Du aber den gesamten Dateinamen in Kleinbuchstaben umwandeln! Datum: 23.11.2004-07:01
re: dateien umbenennen.,	Seitenanfang
ich weiß, renee :) daher schrieb ich ja auch "oder willst du nur die endung lowercase?". auf bald, wenn der server wieder steht. Datum: 23.11.2004-12:57