Frage im Vorstellungsgespräch bei NetApp

Write a program sorting characters without using sort function in Perl.

Antwort im Vorstellungsgespräch

Anonym

16. Juli 2013

print "\nPlease provide the input array\n"; $arg = ; my @argv = split(/,/,$arg); chomp @argv; for(my $i =0 ;$i $argv[$j]) { my $tmp = $argv[$i]; $argv[$i] = $argv[$j]; $argv[$j] = $tmp; } } } $arg = join(",",@argv); print "\n The sorted array is >>>>\n\n$arg\n";

3