SaaGaas TCL - split

[を] ラベルとそれに付随する要素リストを扱う Perl ワンライナー

2010年2月13日 ... 要素数分布. perl -nle '@c=split/,/;$n{@c}++; END{map{$m=$n{$_}if$m<$n{$_}} keys%n; $m=$m>60?60/$m:1; print join"\n",map{"$_:$n{$_}\t".("|"x($n{$_}*$m))} sort{$b<=>$a}keys%n }' a.txt. 実行結果：. 5:1 | 4:2 || 3:2 || 1:1 | ...

http://chalow.net/2010-02-13-4.html

[を] Perlで複数のTSVファイルを第一カラムをキーにマージする

2012年1月13日 ... usr/bin/perl use strict; use warnings; my %link; while (<>) { chomp; my ($key, @c) = split(/\t/, $_); foreach my $i ... perl -nle '($k,@c)=split/\t/;for(@c){$h{$k}{$_}=1}; END{for(sort keys%h){print join("\t",$_,sort keys%{$h{$_}})}} ...

http://chalow.net/2012-01-13-1.html

[を] ASINのencode/decode

2006年9月5日 ... [を] 日付文字列のencode/decode[2006-09-04-1]) ↓今考えているやつ。未整理。 #!/ usr/bin/perl use strict; use warnings; my @CHARS = split(//, " 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"); my %CHAR2NUM = map ...

http://chalow.net/2006-09-05-1.html

[を] Algorithm::Diff で類似文字列検索

2008年4月22日 ... usr/bin/perl use strict; use warnings; use Algorithm::Diff; use utf8; use Encode; use open ':utf8'; binmode STDIN, ":utf8"; binmode STDOUT, ":utf8"; my $key = shift ; my @seq1 = split(//, decode('utf-8', $key)); while (<>) { chomp; ...

http://chalow.net/2008-04-22-3.html

[を]CHALOW Search: date:2008-04-22

2008年4月22日 ... usr/bin/perl use strict; use warnings; use Algorithm::Diff; use utf8; use Encode; use open ':utf8'; binmode STDIN, ":utf8"; binmode STDOUT, ":utf8"; my $key = shift ; my @seq1 = split(//, decode('utf-8', $key)); while (<>) { chomp; ...

http://chalow.net/2008-04-22.html

[を]CHALOW Search: date:2010-02-13

2010年2月13日 ... perl -nle '@c=split/,/;$n{@c}++; END{map{$m=$n{$_}if$m<$n{$_}}keys%n; $m=$ m>60?60/$m:1; print join"\n",map{"$_:$n{$_}\t" ... +)$/;$h{$1}{$l}+=$2}(split(/,/,$s)) ; END{for$i(sort keys%h){ print"$i\t".join",",map{"$_:$h{$i}{$_}"} ...

http://chalow.net/2010-02-13.html

[を] 入力テキストに対して検索式（論理式）をラベルとした辞書エントリを ...

2012年1月27日... use open ':utf8'; binmode STDIN, ":utf8"; binmode STDOUT, ":utf8"; my $dic_fn = shift @ARGV; my @db; my %token; open(my $fh, "<:utf8", $dic_fn) or die; while (<$fh>) { chomp; next if /^\s*$/; my ($pat, $rest) = split(/\t/, $_, 2); ...

http://chalow.net/2012-01-27-3.html

[を]CHALOW Search: date:2012-01-27

2012年1月27日... use open ':utf8'; binmode STDIN, ":utf8"; binmode STDOUT, ":utf8"; my $dic_fn = shift @ARGV; my @db; my %token; open(my $fh, "<:utf8", $dic_fn) or die; while (<$fh>) { chomp; next if /^\s*$/; my ($pat, $rest) = split(/\t/, $_, 2); ...

http://chalow.net/2012-01-27.html

[を] Perlによるビットアレイのセーブ＆ロード

2011年7月12日... binmode STDOUT, ":raw"; my $bitarray = ""; while (<>) { chomp; my $x = tonum( $_); vec($bitarray, $x, 1) = 1 if defined $x; } print $bitarray; sub tonum { my ($s) = @_; return $s if $s =~ /^\d+$/; my $rv = 0; foreach my $c (split(//, ...

http://chalow.net/2011-07-12-2.html

[を]CHALOW Search: date:2011-07-12

2011年7月12日... binmode STDOUT, ":raw"; my $bitarray = ""; while (<>) { chomp; my $x = tonum( $_); vec($bitarray, $x, 1) = 1 if defined $x; } print $bitarray; sub tonum { my ($s) = @_; return $s if $s =~ /^\d+$/; my $rv = 0; foreach my $c (split(//, ...

http://chalow.net/2011-07-12.html