Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

jeffa's scratchpad

by jeffa (Bishop)
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
    #!/usr/bin/perl -l
    use lib '/PATH/TO/DesignPatterns-Perl/lib/';
    ...
    )->run( 1 .. 10 );
    print `cat out.txt`;
    print `rm out.txt`;
    
  2. or download this
    package HTML::Element;
    use strict;
    ...
        return @_ ? "<$tag$attr_txt>@_</$tag>" : "<$tag$attr_txt />";
    }
    1;
    
  3. or download this
    use HTML::Element '!DEFAULT';
    print '<!DOCTYPE html>',
    ...
            ),
        ),
    );
    
  4. or download this
    #!/usr/bin/env perl 
    
    ...
    
    #print $_,$/ for @flavors;
    print $_,$/ for sort keys %flavors;
    
  5. or download this
    /*------+---------+---------+---------+---------+---------+--------+*\
    |                                                                    |
    ...
    
        return floatValueLeft + floatValueRight;
    }
    
  6. or download this
    use Attribute::Handlers;
    
    ...
    sub foo {
        print Dumper \@_;
    }
    
  7. or download this
    sub new {
      my $class = shift;
    ...
    
      return bless $self, $class;
    }
    
  8. or download this
    #!/usr/bin/perl -w
    
    ...
    
    =cut
    
  9. or download this
    use strict;
    use warnings;
    ...
    
    my @ip = (sort { $#$b <=> $#$a } @bucket)[0];
    print Dumper \@ip;
    
  10. or download this
    package DMML;
    
    ...
    .
    
    1;
    
  11. or download this
    use strict;
    use warnings;
    ...
    );
    
    print Dumper $dmml->{OUTPUT};
    
  12. or download this
    package DVD::director_movie;
    use base qw(DVD::DBI);
    ...
    });
    
    1;
    
  13. or download this
    use DBI;
    use HTML::Template;
    ...
    </tmpl_loop>
    </select>
    </form>
    
  14. or download this
    use Carp;
    
    ...
        $AUTOLOAD =~ /.*::(\w+)/ && exists $self->{$1} and return $self->{
    +$1};
        croak "No such attribute: $1";
    }
    
  15. or download this
    use strict;
    use warnings;
    ...
    }
    
    print Dumper \%hash;
    
  16. or download this
    #!/usr/bin/perl
    
    ...
        </option>
    </select>
    </tmpl_loop>
    
  17. or download this
    #!/usr/bin/perl
    
    ...
        -labels   => \%label,
    );
    
  18. or download this
    #!/usr/bin/perl
    
    ...
        $var = shift;
        print "$var\n";
    }
    
  19. or download this
    #!/usr/bin/perl
    
    ...
        my $self = shift;
        print $self->{var},"\n";
    }
    
  20. or download this
    #!/usr/bin/perl
    
    ...
            print OUT;
        }
    }
    
  21. 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 cooling their heels in the Monastery: (13)
As of 2015-08-04 16:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The oldest computer book still on my shelves (or on my digital media) is ...













    Results (68 votes), past polls