- or download this
$; = 'perl';
map {
...
split(/[\s,]+/, $_, 0) if /alpha.*$;/i .. /wait/
} `$;doc $;toc`;
@[ = keys %_;
- or download this
$; = 20;
$: = 15;
foreach $_ (0 .. $; * $: - 1) {
$;[$_] = '_';
}
- or download this
until ($%++ > 3 * $; or @] > 2 * $: - 3) {
- or download this
@_ = split(//, splice(@[, rand @[, 1), 0);
if (3 > @_) {
next;
}
- or download this
$~ = int rand $;;
$^ = int rand $:;
$- = $~ + $^ * $;;
- or download this
my $Erudil = 0;
- or download this
{
if ($Erudil++ > 2 * $:) {
next;
}
- or download this
$a = (-1, 0, 1)[rand 3];
$b = (-1, 0, 1)[rand 3];
- or download this
unless ($a || $b
and $~ + $a * @_ <= $;
...
and $^ + $b * @_ >= 0) {
redo;
}
- or download this
my $llama = 0;
foreach $_ (0 .. $#_) {
...
last;
}
}
- or download this
if ($llama) {
redo;
}
- or download this
push @], join('', @_);
foreach $_ (0 .. $#_) {
$;[$- + $a * $_ + $b * $; * $_] = $_[$_];
}
- or download this
}
}
...
@_ = sort(@]);
unshift @_, 'Find:', '-' x 5;
- or download this
foreach $a (0 .. $: - 1) {
- or download this
foreach $b (0 .. $; - 1) {
- or download this
$~ = ('a'..'z')[rand 26];
$_ = "$;[$a * $; + $b]" . $";
s/_/$~/;
print $_;
}
- or download this
$_ = shift @_ || $";
print $", $", $_, $/;
$_ = shift @_ || $";
print $" x $;, $" x $;, $", $", $_, $/;
}