check if two paths are identical

eqpath.pl

#!/usr/bin/env perl
# cf. https://twitter.com/dankogai/status/1474270327006195718
use strict;
use warnings;
use feature 'say';

sub eqpath {
    my @lhs = lstat( $_[0] ) or return;
    my @rhs = lstat( $_[1] ) or return;
    # if device numbers and inode numbers are the same, they are identical
    return $lhs[0] == $rhs[0] && $lhs[1] == $rhs[1];
}

say 0+eqpath(@ARGV);

eqpath.sh

#!/bin/sh                                                                       
# cf. https://twitter.com/0yama/status/1474270480895180805
lhs="$1"
rhs="$2"
test "$(stat -f '%d %i' $lhs)" = "$(stat -f '%d %i' $rhs)"
# echo $?