File::remove: need example - #66519 (Allgemeines zu Perl)

Thorium

2006-05-23 15:12

User since
2003-08-04
232 Artikel
BenutzerIn

Code: (dl )

    use File::Remove qw(remove);

    # removes (without recursion) several files
    remove qw( *.c *.pl );

    # removes (with recursion) several directories
    remove \1, qw( directory1 directory2 );

    # removes (with recursion) several files and directories
    remove \1, qw( file1 file2 directory1 *~ );

    # trashes (with support for undeleting later) several files
    trash qw( *~ );

Dein Beispiel macht keinen Sinn...
\1 bedeutet, dass du rekursiv löschst - bei nur einer Datei musst du nicht rekursiv löschen - das macht den Operator nur unleserlich. (Nebenbeibemerkt ist die Abhandlung des Moduls ziemlich schäbig).

qw() heisst quote words, es ist ein Operator welcher also alle nachstehenden Wörter als Elemente eines anonymen Arrays ansieht. Dein Element ist nun 'C:\data\bla' (inclusive '), was du sicherlich nicht willst.
Was du willst ist das:

Code: (dl )

use warnings;
use strict;
use File::Remove qw(remove);

sub deletefile {
    my $filename = shift;

    unless ($filename) {
        warn "deletefile: Kein Filename angegeben";
        return;
    }

    unless (-f $filename) {
        warn "deletefile: '$filename' existiert nicht";
        return;
    }

    unless ( remove($filename) ) {
        warn "deletefile: Konnte '$filename' nicht löschen: $!";
        return;
    }

    return 1;
}

\n\n

Per|li|nist der; -en, -en <zu â...ist>: a) AnhÃ¤nger, Vertreter der radikalen Perlinisten die Perl als die einzig wahre Sprache ansehen; b) Mitglied einer perlinistischen Community.