regels wisselen kan nu ook

mvwrap/mvwrap

@@ -1,8 +1,9 @@
 #!/usr/bin/perl -w
 
 #
-# Scriptje om een editor op de inhoud van directories los te laten.
+# Script to let an editor loose on a directory listing
-# Makkelijker dan 6000 keer move met de hand doen.
+# Much easier than doing 6000 moves by hand
+# I think it's relatively safe now
 # (C) 2001 Ward Wouts
 #
 
@@ -22,6 +23,7 @@ closedir(DIRHANDLE);
 @source = sort @dir;
 if ($DEBUG) { print @source; }
 
+
 # make tempfiles and install handler to remove them
 do { $target_name = tmpnam() }
 	until $target = IO::File->new($target_name, O_RDWR|O_CREAT|O_EXCL);
@@ -30,19 +32,14 @@ END { unlink($target_name) or die "Couldn't unlink $target_name: $!" }
 foreach (@source) {
 	print $target $_;
 }
-
 close ($target);
 
-$editor = defined $ENV{EDITOR}  ? $ENV{EDITOR} : "vi";
+&edit($target_name);
-@editor = ("$editor", "$target_name");
-system(@editor) == 0
-	or die "System @editor failed: $?";
 
-open $target, $target_name;
+open $target, $target_name or die "Couldn't open tempfile: $target_name: $!";
-while (<$target>) {
+@target = <$target>;
-	push @target, $_;
-}
 close ($target);
+
 if ($DEBUG) { print @target; }
 
 unless ( scalar(@source) == scalar(@target) ) {
@@ -53,11 +50,35 @@ if (&check_unique(@target)) {
 	die "Aborting. You're trying to move multiple files to the same name.\n";
 }
 
+# if it's unsafe to move files directly, move the unsafe ones to a
+# temporary file first
+if (@unsafe = &check_safety(\@source, \@target)) {
+	&safety_belt(\@unsafe, \@source);
+}
+
+# final move
+&move_files(\@source, \@target);
+
+# call EDITOR or vi with filename
+sub edit {
+	my $filename = shift;
+	$editor = defined $ENV{EDITOR}  ? $ENV{EDITOR} : "vi";
+	@editor = ("$editor", "$filename");
+	system(@editor) == 0
+		or die "System @editor failed: $?";
+}
+
+# moves files from the names in one array to the names in another array
+# must be called like:
+# move_files(\@source, \@target)
+sub move_files {
+	my ($from, $to) = @_;
+	my($i, $source, $target);
 	$i=0;
-while ( $i < scalar(@source) ) {
+	while ( $i < scalar(@$from) ) {
-	$source=$source[$i];
+		$source=$from->[$i];
 		chomp($source);
-	$target=$target[$i];
+		$target=$to->[$i];
 		chomp($target);
 		unless ( $source eq $target ) {
 			if ($DEBUG) { print "mv $source $target\n"; }
@@ -66,6 +87,8 @@ while ( $i < scalar(@source) ) {
 		}
 		$i++;
 	}
+	return 1;
+}
 
 # returns 0 if all entries in @target_list are unique. 1 if not.
 sub check_unique (@target_list){
@@ -78,3 +101,59 @@ sub check_unique (@target_list){
 	}
 	return 0;
 }
+
+# compares one array of file names to another, making sure files
+# can be moved safely without overwriting each other
+# must be called like:
+# check_safety(\@source, \@target)
+# returns an array of unsafe line numbers
+sub check_safety {
+	my ($from, $to) = @_;
+	my($i, $j, $source, $target, @danger);
+	$i=0;
+	while ( $i < scalar(@$from) ) {
+		$source=$from->[$i];
+		chomp($source);
+		$j=0;
+		while ( $j < scalar(@$to) ) {
+			$target=$to->[$j];
+			chomp($target);
+			if (($source eq $target) && ($i != $j)) {
+				push @danger, $i;
+			}
+			$j++;
+		}
+	$i++;
+	}
+	return @danger;
+}
+
+# generate random filename, which does not exist
+sub rand_file {
+	my (@chars, $filename, $exists);
+	@chars=( "A" .. "Z", "a" .. "z", 0 .. 9);
+	$exists = 1;
+	while ($exists) {
+		$filename = join("", @chars[ map { rand @chars } ( 1 .. 8 ) ]);
+		$exists = -e $filename;
+	}
+	
+	return $filename;
+}
+
+# moves files to a random filename and updates
+# the source array
+# must be called like:
+# safety_belt(\@unsafe, \@source)
+sub safety_belt {
+	my ($unsafe, $source) = @_;
+	my($filenr, $filename, $rand);
+	foreach $filenr (@$unsafe) {
+		$filename = $source->[$filenr];
+		chomp $filename;
+		$rand = &rand_file;
+		move("$filename", "$rand")
+				or die "move failed: $!";
+		$source->[$filenr] = "$rand\n";
+	}
+}