From 124cbfd74ef242491900811e410ff6661525dd18 Mon Sep 17 00:00:00 2001
From: karchnu <karchnu@karchnu.fr>
Date: Sun, 28 Feb 2016 18:23:10 +0100
Subject: [PATCH] lineon => to get one sentence per line

---
 perl/lineon.pl | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 perl/lineon.pl

diff --git a/perl/lineon.pl b/perl/lineon.pl
new file mode 100755
index 0000000..5010abf
--- /dev/null
+++ b/perl/lineon.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl -w
+use v5.20;
+
+sub usage {
+    say "usage : $0 [pattern [replacement]]";
+}
+
+do { usage ; exit 1} if @ARGV > 2;
+do { usage ; exit 0} if @ARGV == 1 && $ARGV[0] =~ /-h/i;
+
+my ($pattern, $repl) = @ARGV;
+#say "pattern: $pattern, replacement: $repl";
+
+@ARGV = ();
+my $lines = '';
+
+$lines .= $_ while (<>);
+$lines =~ s/\n/ /g;
+
+my @l = split /$pattern/, $lines;
+map { $_ .= $repl } @l;
+say for @l;