Bin-Data-1D
view release on metacpan or search on metacpan
scripts/alluniq view on Meta::CPAN
484950515253545556575859606162636465666768
return
1
if
$o
{
q} ;
print STDERR # {$o{q}
? \* STDOUT : \
*STDERR
}
CYAN
"Some counted lines are "
, BRIGHT_RED
"same. "
,
CYAN ,
"Different "
, BRIGHT_CYAN (
scalar
keys
%str2cnt
) , CYAN
" / All "
, BRIGHT_CYAN $. .
" ; "
,
CYAN ,
"Maximum multiplication : "
, BRIGHT_CYAN max(
values
%str2cnt
) ,
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"
;
$o
{2} ?
"mult\tfreq\n"
:
"mult\tfreq\texamples\n"
;
for
my
$count
(
sort
{
$a
<=>
$b
}
keys
%cnt2strs
) {
"$count\t"
,
scalar
@{
$cnt2strs
{
$count
} },
$msep
;
next
if
$o
{2} ;
# -2 指定ã®å ´åˆã¯ã€è©²å½“æ–‡å—列ã®ä¾‹ã‚’出力ã—ãªã„。
scripts/chars2code view on Meta::CPAN
181920212223242526272829303132333435363738my
$h
=
$o
{b} ?
'0x'
:
$o
{w}?
'0x'
:
'u+'
;
# 区点番å·ã‚’出力ã™ã‚‹æ™‚ã«è¡¨ç¤ºã™ã‚‹æŽ¥é 辞
my
$base
=
$o
{0} ? 0 : 1 ;
# ゼãƒã‚ªãƒªã‚¸ãƒ³ã«ã™ã‚‹ã‹ã€1オリジンã«ã™ã‚‹ã‹
if
(
$o
{n} ) { & CountChars }
elsif
(
$o
{1} ) { & OneLineOneChar }
else
{ & LinePreserve } ;
exit
0 ;
# 1æ–‡å—を制御文å—ã«ã¤ã„ã¦ã¯ã‚¨ã‚¹ã‚±ãƒ¼ãƒ—æ–‡å—を付ã‘ãŸæ§˜ãªå½¢ã«ã™ã‚‹ã€‚ã‚ã‚‹ç¨®ã®æ–‡å—ã®æ£è¦åŒ–ã™ã‚‹ã€‚
sub
norChar($){
state
$x
= \{ 0,
'\0'
,7,
'\a'
,8,
'\b'
,9,
'\t'
,10,
'\n'
,11,
'\v'
,12,
'\f'
,13,
'\r'
,27,
'\e'
} ;
return
$$x
->{
ord
$_
[0] } //
$_
[0] ;
}
sub
LinePreserve {
say
CYAN UNDERLINE +(
$o
{
':'
} ?
'lin#:'
:
''
) .
'#char'
, DARK
'(#bytes)'
, RESET UNDERLINE
"\tchar "
, DARK
"u+code .."
;
while
(<>) {
my
$str
= decode (
$_
) ;
CYAN +(
$o
{
':'
}?($.+
$base
-1).
":"
:
''
),
length
$str
, DARK
'('
,
length
$_
,
')'
, RESET
"\t"
;
for
(
split
//,
$str
, 0 ) {
scripts/uniq-c view on Meta::CPAN
1234567891011121314151617181920#!/usr/bin/perl
sub
sigint () ;
# Ctrl-C ãŒæŠ¼ä¸‹ã•ã‚ŒãŸæ™‚ã®å‹•作
sub
dtfmtlocal () ;
# ç¾åœ¨ã®æ—¥æ™‚ã‚’è¿”ã™
sub
choreOpt () ;
# コマンド引数ã®å‡¦ç†
sub
mainCore() ;
sub
y_init () ;
sub
y_filter ($) ;
sub
cyc_rep () ;
my
$printOut
;
# å„行ã§ã©ã†ã„ã†å‡ºåЛ処ç†ã‚’ã™ã‚‹ã‹ã€‚ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã§æ›¸ãæ›ã‚る。
my
$prevline
;
# ç›´å‰è¡Œã®å†…容
my
$count
= 1 ;
my
@y_ranges
;
my
$cyc_len
=
$o
{
'@'
} // 1e5 ;
# 何行毎ã«ãƒ¬ãƒãƒ¼ãƒˆã‚’発生ã•ã›ã‚‹ã‹ã€‚
my
(
$time0
,
$time00
) = (
time
) x 2 ;
( run in 0.307 second using v1.01-cache-2.11-cpan-1dc43b0fbd2 )