Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

vinoth.ree's scratchpad

by vinoth.ree (Monsignor)
on Jan 05, 2009 at 10:15 UTC ( #734135=scratchpad: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my @fruits = ('apple','orange','apple','orange');
    my $num_apple = grep /^apple$/i, @fruits
    print $num_apple;
    
  2. or download this
    @unique = grep { ++$count{$_} < 2 } qw(a b a c d d e f g f h h);print 
    +"@unique\n";
    
  3. or download this
    my @crops = qw(wheat corn barley rice corn soybean hay alfalfa rice ha
    +y beets corn hay);
    my @dupes = grep { $count{$_} == 2 } grep { ++$count{$_} > 1 } @crops;
    +print "@dupes\n";
    
  4. or download this
    @files = grep { -f and -T } glob '* .*';
    print "@files\n";
    
  5. or download this
    @a = (0 .. 9, 'a' .. 'z');
    $password = join '', map { $a [int rand @a ] } 0 .. 7;
    print "$password\n";
    
  6. or download this
    %hash = ( Elliot => Babbage,
              Charles => Babbage,
              Grace => Hopper,
    ...
    Elliot => Babbage
    Herman => Hollerith
    Grace => Hopper
    
  7. or download this
    my %data = (bananas => 1,oranges => 7,apples => 12, mangoes => 3,pears
    + => 8,);
    # Using <=> instead of cmp because of the numbers
    foreach my $fruit (sort {$data{$a} <=> $data{$b}} keys %data) {
        print $fruit . ": " . $data{$fruit} . "\n";
    }
    
  8. or download this
    use strict;
    use warnings;
    use Data::Dumper;
    use Encode qw(encode);
    my $rupee =  encode("UTF-8", chr(0x20B9));
    print "\n$rupee"."19264/-\n";
    
  9. or download this
    BEGIN
    {
    ...
            exit;
    };
    
  10. or download this
     
    my $module = 'My::Module';
    
    ...
        my $error = $@;
        # ...
    };
    
  11. or download this
    sub match_positions {
        my ($regex, $string) = @_;
        return if not $string =~ /$regex/;
        return ($-[0], $+[0]);
    }
    
  12. or download this
    sub match_all_positions {
        my ($regex, $string) = @_;
    ...
        }
        return @ret
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
[ambrus]: Corion: ah, so you want a library that parses HTTP, and you want to do the IO yourself, and don't want a full AnyEvent wrapper.
[ambrus]: Corion: I think I parsed a HTTP header from a string with LWP once. You can definitely use that to create a HTTP message too. The problme is
[ambrus]: that if you do that, you'd have to find where each HTTP response ends, which is nontrivial if you want persistent connections (essential for performance if you have small requests).
[Corion]: ambrus: Yes, ideally an API that I feed the incoming data piece by piece and that I can ask "is that response done" and "what should I do next" and "please construct the appropriate redirect for me"
[Corion]: ambrus: Yes, ideally the module would do all that nasty stuff for me and give me a way to ask it what the current situation is
[ambrus]: Corion: you could also consider using some wrapper over the multi interface of curl, I think Net::Curl might be a good one, since implementing enough of what it expects from the event loop might be easier than a full AnyEvent interface.

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (16)
As of 2016-12-07 16:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (130 votes). Check out past polls.