perl/commas.pl: comma-ize numbers greater than 999

c/decip4.c

@@ -4,7 +4,7 @@
 uint32_t numeric_ip4(const char *ip) {
   uint32_t octets = 0;
   uint8_t octet = 0;
-  
+
   for(; *ip; ip += 1) {
     if(*ip == '.') {
       octets = (octets << 8) | octet; 
@@ -13,7 +13,7 @@ uint32_t numeric_ip4(const char *ip) {
       octet = (octet * 10) + (*ip - '0');
     }
   }
-  
+
   return (octets << 8) | octet;
 }
 

perl/commas.pl

@@ -0,0 +1,19 @@
+#!/usr/bin/env perl
+
+foreach $arg (0..$#ARGV) {
+  my $num = int($ARGV[$arg]);
+  my $fmt = "", $cnt = 0;
+
+  while($num > 0) {
+    $fmt = ($num % 10) . $fmt;
+
+    if(++$cnt % 3 == 0 and $num >= 10) {
+      $fmt = "," . $fmt;
+    }
+
+    use integer;
+    $num /= 10;
+  }
+
+  print "$fmt\n";
+}