added utility function crlf2lf()

Craftworks · Aug 18, 2014 · e4a0499 · e4a0499
1 parent 2dd4045
commit e4a0499
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/lib/Kurious/Util.pm b/lib/Kurious/Util.pm
@@ -3,7 +3,14 @@ package Kurious::Util;
 use Mojo::Base -strict;
 use Exporter::Lite;
 
-our @EXPORT = qw(rows2kv rows2krows);
+our @EXPORT = qw(crlf2lf rows2kv rows2krows);
+
+sub crlf2lf {
+    local $_ = shift;
+    s/\x0D\x0A/\n/go;
+    tr/\x0D\x0A/\n\n/;
+    return $_;
+}
 
 sub rows2kv {
     my ($rows, $key) = @_;