add perl.is_admin()

Author: scivision

+stdlib/+perl/is_admin.m

@@ -0,0 +1,17 @@
+function [y, cmd] = is_admin()
+
+if ispc()
+  % https://metacpan.org/pod/Win32#Win32::IsAdminUser()
+  c = 'use Win32; print Win32::IsAdminUser() ? 1 : 0';
+else
+  % check if the user ID is 0 (root)
+  c = 'print $< == 0 ? 1 : 0';
+end
+
+cmd = sprintf('"%s" -e "%s"', stdlib.perl_exe(), c);
+
+[s, m] = system(cmd);
+
+y = s == 0 && m == "1";
+
+end

+stdlib/is_admin.m

@@ -6,7 +6,7 @@
 
 function [ok, b] = is_admin(backend)
 arguments
-  backend (1,:) string = ["java", "dotnet", "python", "sys"]
+  backend (1,:) string = ["java", "dotnet", "perl", "python", "sys"]
 end
 
 o = stdlib.Backend(mfilename(), backend);