Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Discipulus's scratchpad

by Discipulus (Parson)
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
    use strict;
    use warnings;
    ...
    ;
    
    1;
    
  2. or download this
    
    #output preceded by pipe sign, Perl version below
    ...
     | 1
    [OK] C:\ulisse\strP5.22-32\perl\bin\perl.exe
    
  3. 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";
    
  4. 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);
    
  5. or download this
    #!perl
    use strict;
    ...
        }
    
    }
    
  6. or download this
    use 5.10.0;
    use warnings;
    ...
        #return $xml->{settings};
        } # get_config_and_servers_Twig
    
  7. 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);}
    }
    
  8. 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";
    }
    
  9. 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
    
  10. 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
    
  11. 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
    
  12. or download this
    use strict;
    use warnings;
    ...
    foreach $line (<MYFILE>) {
    print "$line" if $. >= $cnt;
    }
    
  13. or download this
    #!perl
    use strict;
    ...
    my $adjective = 'not interpolated';
    
    print eval "qq{$text}";
    
  14. or download this
    use strict;
    use warnings;
    ...
    $lines=~s/^\s*(?!$)//gm;
    
    print $lines
    
  15. or download this
     #!/usr/bin/perl -w
    use REST::Client;
    ...
    }<P>
    
    
  16. or download this
    <P>
    
    
    ...
    
    }<P>
    

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 browsing the Monastery: (5)
As of 2016-10-01 15:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Extraterrestrials haven't visited the Earth yet because:







    Results (579 votes). Check out past polls.