I'm going to suggest pursuing the modules. I know, I know. No permission. To that, I have two answers, depending on where you are:

1. You're at work, and you are assigned a project which involves parsing HTML. My response has always been to my manager: help get these modules installed, or the cost (in effort) will be double or more. Someone else has already solved this part of my assignment, why spend company money redoing that?
2. You're at school, and you're just playing with your school-sponsored unix account. You may still be able to get your sysadmin to install a module if you ask nicely. I do understand how unlikely that is. So, next best thing: install it to a local directory (perl Makefile.PL PREFIX=~/perllib), and then use "use lib '/home/me/perllib'" in your scripts, or "export PERL5LIB=~/perllib" in your environment. Better yet, get and install perl on your home computer - you'll have all the access you need there.

I had this same annoying problem when trying to host a web-site with a particular stingy provider. Things get complicated when they disallow CPAN, and when you only have FTP access (so you cannot even try to run the make-file if you manually upload the whole module).

In effect I had to install the module on my local box. and then FTP the necessary components to the "host" machine (just as you said in my local directory). It is the same conundrum, but complicated by the fact that you cannot generate anything remotely. I believe that once you put it in your local dir and then include the following lines in your code



#/usr/bin/perl
BEGIN {
    unshift(@INC, "<directory-path-of-the-modules>");
}
[download]

It should recognize it fine

I tried complaining to the provider but they said "In the name of security we can not allow you to do these things etc. ad-nauseum." Hopefully you aren't in this same situtation.

use lib, Luke!

Flavio (perl -e 'print(scalar(reverse("\nti.xittelop\@oivalf")))')

Don't fool yourself.

(.*?)
[download]

#! /usr/bin/perl

use strict;
use warnings;
use HTML::Parser;
use Data::Dumper;

my @links;
my $string = qq~<a href="url1">linktext1</a> Ein anderer Text
                <a href="url2">linktext2</a> text~;
my $p = HTML::Parser->new();
$p->handler(start => \&start_handler,"tagname,attr,self");
$p->parse($string);

foreach my $link(@links){
  print "Linktext: ",$link->[1],"\tURL: ",$link->[0],"\n";
}

sub start_handler{
  return if(shift ne 'a');
  my ($class) = shift->{href};
  my $self = shift;
  my $text;
  $self->handler(text => sub{$text = shift;},"dtext");
  $self->handler(end  => sub{push(@links,[$class,$text]) if(shift eq '
+a')},"tagname");
}
[download]

@lineTokens = split(/(.*)<(.*)=(.*)"(.*)>(.*)/, $lines[$l]);
[download]

split(/(.*)<(.*)=(.*)"(.*)>(.*)/g
[download]