Skip to content

Instantly share code, notes, and snippets.

@xenoterracide

xenoterracide/fetch_pkgbuild.pl

Created May 3, 2010 08:41
Show Gist options
  • Save xenoterracide/387884 to your computer and use it in GitHub Desktop.
Save xenoterracide/387884 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fetch_pkgbuild.pl
#!/usr/bin/perl
use strict;
use warnings;
use feature qw(say);
use LWP::Simple;
my $content
= get('http://aur.archlinux.org/packages/perl-moose/perl-moose/PKGBUILD');
( my $pkgname ) = ( $content =~ /pkgname=\'([\w-]+)\'/ );
say $pkgname if $pkgname;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment