Re: Re: comparing two lists

hm . . . ok, that works, except for the part where it deletes the file. it's weird. if i change unlink($song) to, say, print $song, it prints the filenames. but for some reason, unlink($song) doesn't work

Comment on Re: Re: comparing two lists

Replies are listed 'Best First'.
Re: Re: Re: comparing two lists by chipmunk (Parson) on Jun 24, 2001 at 18:16 UTC
If you use print $song, it prints the filenames, but not the full paths, right? Since the file is not in the current working directory, you need to use the path with the filename so that Perl knows where to find the file. `my $dir = 'd:\my files'; opendir(FILES, $dir) or die "Can't opendir '$dir': $!\n"; # read in the playlist and the files, create the hash, and so on... foreach $song(@filelist) { if(!exists $playlist{$song}) { unlink("$dir/$song") or warn "Can't unlink '$dir/$song': $!\n"; } }` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: Re: comparing two lists
by chipmunk (Parson) on Jun 24, 2001 at 18:16 UTC

my $dir = 'd:\my files';
opendir(FILES, $dir) or die "Can't opendir '$dir': $!\n";

# read in the playlist and the files, create the hash, and so on...

foreach $song(@filelist) {
    if(!exists $playlist{$song}) {

         unlink("$dir/$song")
             or warn "Can't unlink '$dir/$song': $!\n";

    }
}
[download]

[reply]
[d/l]