$string = "Mark Jacobson#11#UNI#Panthers#Caps"; @a = split(/#/, $string); for ($i = 0; $i < @a; $i++) { print "$a[$i] \n"; $a[$i] =~ tr/abc/xyz/; } # $front = shift @a; COMMENTED OUT # push(@a, $front); COMMENTED OUT $back = pop @a; unshift(@a, $back); for ($i = 0; $i < @a; $i++) { print "$a[$i] \n"; } $string = join("#", @a); print "\n$string\n\n";
venkman@bebop:~/web/cgi-bin$ cat srand.pl srand; for ($i = 1; $i <= 8; $i++) { print int (rand(365)) + 1; print "\n"; } venkman@bebop:~/web/cgi-bin$ perl srand.pl 116 277 357 327 153 106 146 105 venkman@bebop:~/web/cgi-bin$ venkman@bebop:~/web/cgi-bin$ perl srand.pl 333 109 189 28 343 105 11 100