Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

more comments about reputer

by grinder (Bishop)
on May 22, 2001 at 17:34 UTC ( #82216=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
      my$temp = '/home/dlandgre/perl/reputer/'; # where data files are sav
    +ed
      my$public_access = ''; # 'yes' disables config, downloads, and exter
    +nal program functions
      my$bodytag = '<body bgcolor="#aaaaaa" text="#000000">';
      my$form_method = 'get'; # get or post, 'get' shows params in url 
    
  2. or download this
      my$temp          = '/home/dlandgre/perl/reputer/'; # where data file
    +s are saved
      my$public_access = ''; # 'yes' disables config, downloads, and exter
    +nal program functions
      my$bodytag       = '<body bgcolor="#aaaaaa" text="#000000">';
      my$form_method   = 'get'; # get or post, 'get' shows params in url 
    
  3. or download this
    my($mode,$td,$ta,$rd,$ra,$ca,$cd) = '';
    
  4. or download this
    my($mode,$td,$ta,$rd,$ra,$ca,$cd) = ('','','','','','','');
    
  5. or download this
    my $mode = '';
    my $td   = '';
    my $ta   = '';
    
  6. or download this
      unless($i{'n'} eq 'logout'){
        if($ins > 1){$s='s'}
        &begin_html('fu');
        print qq~$bq $bq $bq
    
  7. or download this
      $var += 2 unless $condition;
    
  8. or download this
    #! /usr/bin/perl -w
    
    ...
    
      print DAT Data::Dumper->Dump( [$root], ['$root'] );
      close DAT;
    
  9. or download this
      print DAT Data::Dumper->Dump( [$root], ['$root'] );
    
  10. or download this
      $var = 'root';
      $Data::Dumper::Varname = "$var";
      print DAT Dumper($root);
    
  11. or download this
      #! /usr/bin/perl -w
    
    ...
        'eval & dump'      => \&via_eval_dump,
        'retrieve & store' => \&via_retrieve_store,
      }
    
  12. or download this
    sub graph
    { # calculate and display the graphs
    my($hm1,$hm2,$hm3,$bdr,$cs,$spacer,$mode,$descr);
    ...
    print qq~<tr bgcolor="#b0b0b0">
    <td><b>$nb rep $nb</td><td><b>$nb num $nb</td><td>&nbsp;</td></tr></ta
    +ble><p>~;
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://82216]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (6)
As of 2014-07-30 23:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (241 votes), past polls