Schleife: Dateien umbenennen: Prob mit substr - #82843 (Allgemeines zu Perl)

AbRaXaS

2007-01-26 10:07

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

@ pq: Danke, hab deinen Hinweis mal umgesetzt, allerdings habe ich ein Problem

Code: (dl )

#!usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use File::Copy;
use strict;

opendir (my $ls, '/usr/home/public_html/content/1') or die $!;
while (my $file = readdir ($ls)) { 
    if ( !(-d $file)){
        chomp($file);
#        print "File: " . $file . "\n";
#        print "Dir: " . $ls . "\n";
        if (unlink($file) == 0) {
            print "File $file deleted successfully.\n";
        } else {
            print "File $file was not deleted.\n";
        }
    }
    else{
    ;
        print "Directory\n";
    }
}
closedir $ls;

Die Meldung ist zwar:

Code: (dl )

File 01.txt deleted successfully!

Aber die Datei hält sich wacker auf dem Server. Die Ordnerrechte sind bei 755 und ligen beim FTP User, mit dem auch das Skript ausgeführt wird. Ich weiß nicht weiter hab mir auch ein Perl Buch besorgt, was jetzt aber so auf die schnelle nichts hergibt.\n\n