Perl - Add Simple HTTP Trigger sample

Perl/.funcignore

@@ -0,0 +1,4 @@
+.git*
+.vscode
+local.settings.json
+test

Perl/.gitignore

@@ -0,0 +1,14 @@
+
+# Azure Functions artifacts
+bin
+obj
+appsettings.json
+local.settings.json
+
+# Azurite artifacts
+__blobstorage__
+__queuestorage__
+__azurite_db*__.json
+
+# Strawberry
+Strawberry/*

Perl/README.md

@@ -0,0 +1,20 @@
+# Azure Functions custom handler in Perl
+
+The samples available in this folder demonstrate how to implement a [custom handler](https://docs.microsoft.com/azure/azure-functions/functions-custom-handlers).
+
+Example functions featured in this repo include:
+
+| Name | Trigger | Input | Output |
+|------|---------|-------|--------|
+| [SimpleHttpTrigger](../../../tree/master/Perl/SimpleHttpTrigger) | HTTP | n/a   | n/a |
+
+## Configuration
+
+The *local.settings-example.json* is provided to show what values the app is expecting to read from environment variables. Make a copy of *local.settings-example.json* and rename it *local.settings.json* and replace any values that begin with "**YOUR_**" with your values.
+
+## Pre-reqs
+
+- Perl (Strawberry) : https://strawberryperl.com/
+    - Put the Strawberry packages which is included in perl.exe to under `Strawberry` folder after download.
+    - Windows **ONLY**.
+- Azure Functions Core Tools

Perl/SimpleHttpTrigger/function.json

@@ -0,0 +1,19 @@
+{
+  "bindings": [
+    {
+      "authLevel": "anonymous",
+      "type": "httpTrigger",
+      "direction": "in",
+      "name": "req",
+      "methods": [
+        "get",
+        "post"
+      ]
+    },
+    {
+      "type": "http",
+      "direction": "out",
+      "name": "res"
+    }
+  ]
+}

Perl/host.json

@@ -0,0 +1,22 @@
+{
+  "version": "2.0",
+  "logging": {
+    "applicationInsights": {
+      "samplingSettings": {
+        "isEnabled": true,
+        "excludedTypes": "Request"
+      }
+    }
+  },
+  "extensionBundle": {
+    "id": "Microsoft.Azure.Functions.ExtensionBundle",
+    "version": "[1.*, 2.0.0)"
+  },
+  "customHandler": {
+    "description": {
+      "defaultExecutablePath": "Strawberry/perl/bin/perl.exe",
+      "arguments": ["src/main.pl"]
+    },
+    "enableForwardingHttpRequest": true
+  }
+}

Perl/local.settings-example.json

@@ -0,0 +1,8 @@
+{
+    "IsEncrypted": false,
+    "Values": {
+      "AzureWebJobsStorage": "YOUR_STORAGE_CONNECTION_STRING",
+      "FUNCTIONS_WORKER_RUNTIME": "custom"
+    }
+  }
+

Perl/src/main.pl

@@ -0,0 +1,23 @@
+#!usr/bin/env perl
+use HTTP::Daemon;
+use HTTP::Status;
+use Env;
+
+my $port = $ENV{"FUNCTIONS_CUSTOMHANDLER_PORT"};
+my $function_name = "SimpleHttpTrigger";
+my $d = HTTP::Daemon->new(LocalAddr => "127.0.0.1", LocalPort => $port ) || die;
+print "Please contact me at: <URL:", $d->url, ">\n";
+
+while (my $c = $d->accept) {
+    while (my $r = $c->get_request) {
+        if ($r->method eq "GET" and $r->uri->path eq "/api/" . $function_name) {
+            print "Perl is running on Azure Functions";
+            $c->send_response( HTTP::Response->new(200, "OK", undef, "Perl is running on Azure Functions\n") );
+        }
+        else {
+            $c->send_error(RC_FORBIDDEN)
+        }
+    }
+    $c->close;
+    undef($c);
+}