I started the program I gave you with a nice template, you should study it, what others have to say, and write your programs to follow it, it makes life easy. 


#!/usr/bin/perl --
use strict;
use warnings;
use HTML::Tree;
use WWW::SimpleRobot;

Main( @ARGV );
exit( 0 );

sub Main {
    my @urls = @_;    # or hardcode them here

    my $robot = WWW::SimpleRobot->new(
        URLS                 => \@urls,
        FOLLOW_REGEX         => $FOLLOW,
        DEPTH                => 2,
        TRAVERSAL            => 'depth',
        VISIT_CALLBACK       => \&Botulism,
        BROKEN_LINK_CALLBACK => \&Snicklefritz,
        ...
    );

    eval { $robot->traverse; 1 } or warn "robot died, but we caught it
+: $@ ";
}
sub MAlt { ... }

sub Botulism {
    my ( $url, $depth, $html, $links ) = @_;
    ...;
    no warnings 'uninitialized';
    eval {
        my $Title = substr $tree->look_down( '_tag', 'title' )->as_tex
+t , 0, 65;
        print ...;
    } or do {
        my $Title;
        for my $tag( qw' h1 h2 h3 h4 p ' ){
            last if eval {
                $Title = substr $tree->look_down( '_tag', $tag )->as_t
+ext , 0, 65;
                if( length $Title ){
                    $html->push_content($Title);
                    print ...;
                }
            };
        }
        unless($Title){
            print ...;
        }
    }
    ...;
    summarize
    ...
}

sub Snicklefritz {
    my ( $url, $linked_from, $depth ) = @_;
    ...;
}

sub Ebola {
    my( $html, $clip, $text ) = @_;
    if(defined $text and length $text ) {
        $text = substr $text, 0, $clip;
        $html->push_content( $text );
    }
}

[download]
Notice how Botulism seems to be getting large? All that title stuff should probably be a function, with a name that makes sense, like Title :)

In reply to Re^4: Trying to Insert Alt Tags Programmatically by Anonymous Monk
in thread Trying to Insert Alt Tags Programmatically by socrtwo

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.