#!/usr/bin/perl -w use strict; my %h; while () { chomp; my ($file, $line, $tilde) = split /:/; $tilde =~ s/\///; $file =~ s/\/home\//\/~/; $file =~ s/public_html\///; $h{$tilde}{$file}++; } print qq{Tilde.Club Connections

Tilde.club connections

}; print ""; for my $x (sort keys %h) { print "\n"; } print "
$xis linked by"; for my $y (sort keys %{$h{$x}}) { my $user = $y; if ($user =~ /~(\w+)/) { my $username = "~$1"; # Add the tilde (~) before the username print "$username "; } } print "
"; print qq{};