5

Convert UNIX to perl

view full story
linux-howto

http://www.unix.com – Hi, Can someone convert the code into perl ? Code: x=(a b c) y=(d e) times=$((${#x[*]} * ${#y[*]})) ((xi=yi=0)) for((i=1;i<=times;i++,xi++,yi++)) do  if((xi>${#x[*]}-1));then xi=0;fi  if((yi>${#y[*]}-1));then yi=0;fi  print ${x[$xi]},${y[$yi]} done (HowTos)