Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

jeffa's scratchpad

by jeffa (Chancellor)
on Jun 01, 2004 at 16:56 UTC ( #358213=scratchpad: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    /*------+---------+---------+---------+---------+---------+--------+*\
    |                                                                    |
    ...
    
        return floatValueLeft + floatValueRight;
    }
    
  2. or download this
    use Attribute::Handlers;
    
    ...
    sub foo {
        print Dumper \@_;
    }
    
  3. or download this
    sub new {
      my $class = shift;
    ...
    
      return bless $self, $class;
    }
    
  4. or download this
    #!/usr/bin/perl -w
    
    ...
    
    =cut
    
  5. or download this
    use strict;
    use warnings;
    ...
    
    my @ip = (sort { $#$b <=> $#$a } @bucket)[0];
    print Dumper \@ip;
    
  6. or download this
    package DMML;
    
    ...
    .
    
    1;
    
  7. or download this
    use strict;
    use warnings;
    ...
    );
    
    print Dumper $dmml->{OUTPUT};
    
  8. or download this
    package DVD::director_movie;
    use base qw(DVD::DBI);
    ...
    });
    
    1;
    
  9. or download this
    use DBI;
    use HTML::Template;
    ...
    </tmpl_loop>
    </select>
    </form>
    
  10. or download this
    use Carp;
    
    ...
        $AUTOLOAD =~ /.*::(\w+)/ && exists $self->{$1} and return $self->{
    +$1};
        croak "No such attribute: $1";
    }
    
  11. or download this
    use strict;
    use warnings;
    ...
    }
    
    print Dumper \%hash;
    
  12. or download this
    #!/usr/bin/perl
    
    ...
        </option>
    </select>
    </tmpl_loop>
    
  13. or download this
    #!/usr/bin/perl
    
    ...
        -labels   => \%label,
    );
    
  14. or download this
    #!/usr/bin/perl
    
    ...
        $var = shift;
        print "$var\n";
    }
    
  15. or download this
    #!/usr/bin/perl
    
    ...
        my $self = shift;
        print $self->{var},"\n";
    }
    
  16. or download this
    #!/usr/bin/perl
    
    ...
            print OUT;
        }
    }
    
  17. or download this
    #!/usr/bin/perl
    
    ...
        open IN, $_;
        print OUT while <IN>;
    }
    

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 imbibing at the Monastery: (10)
As of 2015-03-04 04:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When putting a smiley right before a closing parenthesis, do you:









    Results (96 votes), past polls