そいや、readlink(1) とか stat(1) とかは OS 間で全然互換性がないな。 test file1 -ef file2 はポータビリティが怪しいということで、同じ機能を Perl で書いてみる。 #!/usr/bin/perl use strict; use warnings; use File::stat; sub usage { print STDERR "Usage: $0 file1 file2\n"; } sub main { if (@ARGV != 2) { usage; exit 1; } my ($file1, $file2) = @ARGV; my $st1 = stat $file1; my $st2 = stat $file2; if (not defined $st1) { exit 1; } if (not defined $st2) { exi
![2009-01-11](https://cdn-ak-scissors.b.st-hatena.com/image/square/06a15c64ba0ceec233d86d71001ebb29a9dcbf5d/height=288;version=1;width=512/https%3A%2F%2Fcdn.blog.st-hatena.com%2Fimages%2Ftheme%2Fog-image-1500.png)