Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Discipulus's scratchpad

by Discipulus (Priest)
on Jun 03, 2004 at 10:36 UTC ( #360051=scratchpad: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    # PICK ONE OF TWO OPEN OPTIONS BELOW
      #1#print STDERR "Option 1\n"; open($fh1, '>&', $fhSave)             
    +        or die "Can't restore fh1";
      #2#print STDERR "Option 2\n";open($fh1, '>', \ substr($s1, length($s
    +1)) )  or die "Can't restore fh1";
    
  2. or download this
    #!perl
    use strict;
    ...
                   # Cannot decode string with wide characters at C:/uliss
    +e/strawberry/perl/lib/Encode.pm line 196.
    
    $t->parse_html ($html);
    
  3. or download this
    #!perl
    use strict;
    ...
        }
    
    }
    
  4. or download this
    use 5.10.0;
    use warnings;
    ...
        #return $xml->{settings};
        } # get_config_and_servers_Twig
    
  5. or download this
    #!perl
    use strict;
    ...
       # THIS CHECK WORKS INDEED!
       if (exists &readline::rl_basic_commands){print "IN CONTINUE EXISTS\
    +n"; &readline::rl_basic_commands(keys %cmds);}
    }
    
  6. or download this
    #!perl
    use strict;
    ...
        print "\n",(join '::',@cur_names or 'CPAN'),($$hr{'+'}->[0] ? "\t$
    +$hr{'+'}->[0]\t$$hr{'+'}->[1]" : ""),
              " has ",(scalar@{[grep $_ !~ $skiprx, keys %$hr]})," namespa
    +ces\n";
    }
    
  7. or download this
    #!perl
    my $ua;
    ...
    A::CC                  0.2  I/ID/IDOPEREL/Abilities-0.2.tar.gz
    A::CC::DD             0.2  I/ID/fake/Abilities-0.2.tar.gz
    XX::ZZ::YY          0.1 I/jhsjkha
    
  8. or download this
    #!perl
    use strict;
    ...
    A::CC                  0.2  I/ID/IDOPEREL/Abilities-0.2.tar.gz
    A::CC::DD             0.2  I/ID/fake/Abilities-0.2.tar.gz
    XX::ZZ::YY          0.1 I/jhsjkha
    
  9. or download this
    #!perl
    use strict;
    ...
    about                             undef  S/SH/SHERWOOD/xisofs-1.3.tar.
    +gz
    above                              0.03  B/BR/BRUMMETT/UR-0.43.tar.gz
    
  10. or download this
    use strict;
    use warnings;
    ...
    foreach $line (<MYFILE>) {
    print "$line" if $. >= $cnt;
    }
    
  11. or download this
    #!perl
    use strict;
    ...
    my $adjective = 'not interpolated';
    
    print eval "qq{$text}";
    
  12. or download this
    use strict;
    use warnings;
    ...
    $lines=~s/^\s*(?!$)//gm;
    
    print $lines
    
  13. or download this
     #!/usr/bin/perl -w
    use REST::Client;
    ...
    }
    
    
  14. or download this
    
    
    ...
    
    }
    

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 musing on the Monastery: (15)
As of 2015-07-03 12:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (53 votes), past polls