SaaGaas TCL

[を] マニアお断りのオーディオイベント「my-musictyle vol.5」に行ってき ...

2008年8月30日 ... マニアお断りのオーディオイベント「my-musictyle vol.5」に行ってきました. 2008-08-30- 4 [音楽][EventReport] livedoor clip. オーディオマニアお断りなオーディオ聴き比べイベント「my-musicstyle vol.5」に行ってきました[2008-08-25-3]。

http://chalow.net/2008-08-30-4.html

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

2012年1月27日 ... usr/bin/perl use strict; use warnings; use utf8; 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; ...

http://chalow.net/2012-01-27-3.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 (@c) { $link{$key}{$i} = 1; } } foreach my $key (sort keys %link) { print join("\t", $key, sort keys %{$link{$key}}), "\n"; } ...

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

[を] SUFARYを用いた簡単辞書検索CGIの雛形

2011年3月15日 ... というフォーマットにし、内部で末尾に "\t" を付加したキーで検索します。定番処理です。 - 簡単なページ送り機能付き！ - テンプレート（__DATA__以降）に日本語文字を入れる場合は、「use utf8;」をコメントアウトするか、「my $template ...

http://chalow.net/2011-03-15-2.html

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

2012年1月27日 ... usr/bin/perl use strict; use warnings; use utf8; 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; ...

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

[を] grep的なテキストファイル検索CGIの雛形

2011年7月4日 ... テキスト走査によるgrep的なシンプルな検索を行います。新たにページ分割機能を付けました。 ■コード（textgrep.cgi）：. #!/usr/bin/perl -T use strict; use warnings; use CGI ; use HTML::Template; my $filename = "test.txt"; my $n = 10; ...

http://chalow.net/2011-07-04-5.html

[を] 入力テキストに辞書の語が含まれているかどうか正規表現でチェック

2012年1月25日 ... usr/bin/perl use strict; use warnings; use utf8; use open ':utf8'; binmode STDIN, ": utf8"; binmode STDOUT, ":utf8"; my $dic_fn = shift @ARGV; my %token; open(my $fh, "<:utf8", $dic_fn) or die; while (<$fh>) { chomp; next if ...

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

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

2011年7月4日 ... テキスト走査によるgrep的なシンプルな検索を行います。新たにページ分割機能を付けました。 ■コード（textgrep.cgi）：. #!/usr/bin/perl -T use strict; use warnings; use CGI ; use HTML::Template; my $filename = "test.txt"; my $n = 10; ...

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

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

2011年7月12日 ... usr/bin/perl use strict; use warnings; 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+$/; ...

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

[を] 指定した緯度経度でざっくりと領域をメッシュ表示する地図APIラッパー

2011年2月2日 ... usr/bin/perl -T use strict; use warnings; use CGI; my $appid = "YOUR APPID"; my $q = new CGI; my $z ... 14; # 拡大縮小(Zoom) my $latlon = $q->param('latlon') || " 35.65111,139.70111"; my $d = 10**(($q->param('d') || 3) - 1); ...

http://chalow.net/2011-02-02-1.html

SaaGaas TCL - my