Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

kutsu's scratchpad

by kutsu (Priest)
on Jun 01, 2004 at 17:39 UTC ( #358304=scratchpad: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. 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";
    
  2. 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;
    
  3. or download this
    my $foo = Foo::Bar->new(name => 'blah', system => 'linux');
    
    ...
      ###possibly several more steps to test other options here
      return $self;
    }
    
  4. or download this
    first script:
    my %hash;
    ...
    $field{$_} = $cgi->param($_) for %fields;
    #or 
    %fields = $cgi->Vars;
    
  5. or download this
    sub main {
      use Data::Dumper;
    ...
      <p>Content: <TMPL_VAR content></p>
      <p>ID: <TMPL_VAR id></p>
    </TMPL_LOOP>
    
  6. or download this
    #didn't answer the question but really cool:
    #  $sql=sprintf "select * from table where %s", join " and",
    ...
    }
    $where .= ")";
    print "$where\n";
    
  7. or download this
    <html>
    <head>
    ...
    <body>
    </body>
    </html>
    
  8. or download this
    C++ stuff
    vector.h
    ...
      array.push_back(c);
    }
    std::cout<<array.size()<<std::endl;
    

Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (4)
As of 2021-04-21 02:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?