#!/usr/bin/perlprint "n? ";$n = ;chomp($n);if($n == "3") { open(TEMP, ">/tmp/array"); print TEMP "1 2 3\n"; print TEMP "8 9 4\n"; print TEMP "7 6 5"; close(TEMP); open(TEMP, " @array = ; close(TEMP);}#The array is @array
is this what you mean?
1 -> 2 -> 3 | V 8 -> 9 4 ^ | | V 7 <- 6 <- 5
1 -> 2 -> 3 -> 4 | V12-> 13-> 14 5 ^ | | | V V 11 16<- 15 6 ^ | | V 10<- 9 <- 8 <- 7
Oh, ok. I kinda get it now.Nobody post an answer to this, because I want to take a couple days to figure it out.