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;#
}#
##
####