
Welcome to the Monastery
	PerlMonks

kutsu's scratchpad

by kutsu (Priest)

on Jun 01, 2004 at 17:39 UTC ( [id://358304]=scratchpad: print w/replies, xml )

Need Help??

Public Scratchpad

Download, Select Code To D/L

Help for this page

Select Code to Download

Select 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";

Select 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;

Select or download this

my $foo = Foo::Bar->new(name => 'blah', system => 'linux');

...
  ###possibly several more steps to test other options here
  return $self;
}

Select or download this

first script:
my %hash;
...
$field{$_} = $cgi->param($_) for %fields;
#or 
%fields = $cgi->Vars;

Select or download this

sub main {
  use Data::Dumper;
...
  <p>Content: <TMPL_VAR content></p>
  <p>ID: <TMPL_VAR id></p>
</TMPL_LOOP>

Select or download this

#didn't answer the question but really cool:
#  $sql=sprintf "select * from table where %s", join " and",
...
}
$where .= ")";
print "$where\n";

Select or download this

<html>
<head>
...
<body>
</body>
</html>

Select or download this

C++ stuff
vector.h
...
  array.push_back(c);
}
std::cout<<array.size()<<std::endl;

Domain Nodelet^?

www.com | www.net | www.org

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others admiring the Monastery: (1)

chatterbot

As of 2024-04-24 14:13 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found