function [r, cmd] = samepath(file1, file2)

r = logical([]);

try %#ok<TRYNC>
  exe = stdlib.perl_exe();
  if stdlib.strempty(exe)
    return
  end

  c = stdlib.perl.perl2cmd('(@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)');

  cmd = sprintf('"%s" -e %s "%s" "%s"', exe, c, file1, file2);

  s = system(cmd);

  r = s == 0;
end

end

Published with MATLAB® R2025b