SPUG: Sort an array question
Brian Hatch
spug at ifokr.org
Thu Dec 26 16:27:17 CST 2002
> While attempting to gain more meaninful employment, I
> happened upon this question from a prospective
> provider of opportunity. "Sort an array
> alphabetically without using the Perl sort command."
> This was provided by someone not familiar with Perl
> but other languages and all work was shown on a white
> board. I think I did OK, there were a few holes in
> the code, and I decided to really give it a shot.
> This works and is very close to what I provided on the
> spot.
>
> If any of you have some free time and thoughts, I'd
> appreciate them! Tell me what you think.
Though you could certainly code up a bubble/insertion/quick sort
or such, how 'bout
#!/usr/bin/perl -w
use IPC::Open2;
use strict;
my @array1 = qw(e c g h z r t a i h j l p b d r q x v a);
open2(*R, *W, "sort") or die "Can't run sort!":
print W join "\n", @array1;
close W;
chomp(@array2 = <R>);
print "Sorted version: @array2";
After all, TMTOWTDI.
--
Brian Hatch Each generation has
Systems and it's signaure disease.
Security Engineer The Black Plague.
http://www.ifokr.org/bri/ Cholera. Ebola. AIDS.
Windows 2000.
Every message PGP signed
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 240 bytes
Desc: not available
Url : http://mail.pm.org/archives/spug-list/attachments/20021226/fec1bff1/attachment.bin
More information about the spug-list
mailing list