#! perl use strict; use warnings; use HTML::TokeParser; my $p = HTML::TokeParser->new("sample.html") || die "Can't open: $!"; my %hash; while (my $t = $p->get_token){ next unless $t->[0] eq 'S' and $t->[1] eq 'th' and defined $t->[2]{'class'} and $t->[2]{'class'} eq 'DatTh'; my $key = $p->get_text('/th'); chop $key; $p->get_tag('td'); my $value = $p->get_text('/td'); $value =~ s/^\s*//; $value =~ s/\s*\[Add\]\s*$//; $hash{$key} = $value; } open OUT, '>', 'out.txt' or die; for my $key ( keys %hash ){ print OUT "$key => $hash{$key}\n" } close OUT; #### Subject => PMR446 To => sigmund@fastmail.fm Date => Mon, 9 Aug 2004 10:28 AM  ( 59 mins 50 secs ago ) From => "Delboy" ####
Date  Mon, 9 Aug 2004 10:28 AM  ( 59 mins 50 secs ago ) Text view
HTML view
Print view
From  "Delboy" <delboyenterprises@hotmail.com> [Add]
To  sigmund@fastmail.fm[Add]
Subject  PMR446 Show full header