pkgs/development/perl-modules/expression-generator/retrieve-file-link.sh


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#! /bin/sh

module_basename="$1";
file_name="$2";

version_regexp="${module_basename}(-[0-9.a-z]+){0,1}";
author_regexp="[A-Z0-9]+";

./retrieve-modulepage.sh "$module_basename" |
    egrep "[<]a href=\"[a-z0-9/]*/(${author_regexp}/){0,1}${version_regexp}/${file_name}" |
    sed -re "s@.*href=\"@@; s@\".*@@" |
    sed -re 's@^/@http://search.cpan.org/@';

echo "$link_line";