Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
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 pondering the Monastery: (4)
As of 2014-12-27 11:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (177 votes), past polls