git @ Cat's Eye Technologies The-Dipple / hanging-a-canvas perl / spoglux
hanging-a-canvas

Tree @hanging-a-canvas (Download .tar.gz)

spoglux @hanging-a-canvas — raw · history · blame 

1
2
3
4
5
6
7
#!/usr/bin/perl
$| = 1;
while ($x = <STDIN>) {
  chomp $x;
  $c += length($x);
  print "$c\n";
}