Tag 13: Regex statt Array (Carts)
while ($map !~ /x/i) { print `clear`; while ($map =~ /[a-z]/) { $map=~s/([a-z])([\\\/+\-])/&right($1, $2)/e; $map=~s/([\\\/+\-])([a-z])/&left($2, $1)/e; $map=~s/([\\\/+\|])(.{$width})([a-z])/&up($3, $1, $2)/es; $map=~s/([a-z])(.{$width})([\\\/+\|])/&down($1, $3, $2)/es; } $map=~s/([A-Z])/lc($1)/gse; say $map; }