- or download this
#change:
foreach my $wild (@wilds) {
...
my $wild = join("", @good_wilds);
$find =~ s/([$wild])/<font color=red>$1<\/font>/g;
print "$find\n";
- or download this
my %hash = (
1 => ["apple"], 2 => ["melon", "grape"],
...
#or possibly
my @array = (["apple"], ["melon", "grape"], ["pear", "orange"]);
print "Level ", ++$_, "\n@{$array[$_]}\n\n" for 0 .. $#array;
- or download this
my $foo = Foo::Bar->new(name => 'blah', system => 'linux');
...
###possibly several more steps to test other options here
return $self;
}
- or download this
first script:
my %hash;
...
$field{$_} = $cgi->param($_) for %fields;
#or
%fields = $cgi->Vars;
- or download this
sub main {
use Data::Dumper;
...
<p>Content: <TMPL_VAR content></p>
<p>ID: <TMPL_VAR id></p>
</TMPL_LOOP>
- or download this
#didn't answer the question but really cool:
# $sql=sprintf "select * from table where %s", join " and",
...
}
$where .= ")";
print "$where\n";
- or download this
<html>
<head>
...
<body>
</body>
</html>
- or download this
C++ stuff
vector.h
...
array.push_back(c);
}
std::cout<<array.size()<<std::endl;