github
Advanced Search
  • Home
  • Pricing and Signup
  • Explore GitHub
  • Blog
  • Login

brendano / awkspeed

  • Admin
  • Watch Unwatch
  • Fork
  • Your Fork
  • Pull Request
  • Download Source
    • 4
    • 3
  • Source
  • Commits
  • Network (3)
  • Issues (0)
  • Downloads (0)
  • Wiki (1)
  • Graphs
  • Branch: master

click here to add a description

click here to add a homepage

  • Branches (1)
    • master ✓
  • Tags (0)
Sending Request…
Enable Donations

Pledgie Donations

Once activated, we'll place the following badge in your repository's detail box:
Pledgie_example
This service is courtesy of Pledgie.

Speed testing for a data munging task — Read more

  cancel

http://anyall.org/blog/?p=652

  cancel
  • Private
  • Read-Only
  • HTTP Read-Only

This URL has Read+Write access

fix flushing in Java version 
DRMacIver (author)
Thu Sep 10 06:05:04 -0700 2009
commit  474264d36c92f2ab6e7f9195a9afe8119ab2ccf9
tree    7537526b60e86396fdfa78fa66a3c98e2757efea
parent  4f672dfbff8e20a7de0587a6e15627e64c7c1560
awkspeed / 2num.pl 2num.pl
100644 18 lines (17 sloc) 0.401 kb
edit raw blame history
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
open(VOCAB, ">vocab");
foreach $file (@ARGV) {
  open(IN, "<$file");
  open(OUT, ">${file}n");
  while (<IN>) {
    ($item,$feat,$val) = split(" ");
    if (!$imap{"$file $item"}) {
      $imap{"$file $item"} = ++$I{$file};
    }
    if (!$jmap{$feat}) {
      $jmap{$feat} = ++$J;
      print VOCAB $feat . "\n";
    }
    print OUT $imap{"$file $item"} . " $jmap{$feat} $val\n";
  }
  close(OUT);
}
 
Blog | Support | Training | Contact | API | Status | Twitter | Help | Security
© 2010 GitHub Inc. All rights reserved. | Terms of Service | Privacy Policy
Powered by the Dedicated Servers and
Cloud Computing of Rackspace Hosting®
Dedicated Server