Beefy Boxes and Bandwidth Generously Provided by pair Networks kudra
There's more than one way to do things
 
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 about the Monastery: (10)
As of 2014-04-17 00:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (437 votes), past polls