perl device,inode

Author: scivision

+stdlib/+perl/device.m

@@ -0,0 +1,14 @@
+function r = device(file)
+
+cwd = fileparts(fullfile(mfilename('fullpath')));
+
+[r, s] = perl(cwd + "/device.pl", file);
+if s == 0
+  r = str2double(r);
+else
+  r = [];
+end
+
+r = uint64(r);
+
+end

+stdlib/+perl/device.pl

@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+@ARGV == 1 or die "Usage: $0 <path>\n";
+my $path = shift;
+
+my @st = stat($path);
+@st ? () : die "stat($path): $!\n";
+
+# Print the device number (element 0 of stat array)
+print $st[0];

+stdlib/+perl/inode.m

@@ -0,0 +1,14 @@
+function r = inode(file)
+
+cwd = fileparts(fullfile(mfilename('fullpath')));
+
+[r, s] = perl(cwd + "/inode.pl", file);
+if s == 0
+  r = str2double(r);
+else
+  r = [];
+end
+
+r = uint64(r);
+
+end

+stdlib/+perl/inode.pl

@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+@ARGV == 1 or die "Usage: $0 <path>\n";
+my $path = shift;
+
+my @st = stat($path);
+@st ? () : die "stat($path): $!\n";
+
+# Print the inode number (element 1 of stat array)
+print $st[1];

+stdlib/device.m

@@ -9,7 +9,7 @@
 function [i, b] = device(file, backend)
 arguments
   file
-  backend (1,:) string = ["java", "python", "sys"]
+  backend (1,:) string = ["java", "perl", "python", "sys"]
 end
 
 o = stdlib.Backend(mfilename(), backend);

+stdlib/inode.m

@@ -9,7 +9,7 @@
 function [i, b] = inode(file, backend)
 arguments
   file string
-  backend (1,:) string = ["java", "python", "sys"]
+  backend (1,:) string = ["java", "perl", "python", "sys"]
 end
 
 o = stdlib.Backend(mfilename(), backend);