locutus 2.0.35 → 2.0.36

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "locutus",
-  "version": "2.0.35",
+  "version": "2.0.36",
   "description": "Locutus other languages' standard libraries to JavaScript for fun and educational purposes",
   "keywords": [
     "php",

package/perl/core/index.js

@@ -1 +1,4 @@
+module.exports.lc = require('./lc')
 module.exports.length = require('./length')
+module.exports.substr = require('./substr')
+module.exports.uc = require('./uc')

package/perl/core/lc.js

@@ -0,0 +1,11 @@
+module.exports = function lc(str) {
+  //      discuss at: https://locutus.io/perl/lc/
+  // parity verified: Perl 5.40
+  //     original by: Kevin van Zonneveld (https://kvz.io)
+  //       example 1: lc('HELLO')
+  //       returns 1: 'hello'
+  //       example 2: lc('Hello World')
+  //       returns 2: 'hello world'
+
+  return String(str).toLowerCase()
+}

package/perl/core/substr.js

@@ -0,0 +1,44 @@
+module.exports = function substr(str, offset, length) {
+  //      discuss at: https://locutus.io/perl/substr/
+  // parity verified: Perl 5.40
+  //     original by: Kevin van Zonneveld (https://kvz.io)
+  //          note 1: Perl's offset is 0-based, negative counts from end
+  //       example 1: substr('hello', 0, 3)
+  //       returns 1: 'hel'
+  //       example 2: substr('hello', 1)
+  //       returns 2: 'ello'
+  //       example 3: substr('hello', -2)
+  //       returns 3: 'lo'
+
+  str = String(str)
+  const len = str.length
+
+  // Handle negative offset (count from end)
+  let start = offset < 0 ? len + offset : offset
+
+  // Clamp start to valid range
+  if (start < 0) {
+    start = 0
+  }
+  if (start > len) {
+    return ''
+  }
+
+  // If length is undefined, return rest of string
+  if (length === undefined) {
+    return str.substring(start)
+  }
+
+  // Handle negative length (leave that many chars at end)
+  let end
+  if (length < 0) {
+    end = len + length
+    if (end < start) {
+      return ''
+    }
+  } else {
+    end = start + length
+  }
+
+  return str.substring(start, end)
+}

package/perl/core/uc.js

@@ -0,0 +1,11 @@
+module.exports = function uc(str) {
+  //      discuss at: https://locutus.io/perl/uc/
+  // parity verified: Perl 5.40
+  //     original by: Kevin van Zonneveld (https://kvz.io)
+  //       example 1: uc('hello')
+  //       returns 1: 'HELLO'
+  //       example 2: uc('Hello World')
+  //       returns 2: 'HELLO WORLD'
+
+  return String(str).toUpperCase()
+}