1

HTML::TagParser と本のバーコードを使用して本のページを取り込み、特定のスパンを取得し、別のページでそれを繰り返し、それをエクスポートするように選択されるまで TK::MListbox に追加するプログラムがあります。これはEclipseで完全にうまく機能します。ただし、par-packer で .exe を作成すると、プログラムは動作しなくなります。バーコード 31412007436751 を使用した場合のエラーは次のとおりです。

Tk::Error: URI::Fetch failed: https://i-share.carli.illinois.edu/uis/cgi-bin/shelflister.cgi?search=s1&bcs=31412007436751&bce=&stpt=1&mode=1 at script/ShelfLister_Lister.pl line 32.
 Carp::croak at C:/strawberry/perl/lib/Carp.pm line 100
 HTML::TagParser::fetch at HTML/TagParser.pm line 261
 HTML::TagParser::new at HTML/TagParser.pm line 239
 main::addBook at script/ShelfLister_Lister.pl line 32
 <Key-Return>
 (command bound to event)

関連するプログラム コードは次のとおりです。

#!/user/bin/perl
use strict;
use warnings;
use Tk;
use Tk::MListbox;
use LWP::Simple;
use URI::Fetch;
use Encode::Byte;
use HTTP::Response;
use HTML::TagParser;
use Spreadsheet::WriteExcel;

my ($callNumber, $title, $html, $numItems);
my $savetypes = [['Excel Files', '.xls'], ['Comma-Separated Files', '.csv'], ['Text Files', '.txt']];
my $mw = new MainWindow;
$mw->title("Barcode Lister");
$mw->Label(-text=>'Choose Books')->grid(-row=>1, -column=>1, -columnspan=>2, -pady=>10);
my $barcode = $mw->Entry(-width=>50)->grid(-row=>2, -column=>1, -pady=>5, -padx=>[5, 10]);
my $add = $mw->Button(-text=>'Add Record', -command=>\&addBook, -width=>15)->grid(-row=>2, -column=>2, -pady=>5);
my $listFrame = $mw->Frame(-bd=>2, -relief=>"sunken")->grid(-row=>3, -column=>1, -padx=>[5, 10], -pady=>5);
my $list = $listFrame->Scrolled(qw(MListbox -background white -scrollbars oe))->pack(-expand=>1, -fill=>"both");
$list->columnInsert('end', -text=>"Call number", -width=>23);
$list->columnInsert('end', -text=>"Title", -width=>25);
my $delete = $mw->Button(-text=>'Delete Record', -command=>\&removeBook, -width=>15)->grid(-row=>3, -column=>2, -pady=>5);
my $export = $mw->Button(-text=>'Export List', -command=>\&exportList, -width=>15)->grid(-row=>4, -column=>1, -columnspan=>2, -pady=>5);
$barcode->bind('<Return>'=>\&addBook);
$barcode->focus;

MainLoop;

sub addBook{
    $html = HTML::TagParser->new('https://i-share.carli.illinois.edu/uis/cgi-bin/shelflister.cgi?search=s1&bcs=' . $barcode->get() . '&bce=&stpt=1&mode=1');
    $title = $html->getElementsByClassName('listLine');
    if (ref $title){
        $html = HTML::TagParser->new('https://i-share.carli.illinois.edu/uis/cgi-bin/shelflister.cgi?search=s1&bcs=' . $barcode->get() . '&bce=&stpt=1&mode=2');
        $list->insert("end", [$title->innerText(), $html->getElementsByClassName('listLine')->innerText()]);
        $barcode->delete(0, 'end');
    }
    else{
        $mw->messageBox(-title=>'Error', -message=>"Barcode not found.", -type=>'Ok', -icon=>'error', -default=>'ok');
    }
}

これを .exe として機能させる方法について何か考えがある人はいますか?

4

1 に答える 1

1

おそらくURI::Fetch->errstr、失敗に関するより多くの情報を提供するでしょう。HTML::TagParser にパッチを当てるか ( https://rt.cpan.org/Ticket/Display.html?id=86698を参照)、または HTML::TagParser 関連のコード行を にラップしてeval { }errstrエラーで自分自身を機能させます。

于 2013-07-04T10:05:28.803 に答える