binaryfever/case_insensitive_sorting.pl

## case_insensitive_sorting.pl
#!/usr/bin/perl

#Small example script just because I keep forgetting how to do case-insensitive sorting on an array in PERL.

@values = qw(fred trevor Burt steve Greg Alcedine);
@sorted_values = sort { "\L$a" cmp "\L$b" } @values;
print "@sorted_values\n";
	#!/usr/bin/perl

	#Small example script just because I keep forgetting how to do case-insensitive sorting on an array in PERL.

	@values = qw(fred trevor Burt steve Greg Alcedine);
	@sorted_values = sort { "\L$a" cmp "\L$b" } @values;
	print "@sorted_values\n";