# Author: Audris Mockus # (C) Copyright (2000) by Lucent Technologies Inc. All rights reserved. # THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF LUCENT TECHNOLOGIES. # The copyright notice above does not evidence any actual # or intended publication of such source code. # #extract comment from each delta (could have useed cut | sort -u # but they are unreliable (may truncate long lines) # while (){ chop ($_); ($f,$mod,$rev,$vv,$ymd,$stmp,$a,$nadd,$ndel,$submitted,$reviewed,$log)=split(/\;/, $_); $logs{$log}++; } foreach $key (keys %logs){ print "$key\n"; }