Schleife: Dateien umbenennen: Prob mit substr (Seite 2) (Allgemeines zu Perl)

Crian

2004-06-01 15:16

User since
2003-08-04
5866 Artikel
ModeratorIn

Code: (dl )

1
2
3

use File::Copy qw/move/;

move($_, $_ . '.HID') for <*>;

Sowas vielleicht?\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

pq

2004-06-01 21:21

User since
2003-08-04
12208 Artikel
Admin1

[quote=Heromaster,01.06.2004, 04:39]
Ähm, mit Deinem Vorschlag kann man doch so keine Dateien umbenennen?[/quote]
nö, aber mit $file =~ s/$/\.bak/; wohl auch nicht!

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

kabel

2004-06-01 23:39

User since
2003-08-04
704 Artikel
BenutzerIn
[default_avatar]

tip: cygwin emuliert eine unix-umgebung unter windows.

[quote=steinwolf,31.05.2004, 16:02]"regexp sind sehr schnell"
aber längst nicht so schnell wie substr!!![/quote]
ok, ich formuliere es anders:
die regexp engine von perl ist schnell /genug/.
besser?

-- stefan

AbRaXaS

2007-01-23 11:53

User since
2006-05-22
30 Artikel
BenutzerIn
[default_avatar]

Hätte da auch Frage zu:

Code: (dl )

...
$DATAPATHBilder = "/PfadzudenBildern";
$x=0;
open(LS,"/bin/ls ../Bilder |")||print "LS";
while(<LS>){
    $FILELISTB{$x} = $_;

    ($bild, $ext) = split (/\x2e/, $FILELISTB{$x},2);
    $bild_alt    =    "$bild.$ext";
    $bild_neu    =    $bild . "_" . $heute . "." . $ext;
    print "Altes Bild: ../Bilder/$bild_alt\n";
    print "Neues Bild: ../Bilder/$bild_neu\n";
    $success = move("../Bilder/$_", "../Bilder/$bild_neu");
    if (!$success){
        print "Datei konnte nicht verschoben werden. Grund: $!\n";
    }
    $x=$x+1;
}
close(LS);