Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
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 the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (12)
As of 2014-08-20 18:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (121 votes), past polls