Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
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 perusing the Monastery: (7)
As of 2018-11-14 11:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My code is most likely broken because:
















    Results (171 votes). Check out past polls.

    Notices?