InfoMagic Source Code 1993 July/THE_SOURCE_CODE_CD_ROM.iso/languages/perl/scripts-convex/showdupes

Text File | 1991-08-04 | 414 b | 19 lines

#!/usr/bin/perl
undef $/;
$* = 1;
while ( $ARGV = shift ) {
    if (!open ARGV) { warn "$ARGV: $!\n"; next; }
    $_ = <ARGV>;
    s/\b(\s?)(([A-Za-z]\w*)(\s+\3)+\b)/$1\200$2\200/g || next;
    split(/\n/);
    $NR = 0;
    @hits = ();
    for (@_) {
    $NR++;
    push(@hits, sprintf("%5d %s", $NR, $_)) if /\200/;
    }
    $_ = join("\n",@hits);
    s/\200([^\200]+)\200/[* $1 *]/g;
    print "$ARGV:\n$_\n";
}