git @ Cat's Eye Technologies The-Dipple / master perl / spoglux
master

Tree @master (Download .tar.gz)

spoglux @masterraw · history · blame

#!/usr/bin/perl

# SPDX-FileCopyrightText: Chris Pressey, the original author of this work, has dedicated it to the public domain.
# For more information, please refer to <https://unlicense.org/>
# SPDX-License-Identifier: Unlicense

$| = 1;
while ($x = <STDIN>) {
  chomp $x;
  $c += length($x);
  print "$c\n";
}