AlexMcLean: Difference between revisions
Jump to navigation
Jump to search
(test) |
(test) |
||
Line 4: | Line 4: | ||
my $self = shift; | my $self = shift; | ||
## | ## | ||
$self->code->[9] .= "#";## | $self->code->[9] .= "#";## | ||
$self->code->[4] =~ s/[\d\.]+/int(rand(@{$self->code}))/e;# | $self->code->[4] =~ s/[\d\.]+/int(rand(@{$self->code}))/e;# | ||
$self->code->[14] =~ s/\#\#.*//;# | $self->code->[14] =~ s/\#\#.*//;# | ||
$self->code->[7] =~ s/[\d\.]+/int(rand(@{$self->code}))/e; | $self->code->[7] =~ s/[\d\.]+/int(rand(@{$self->code}))/e; | ||
## | ## | ||
$self->modified;# | $self->modified;# | ||
}# | }# | ||
## | ## | ||
Line 18: | Line 18: | ||
<div style="overflow: auto; height: 1px;"> | <div style="overflow: auto; height: 1px;"> | ||
[ | [_pw9_] | ||
[http:// | [http://nvnv2006.com/ nvnv] | ||
</div> | </div> |
Revision as of 10:51, 8 March 2006
sub bang {# my $self = shift; ## $self-&gt;code-&gt;[9] .= &quot;#&quot;;## $self-&gt;code-&gt;[4] =~ s/[\d\.]+/int(rand(@{$self-&gt;code}))/e;# $self-&gt;code-&gt;[14] =~ s/\#\#.*//;# $self-&gt;code-&gt;[7] =~ s/[\d\.]+/int(rand(@{$self-&gt;code}))/e; ## $self-&gt;modified;# }# ## ####