Re: [PERL] Backup-program

[Ole Tange <sslug@sslug>]

On Wed, 16 Aug 2000, Ole Tange wrote:

> On Tue, 8 Aug 2000, Peter Lindstrøm wrote:
> 
> > Hvis du finder en løsning på probelmet må du meget gerne poste den til
> > gruppen da jeg har stort set samme problem.
> 
> > > Men det koster meget diskplads. Jeg vil hellere blot kopiere ændringer.
> > > Det kunne jeg gøre ved:
> > > 
> > >   cp -a backup backup-`date '+%Y%m%d'`
> > >   find filer fælles med igår
> > >   hard-link filerne
> 
> Dette er løst nedenfor.

Men indeholder en bug. Hvis du har flere datoer (end 2), så vil du sikkert
gerne have at de alle deler data. Det gøres ved at beholde de gamle data.
Derfor skal programmet ændres (minimalt - se nedenfor).

Altså istedet for:

  1.inode -> 2.data
  2.inode -> 3.data
  3.inode -> 3.data

skal det være:

  1.inode -> 1.data
  2.inode -> 1.data
  3.inode -> 1.data

Desværre betyder dette, at permissions-ændringer og lign. ikke bliver
registreret.

Man kunne istedet have gjort:

  1.inode -> 3.data
  2.inode -> 3.data
  3.inode -> 3.data

Men kræver det, at man for hver dag ændrer alle de gamle backups.


/Ole


# Usage:
#   link-same new old
#
# Description:
#   Hardlinks files in old to files in new if content is the same
# 

$debug=0;
use Digest::MD5;

$srcdir=shift;
$dstdir=shift;