The Perl Short Questions Megathread: executable line noise

The Something Awful Forums > Discussion > Serious Hardware/Software Crap > The Cavern of COBOL > The Perl Short Questions Megathread: executable line noise

«‹›2 »

leedo: Nov 28, 2000

Anyone else going to YAPC this year? I met a few of you last year and had a pretty good time (apart from getting sick after the big dinner.)

# ¿ May 3, 2010 18:02

Adbot: ADBOT LOVES YOU

# ¿ May 21, 2024 19:25

leedo: Nov 28, 2000

Otto Skorzeny posted:

Sartak/Filburt Shellback mentioned he's giving a talk again

I'm broke and thus working 10x6 for the summer so I can't be there

Bummer, I managed to get my employer to send me again (yay!) I am definitely going to be checking out Sartak's "Nonhierarchical OOP‎" talk since I still have trouble recognizing good uses for roles.

# ¿ May 3, 2010 21:56

leedo: Nov 28, 2000

Mithaldu posted:

Is there an online version of that somewhere? Or a book or whatever?

http://yapc2010.com/yn2010/talk/2634

Not sure that slides exist yet since it is still more than a month off.

This looks like a pretty comprehensive collection of links on the topic. Chromatic also wrote a big series of posts about it.

# ¿ May 3, 2010 22:27

leedo: Nov 28, 2000

Has anyone ever encountered code where a hashref is preceded by a +? I have seen this a few times and have not been able to figure out why it is being done. I assume it forces some sort of context... but I have never been able to find a case where it actually did anything.

e.g.

code:

+{
    'DBI' => [
        'dbi:SQLite:dbname=development.db',
        '',
        '',
        +{
            sqlite_unicode => 1,
        }
    ],
    'Text::Xslate' => +{
    },
};

edit: and a quick google search later clears it up. It is meant to disambiguate a hashref from a code block.

leedo fucked around with this message at 23:12 on Mar 8, 2011

# ¿ Mar 8, 2011 21:35

leedo: Nov 28, 2000

code:

use List::MoreUtils qw/uniq/;
sort uniq @raw;

!!!!

# ¿ Apr 5, 2011 03:29

leedo: Nov 28, 2000

I've been using Web::Scraper recently too for writing a generic content embedding service, similar to what twitter does for certain links in tweets. Here is an example that scrapes the title and introduction to wikipedia articles.

# ¿ May 24, 2011 20:40

leedo: Nov 28, 2000

File::HomeDir (does this still pull in a ton of awful Carbon modules) + serializer of choice?

# ¿ Jan 24, 2012 05:23

leedo: Nov 28, 2000

Anaconda Rifle posted:

It's not just an efficiency thing. /"(.+?)",/ and /"([^"]+)",/ can get different results. It's subtle, but extremely important.

I changed your example intentionally to make a point.

[^"] matches newlines by default whereas . doesn't? Took me a while of staring to even come up with a guess.

# ¿ Oct 20, 2012 04:57

leedo: Nov 28, 2000

As another option there is Web::Scraper

code:

use v5.14;
use Web::Scraper;
use URI;

my $scraper = scraper {
  process 'a[href^="/browsebrewers"]', 'links[]' => '@href';
};

my $data = $scraper->scrape(URI->new("http://www.ratebeer.com/BrowseBrewers.asp"));
say join ", ", @{$data->{links}};

# ¿ Dec 16, 2012 00:56

leedo: Nov 28, 2000

Too many ways to do it, I'm switching to python!

# ¿ Dec 16, 2012 21:03

leedo: Nov 28, 2000

het posted:

There are other benefits, like transparently passing an array by reference so you can change it a la push(), but you can be virtually guaranteed that anyone who uses perl function prototypes constantly has no idea what they're for and shouldn't be using them.

One cool use for prototypes is passing blocks in without the need for sub.

e.g.

code:

#!/usr/bin/env perl

use v5.14;

sub mapp(&@) {
  my ($f, @a) = @_;
  my @col;
  for (@a) {
    push @col, $f->($_);
  }
  return @col;
}

my @plus_one = mapp { $_ + 1} (0,1,2);

say join ", ", @plus_one;

# ¿ Jan 13, 2013 23:42

Adbot: ADBOT LOVES YOU

# ¿ May 21, 2024 19:25

leedo: Nov 28, 2000

I'm a big fan of Web::Scraper

# ¿ Apr 12, 2015 03:12

The Something Awful Forums > Discussion > Serious Hardware/Software Crap > The Cavern of COBOL > The Perl Short Questions Megathread: executable line noise

«‹›2 »