Thread Schleife: Dateien umbenennen: Prob mit substr (31 answers)
Opened by steinwolf at 2004-05-31 17:39

steinwolf
 2004-05-31 17:39
#82821 #82821
User since
2003-08-04
367 Artikel
BenutzerIn
[default_avatar]
Hi,
folgendes Script soll alle Dateien in einem Verzeichnis umbenennen. Genauer, einfach an jeder Datei ein .HID anhängen...
sprich datei.txt.HID <- so oder so ähnlich sehen alle Dateien dann aus. Leider gibt substr nur das .HID zurück. Ich will aber im Prinzip die andere Seite, also datei.txt
Kann ich hier überhaupt mit substr arbeiten oder musses ein regex sein?

P.S.
ich bin ansich gegen Regexes weil mein Code sehr schnell sein muss, sind einige Tausend Dateien die binnen einiger Sekunden umgenannt werden sollen..


mfg steinigen

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!perl -w

use strict;

my $dir = "E:/Perl/bin/test";
chdir($dir);

opendir(DIR, $dir);
	foreach my $file(readdir(DIR)) {
 		if(!-d $file ) {
	
			if($file =~/\.HID$/) {
				my $cut = substr($file, -4); #HIER STIMMT WAS NICHT
				rename($file, $cut);
		}
	}
}
	#if(!$file =~/^\./) { rename($file, "$file\.HID"); }
closedir(DIR);
"Did you know? You can use your old motor oil to fertilize your lawn." - Blinkster - Professionelles EDV Forum

View full thread Schleife: Dateien umbenennen: Prob mit substr