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 (Monsignor)
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

  2. or download this
    perl -MList::Util="first" -E "@c[0..123456789]=(0..123456789);say for 
    +grep{$e=eval $_;$c[$e]=undef if $e >=0;$h{$e}++;eval $_ == 100} glob 
    +'{-,}'.join '{+,-,}',1..9;END{ say for (sort{ $h{$b}<=>$h{$a}}grep{$_
    +>=0}keys %h)[0], first{defined $_}@c}"
    
    Out of memory!
    panic: gen_constant_list JMPENV_PUSH returned 2 at -e line 1.
    
  3. or download this
    #!/usr/bin/perl
    use warnings;
    ...
    Subroutine decode redefined at test_decode01.pl line 23.
    abc
    
  4. or download this
    #
    # $Id: Encode.pm,v 2.92 2017/07/18 07:15:29 dankogai Exp dankogai $
    ...
    
    ...
    
  5. or download this
    do {
      my $f = undef;
    ...
    Prototype mismatch: sub main::decode ($$;$) vs none at test_decode01.p
    +l line 26.
    Subroutine decode redefined at test_decode01.pl line 23.
    abc
    
  6. or download this
    perl -MMath::Prime::Util::GMP=":all" -E "@p=grep{is_prime($_)}1..1000;
    + say qq($p[$_] = ),$p[$_]-($p[$_-1]-1),
    (is_prime($p[$_]-$p[$_-1]-1)?' prime':'')for 1..$#p"
    
  7. or download this
    use warnings;
    use strict;
    ...
      print $out $resized->jpeg or die "unable to write jpg data!";
      close $out;
    }
    
  8. or download this
    use strict;
    use warnings;
    ...
    ;
    
    1;
    
  9. or download this
    
    #output preceded by pipe sign, Perl version below
    ...
     | 1
    [OK] C:\ulisse\strP5.22-32\perl\bin\perl.exe
    
  10. 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";
    
  11. 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);
    
  12. or download this
    #!perl
    use strict;
    ...
        }
    
    }
    
  13. or download this
    use 5.10.0;
    use warnings;
    ...
        #return $xml->{settings};
        } # get_config_and_servers_Twig
    
  14. 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);}
    }
    
  15. 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";
    }
    
  16. 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
    
  17. 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
    
  18. 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
    
  19. or download this
    use strict;
    use warnings;
    ...
    foreach $line (<MYFILE>) {
    print "$line" if $. >= $cnt;
    }
    
  20. or download this
    #!perl
    use strict;
    ...
    my ($comp,$first,@sec);<P>
    
    #$comp = "descr is ".(defined $first ? q{$first} : <C>null').
    

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 taking refuge in the Monastery: (3)
As of 2018-09-22 03:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Eventually, "covfefe" will come to mean:













    Results (190 votes). Check out past polls.

    Notices?
    • (Sep 10, 2018 at 22:53 UTC) Welcome new users!