Thanx, but i have writen my code (maybe huge, but :)...
for (my $a = 0; $a < 24; $a++) {
my $value = substr $hours_flags, $a, $a;
$Hours->{$a} = $value;
}
:-)
Symka.
> $_ = "000000111111111111000000";
> @h{grep~s/^.$/0$&/,0..23} = /./g;
>
> I hope that works
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
