Gist


  
      gist: 184007
      
    
      Wed Sep 09 12:25:14 -0700 2009
      
    
1

      
                                 perl -e 'srand(time);my@data=map{int rand(10000000)}(0..100); my @c = map {int rand(6)} @data; for my $loop (0..30) {my %avg;my %num;for my $i (0..$#data){$avg{$c[$i]} += $data[$i];$num{$c[$i]}++;} map{$avg{$_}/=$num{$_}}keys %avg;for my $i(0..$#data){my$l = 0; for my $cl(keys%avg){$l=(abs($avg{$cl}-$data[$i]) < abs($avg{$l}-$data[$i])) ? $cl : $l} $c[$i]=$l } warn join " ","loop_${loop}|",map{$_->{c}.":".$_->{d}}sort{$avg{$a->{c}}<=>$avg{$b->{c}}}map{+{d=>$data[$_], c=>$c[$_]}}(0..$#c); }'
              
    
      gist: 167287
      known bug: サンプル画像が無いアイテムの画像...
    
    
      Thu Aug 13 09:36:49 -0700 2009
      
    
1
2
3

      
                                  #!/usr/bin/perl
use strict;
use warnings;
              
    
      gist: 139758
      
    
      Thu Jul 02 15:23:43 -0700 2009
      
    
1
2
3

      
                                  #!/usr/bin/perl
use strict;
use warnings;
              
    
      gist: 139744
      
    
      Thu Jul 02 15:03:27 -0700 2009
      
    
1
2
3

      
                                  perl ~/bin/sift_wrap.pl ~/Dropbox/sift_test/1.pgm 4 > 1_big.yaml && perl ~/bin/sift_wrap.pl ~/Dropbox/sift_test/1.jpg 4 > 1_small.yaml && perl -MYAML -e 'my$big=YAML::LoadFile(shift);my$small=YAML::LoadFile(shift);while(my($key,$value)=each %$big){printf("%s: %.01f %.01f\n", $key, $value, $small->{$key}) if $small->{$key}}' 1_big.yaml 1_small.yaml
4494ddeb1a323184102b9cfdc5455cbe: 0.0 0.0
473465015f3f6f4f620a8c7c476788aa: 0.0 0.0
              
    
      gist: 139581
      
    
      Thu Jul 02 09:24:26 -0700 2009
      
    
1
2
3

      
                                  package Net::TwitterStreamingAPI;
use utf8;
use strict;
              
    
      gist: 120882
      
    
      Sun May 31 05:37:34 -0700 2009
      
    
1
2
3

      
                                  // ==UserScript==
// @name           YetAnotherHelpMeOnoMatope
// @namespace      http://fuba.moaningnerds.org/
              
    
      gist: 109035
      
    
      Fri May 08 15:15:05 -0700 2009
      
    
1
2
3

      
                                  // ==UserScript==
// @name           Courteous favorite on dashboard
// @namespace      http://fuba.moarningnerds.org/
              
    
      gist: 64483
      cgi script to generate dire...
    
    
      Sat Feb 14 13:35:55 -0800 2009
      
    
1
2
3

      
                                  #!/usr/bin/perl
use utf8;
use strict;
              
    
      gist: 59019
      
    
      Thu Feb 05 13:25:07 -0800 2009
      
    
1
2
3

      
                                  sub is_my_reply {
    my $text = shift;
    
              
      gist: 59008
      
    
      Thu Feb 05 13:09:35 -0800 2009
      
    
1
2
3

      
                                  sub nonreply_filter {
    my $req = shift;
    
              
      gist: 53291
      I want to use the POST meth...
    
    
      Tue Jan 27 02:53:24 -0800 2009
      
    
1

      
                                  541             my $reqtype = ( ( $method_def->{post} ) || ( (defined $args) && $args->{post} ) ) ? "POST" : "GET";
              
    
      gist: 50458
      
    
      Wed Jan 21 23:04:53 -0800 2009
      
    
1
2
3

      
                                  sub capture_thumbnails {
    my %opt = @_;
    my $file = $opt{file} or die;
              
    
      gist: 49376
      please fix
    
    
      Mon Jan 19 23:09:14 -0800 2009
      
    
1
2
3

      
                                  plugins:
  - module: Subscription::Config
    config:
              
    
      gist: 40029
      exthtml.pl extracts content...
    
    
      Fri Dec 26 01:14:00 -0800 2008
      
    
1
2
3

      
                                  #!/usr/bin/perl
use strict;
use warnings;
              
    
      gist: 39847
      いま自分ではつかってないのでメンテナやる人がいたらてき...
    
    
      Wed Dec 24 19:44:20 -0800 2008
      
    
1
2
3

      
                                    - module: Filter::EntryFullText::LDRFullFeed
    config:
      force_upgrade: 1
              
    
      gist: 35764
      1) ignore words, 2) stringで...
    
    
      Sun Dec 14 11:01:39 -0800 2008
      
    
1
2
3

      
                                  // ==UserScript==
// @name           Motsu Tabetai
// @namespace      http://ikenie.com/
              
    
      gist: 35129
      
    
      Fri Dec 12 05:44:34 -0800 2008
      
    
1
2
3

      
                                  // ==UserScript==
// @name           Motsu Tabetai
// @namespace      http://ikenie.com/