view release on metacpan or  search on metacpan

alluniq  view on Meta::CPAN

	    return 1 if $o{q} ;
	    print STDERR #BOLD FAINT # {$o{q} ? \* STDOUT : \*STDERR }
          FAINT CYAN "Different " , RESET BRIGHT_CYAN (scalar keys %str2cnt) , FAINT CYAN " / All " , RESET BRIGHT_CYAN ($.) . " . " , 
	      FAINT CYAN "Some counted lines are " , RESET BRIGHT_RED "same.  " ,  
	      FAINT CYAN ,  "Maximum multiplication : " , RESET BRIGHT_CYAN  max( values %str2cnt ) ,
	      FAINT CYAN "  ($Script)\n"  ;
	    return 1 ; 
	}
}

sub tableOutput( ) { 
    ## 2. 度数nの異なる文字列が、具体的にどんな値であったか。
    while ( my( $str, $cnt) = each %str2cnt ) {
       push @{ $cnt2strs {$cnt} }, $str ; 
    }
    my $msep = $o{2} ? "\n" : "\t"  ;
    print $o{2} ? "mult\tfreq\n" : "mult\tfreq\texamples\n" ;

    for my $count ( sort { $a <=> $b } keys %cnt2strs ) {
        print "$count\t", scalar @{ $cnt2strs {$count} }, $msep ; 
        next if $o{2} ; # -2 指定の場合は、該当文字列の例を出力しない。