Re: New Perl programmer looking for answer in Directory Comparisons

[lindex]

This is my "There's more than one way to do it", its prolly insane and stupid. But I did it anyways.

p.s. some borrowed methodology from merlyn.

#!/usr/bin/perl -w

use strict;
use File::Copy qw(copy);

die("Usage: $0 <src> <dst>\n") unless($#ARGV==1);
-d or die("$_ is not a directory") for(@ARGV);

s/\/$// for(@ARGV);
for(glob("$ARGV[0]/*"),glob("$ARGV[1]/*")) {
 copy("$ARGV[0]/$_","$ARGV[1]/$_") or warn("$!: $ARGV[0]/$_\n")
  if(s/$ARGV[0]// && -f "$ARGV[0]/$_" && !-e "$ARGV[1]/$_");
 unlink("$ARGV[1]/$_") or warn("$! unlinking $ARGV[1]/$_\n")
  if(s/$ARGV[1]// && -f "$ARGV[1]/$_" && !-e "$ARGV[0]/$_" );
}

lindex

/****************************/
  [e-mail], [e-mail]
    http://jason.gost.net
/*****************************/

[merlyn]

Well, stealing from that:

use File::Copy;
use File::Basename;

for $base (map basename $_, map glob "$_/*", @ARGV) {
  my ($src, $dst) = map "$_/$base", @ARGV;
  -f $src and not -e $dst and not copy $src, $dst and warn "copy $src 
+to $dst failed";
  -f $dst and not -e $src and not unlink $dst and warn "unlink $dst fa
+iled: $!";
}

-- Randal L. Schwartz, Perl hacker

[lindex]

Hmm, I wonder if I can make it any shorter ;)
foiled agian, Yarr


lindex

/****************************/
  [e-mail], [e-mail]
    http://jason.gost.net
/*****************************/