erm... ha beírod "kézzel", h random, akkor onnantól az összes színt legenerálja, csak emiatt nem jó erre a célra amit írtál, ha jól látom. (fixme)
amúgy tetszik :)
első feltétel alatt mit értesz? a y/n?-t?
de akkor meg írhatom hogy
if (($y_or_n eq "Y") or ($y_or_n eq "y")) or ($y_or_n eq "\n")) {
$filename = $ARGV[0];
} elsif (($y_or_n eq "N") or ($y_or_n eq "n")) {
&name;
}
?
___
Don't Panic!