[quote=pl,26.07.2007, 23:24]Nun ist mein Problem, das ich nicht weiß wie ich so was mache, meine erste Überlegung war:
[/quote]
also es ist erstens ziemlich ungewöhnlich, dass du pop() statt shift()
verwendest. sobald ein argument hintendran gehängt wird, bekommst
du nämlich dieses.
zweitens möchtest du ja wohl, dass der if-block nur ausgeführt wird,
wenn das argument '-s' ist, oder?
=~ ist pattern-matching. wenn du strings vergleichen willst, solltest
du 'eq' benutzen, sonst wird der block auch ausgeführt, wenn jemand
foo-bar-something als argument übergibt.

steht aber auch in perlintro, was man
zum string-vergleich benutzt.