Archive-Name: perl-faq/moderated/welcome
Comp-lang-perl-moderated-archive-name: welcome
Posting-Frequency: weekly
Version: $Id: FAQ,v 1.55 2008/03/03 15:47:27 gbacon Exp $
URL: http://perl.plover.com/clpm/FAQ
Maintainer: Greg Bacon hiwaay.net>
Copyright-Notice: see Section 14

[ A recent copy of this document can be obtained via anonymous FTP as
rtfm.mit.edu:/pub/faqs/perl-faq/moderated/welcome. If you do not have
access to anonymous FTP, you can get a copy by sending email to
mail-server@rtfm.mit.edu with the command
"send faqs/perl-faq/moderated/welcome" in the message. ]

------------------------------------------------------------------------

Subject: 0. What is this document?

This document contains information for everyone interested in posting to
or simply reading the comp.lang.perl.moderated Usenet newsgroup.

This document DOES NOT answer any questions you might have about Perl.
For a list of Frequently Asked Questions about the Perl language itself,
please see

I have a program in which I am trying to create a scrollbar that can
scroll multiple frames. Each frame has its own scrollbar using
Tk::Pane. I have found code online which provides a solution if I was
using Listboxes but not for Frames. Below is my code:

#!/usr/bin/perl
# Multiple Widgets with one scrollbar.pl

use Tk;
require Tk::Pane;

$mw = MainWindow->new();
$mw->title("One Scrollbar/Three Listboxes");
$mw->Button(-text => "Exit",
-command => sub { exit })->pack(-side => 'bottom');

$scroll =$mw->Scrollbar();

Archive-Name: perl-faq/moderated/welcome
Comp-lang-perl-moderated-archive-name: welcome
Posting-Frequency: weekly
Version: $Id: FAQ,v 1.55 2008/03/03 15:47:27 gbacon Exp $
URL: http://perl.plover.com/clpm/FAQ
Maintainer: Greg Bacon hiwaay.net>
Copyright-Notice: see Section 14

[ A recent copy of this document can be obtained via anonymous FTP as
rtfm.mit.edu:/pub/faqs/perl-faq/moderated/welcome. If you do not have
access to anonymous FTP, you can get a copy by sending email to
mail-server@rtfm.mit.edu with the command
"send faqs/perl-faq/moderated/welcome" in the message. ]

------------------------------------------------------------------------

Subject: 0. What is this document?

This document contains information for everyone interested in posting to
or simply reading the comp.lang.perl.moderated Usenet newsgroup.

This document DOES NOT answer any questions you might have about Perl.
For a list of Frequently Asked Questions about the Perl language itself,
please see

I'm writing a program that needs to extract a clump of XML metadata
stored inside of a noncompliant HTML file and then perform a number of
operations on that metadata. (Specifically, for those curious, this
is part of a Mobipocket .prc to IPDF .epub ebook converter.)

The HTML file in question has no doctype declaration, and XHTML
entities may be found in the metadata portion. In particular, ©
is the first entity that XML::Parser will choke on in my current test
data.

Could someone please provide me with an example of how to get
XML::Twig to recognize XHTML entities? (Or even just © to get me
started?) I came up with a workaround involving slurping the input
file and using a regular expression to split the metadata out into a
temporary file, then run tidy on it, but it's something of an evil
hack, given that I have to just read the results of that back into
XML::Twig anyway.

My last attempt at getting XML::Twig to read this looks like this:

Archive-Name: perl-faq/moderated/welcome
Comp-lang-perl-moderated-archive-name: welcome
Posting-Frequency: weekly
Version: $Id: FAQ,v 1.55 2008/03/03 15:47:27 gbacon Exp $
URL: http://perl.plover.com/clpm/FAQ
Maintainer: Greg Bacon hiwaay.net>
Copyright-Notice: see Section 14

[ A recent copy of this document can be obtained via anonymous FTP as
rtfm.mit.edu:/pub/faqs/perl-faq/moderated/welcome. If you do not have
access to anonymous FTP, you can get a copy by sending email to
mail-server@rtfm.mit.edu with the command
"send faqs/perl-faq/moderated/welcome" in the message. ]

------------------------------------------------------------------------

Subject: 0. What is this document?

This document contains information for everyone interested in posting to
or simply reading the comp.lang.perl.moderated Usenet newsgroup.

This document DOES NOT answer any questions you might have about Perl.
For a list of Frequently Asked Questions about the Perl language itself,
please see

Archive-Name: perl-faq/moderated/welcome
Comp-lang-perl-moderated-archive-name: welcome
Posting-Frequency: weekly
Version: $Id: FAQ,v 1.55 2008/03/03 15:47:27 gbacon Exp $
URL: http://perl.plover.com/clpm/FAQ
Maintainer: Greg Bacon hiwaay.net>
Copyright-Notice: see Section 14

[ A recent copy of this document can be obtained via anonymous FTP as
rtfm.mit.edu:/pub/faqs/perl-faq/moderated/welcome. If you do not have
access to anonymous FTP, you can get a copy by sending email to
mail-server@rtfm.mit.edu with the command
"send faqs/perl-faq/moderated/welcome" in the message. ]

------------------------------------------------------------------------

Subject: 0. What is this document?

This document contains information for everyone interested in posting to
or simply reading the comp.lang.perl.moderated Usenet newsgroup.

This document DOES NOT answer any questions you might have about Perl.
For a list of Frequently Asked Questions about the Perl language itself,
please see

I'm contemplating getting Term::Size to cooperate with PerlIO. It's
just an xsub which does an ioctl, and currently it's setup to take a
FILE* and then use fileno() to get the fd. But with the debian perl
5.10.0 the typemap for FILE* calls PerlIO_findFILE, and that func has
the unhappy effect of knocking out any :utf8 flag on the stream. Eg.

use strict;
use warnings;
use Term::Size;
binmode STDOUT, ':utf8' or die;
print "\x{263A}\n";
Term::Size::chars(\*STDOUT);
print "\x{263A}\n";

=> Wide character in print at foo.pl line 7

I get the effect I want by changing to PerlIO* and PerlIO_fileno, but
ppport.h warns that PerlIO_fileno (and PerlIO_stdin) aren't portable
before 5.7.3, even with ppport.h in use.

Is there something hiding in the docs on this sort of thing?

Archive-Name: perl-faq/moderated/welcome
Comp-lang-perl-moderated-archive-name: welcome
Posting-Frequency: weekly
Version: $Id: FAQ,v 1.55 2008/03/03 15:47:27 gbacon Exp $
URL: http://perl.plover.com/clpm/FAQ
Maintainer: Greg Bacon hiwaay.net>
Copyright-Notice: see Section 14

[ A recent copy of this document can be obtained via anonymous FTP as
rtfm.mit.edu:/pub/faqs/perl-faq/moderated/welcome. If you do not have
access to anonymous FTP, you can get a copy by sending email to
mail-server@rtfm.mit.edu with the command
"send faqs/perl-faq/moderated/welcome" in the message. ]

------------------------------------------------------------------------

Subject: 0. What is this document?

This document contains information for everyone interested in posting to
or simply reading the comp.lang.perl.moderated Usenet newsgroup.

This document DOES NOT answer any questions you might have about Perl.
For a list of Frequently Asked Questions about the Perl language itself,
please see

Archive-Name: perl-faq/moderated/welcome
Comp-lang-perl-moderated-archive-name: welcome
Posting-Frequency: weekly
Version: $Id: FAQ,v 1.55 2008/03/03 15:47:27 gbacon Exp $
URL: http://perl.plover.com/clpm/FAQ
Maintainer: Greg Bacon hiwaay.net>
Copyright-Notice: see Section 14

[ A recent copy of this document can be obtained via anonymous FTP as
rtfm.mit.edu:/pub/faqs/perl-faq/moderated/welcome. If you do not have
access to anonymous FTP, you can get a copy by sending email to
mail-server@rtfm.mit.edu with the command
"send faqs/perl-faq/moderated/welcome" in the message. ]

------------------------------------------------------------------------

Subject: 0. What is this document?

This document contains information for everyone interested in posting to
or simply reading the comp.lang.perl.moderated Usenet newsgroup.

This document DOES NOT answer any questions you might have about Perl.
For a list of Frequently Asked Questions about the Perl language itself,
please see

Archive-Name: perl-faq/moderated/welcome
Comp-lang-perl-moderated-archive-name: welcome
Posting-Frequency: weekly
Version: $Id: FAQ,v 1.55 2008/03/03 15:47:27 gbacon Exp $
URL: http://perl.plover.com/clpm/FAQ
Maintainer: Greg Bacon hiwaay.net>
Copyright-Notice: see Section 14

[ A recent copy of this document can be obtained via anonymous FTP as
rtfm.mit.edu:/pub/faqs/perl-faq/moderated/welcome. If you do not have
access to anonymous FTP, you can get a copy by sending email to
mail-server@rtfm.mit.edu with the command
"send faqs/perl-faq/moderated/welcome" in the message. ]

------------------------------------------------------------------------

Subject: 0. What is this document?

This document contains information for everyone interested in posting to
or simply reading the comp.lang.perl.moderated Usenet newsgroup.

This document DOES NOT answer any questions you might have about Perl.
For a list of Frequently Asked Questions about the Perl language itself,
please see