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

bobf's scratchpad

by bobf (Monsignor)
on Aug 12, 2004 at 05:12 UTC ( #382174=scratchpad: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
  2. or download this
    use strict;
    use warnings;
    ...
            $h->{ $vals[0] } = \%data;
        }
    }
    
  3. or download this
    open(SHELL,">shell.sh");
                print SHELL "cd $dir","\n";
                print SHELL "cp $file $configParams{BASEDIR}";
    system ("bash shell.sh") ;
                close(SHELL);
    
  4. or download this
    # my original idea was to have a getter/setter for each "extended info
    +" item:
    
    ...
        );
        return $self->_format_struct( $tickerid, $struct );
    }
    
  5. or download this
    # Grab info (title, date, reputation, etc) for a user's nodes.
    # Uses the user node info XML Ticker (id://32704).  If the
    ...
                );
    }
    
  6. or download this
    sub user_nodes {
        my( $self, %params ) = @_;
    ...
    }
    
    
  7. or download this
    use strict;
    use warnings;
    ...
        print Dumper( $data );
    
    }
    
  8. or download this
    use strict;
    use warnings;
    ...
                                $day, $month-1, $year-1900 );
    }
    
  9. or download this
    sub private_message {
        my( $self, %params ) = @_;
    ...
    
        return( $data->{message}, $data->{INFO} );
    }
    
  10. or download this
    my $pm_obj = PerlMonks::Mechanized->new();
    my $node_data = $pm_obj->node_info( @node_ids );
    my $title = $node_data->title( $node_ids[3] );
    
  11. or download this
    my $pm_obj = PerlMonks::Mechanized->new();
    my $node_data = $pm_obj->node_info( @node_ids );
    add_node_data( $node_data, \%alldata );
    my $title = $alldata{ $node_ids[3] }{title};
    
  12. or download this
    my %nodedata;
    
    ...
    my $data = $pm_obj->node_info( @node_ids );
    
    add_node_data( $data, \%nodedata );
    
  13. or download this
    package PerlMonks::Mechanized::Data;
    
    ...
        print "  The new data will replace the current data\n";
    }
    
  14. or download this
    # Each row must contain the digits 1 through 9 in any order.
    # Each column must contain the digits 1 through 9 in any order.
    ...
    
        return $hints;
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (4)
As of 2016-12-10 08:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (160 votes). Check out past polls.