Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:ailiopoulos:branches:openSUSE:Factory-bsc1197190
kernel-pae
fdupes_relink
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File fdupes_relink of Package kernel-pae
#!/usr/bin/perl use strict; use warnings; $/=""; while (<>) { chomp; my %dups; # hash: inode -> array of filenames foreach (split /\n/) { my $inode = (stat)[1]; push @{$dups{$inode}}, $_; } my @keys = keys(%dups); # all are hardlinks to the same data next if (scalar @keys < 2); # sort by nlink @keys = sort { scalar $dups{$a} <=> scalar $dups{$b} } @keys; my $target = $dups{shift @keys}[0]; foreach (@keys) { foreach (@{$dups{$_}}) { print "relinking $_ -> $target\n"; unlink($_); link($target, $_) or die "link failed"; } } }
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
