perl: use -e calls

Author: scivision

+stdlib/+perl/device.m

@@ -1,8 +1,8 @@
 function r = device(file)
 
-cwd = fileparts(fullfile(mfilename('fullpath')));
+cmd = sprintf('"%s" -e "print +(stat shift)[0]" "%s"', stdlib.perl_exe(), file);
 
-[r, s] = perl(cwd + "/device.pl", file);
+[s, r] = system(cmd);
 if s == 0
   r = str2double(r);
 else

+stdlib/+perl/device.pl

@@ -1,8 +1,8 @@
 function r = inode(file)
 
-cwd = fileparts(fullfile(mfilename('fullpath')));
+cmd = sprintf('"%s" -e "print +(stat shift)[1]" "%s"', stdlib.perl_exe(), file);
 
-[r, s] = perl(cwd + "/inode.pl", file);
+[s, r] = system(cmd);
 if s == 0
   r = str2double(r);
 else

+stdlib/+perl/inode.m

@@ -1,8 +1,10 @@
 function r = samepath(file1, file2)
 
-cwd = fileparts(fullfile(mfilename('fullpath')));
+cmd = sprintf('"%s" -e "(@ARGV==2) or exit 1; @s1 = stat shift or exit 1; @s2 = stat shift or exit 1; exit(($s1[0]==$s2[0] && $s1[1]==$s2[1]) ? 0 : 1)" "%s" "%s"', ...
+        stdlib.perl_exe(), file1, file2);
+
+s = system(cmd);
 
-[~, s] = perl([cwd filesep 'samepath.pl'], file1, file2);
 r = s == 0;
 
 end

+stdlib/+perl/inode.pl

@@ -0,0 +1,19 @@
+function exe = perl_exe()
+
+persistent perle
+
+if ~isempty(perle)
+  exe = perle;
+  return
+end
+
+cwd = fileparts(mfilename("fullpath"));
+
+[r, s] = perl(cwd + "/private/executable.pl");
+
+if s == 0 && isfile(r)
+  exe = r;
+  perle = r;
+end
+
+end

+stdlib/+perl/samepath.m

@@ -14,12 +14,12 @@
   return
 end
 
-cwd = fileparts(fullfile(mfilename('fullpath')));
+cmd = sprintf('"%s" -e "print $^V"', stdlib.perl_exe());
 
-[r, s] = perl([cwd filesep 'version.pl']);
+[s, r] = system(cmd);
 
 if s == 0
-  v = sscanf(r, 'v%d.%d.%d');
+  v = sscanf(r, 'v%d.%d.%d').';
 else
   v = [];
 end

+stdlib/+perl/samepath.pl

@@ -0,0 +1 @@
+print $^X;