> Also because it's easier to call from perl (because that's what I'm
> doing) without changing LC_ALL for the whole process.
Perl seems able to handle this fine. You don't need to change it for
the entire process. Just for sort.
use IO::File;
use strict;
sub perlsort {
my $filename = shift;
my $cmd = "LC_COLLATE=en_US.UTF-8 sort $filename |";
my $file = IO::File->new();
if (!$file->open($cmd)) {
die "Error: Could not run sort: $!\n";
}
while (defined($_ = $file->getline())) {
print $_;
}
if (!$file->close()) {
die "Error: Could not sort: $!\n";
}
}
if (length($ARGV[0])) {
&perlsort($ARGV[0]);
}
Bob
_______________________________________________
Bug-textutils mailing list
[EMAIL PROTECTED]
http://mail.gnu.org/mailman/listinfo/bug-textutils
