2009-01-11

そいや、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