index
:
conf
main
my configuration files
summary
refs
log
tree
commit
diff
stats
log msg
author
committer
range
path:
root
/
bin
/
sum
diff options
context:
1
2
3
4
5
6
7
8
9
10
15
20
25
30
35
40
space:
include
ignore
mode:
unified
ssdiff
stat only
Diffstat
(limited to 'bin/sum')
-rwxr-xr-x
bin/sum
4
1 files changed, 4 insertions, 0 deletions
diff --git a/bin/sum b/bin/sum
new file mode 100755
index 0000000..df7cd81
--- /dev/null
+++ b/
bin/sum
@@ -0,0 +1,4 @@
+#!/usr/bin/env perl
+use 5.010;
+use List::Util 'sum';
+say sum map { s/^((?:\d|[-+\.])+).*/$1/; $_ } <>;