Автоматическое обнаружение ввода XML или обычного текста с файлом и STDIN с помощью Perl

Question

Каков наиболее простой способ обнаружения XML (с использованием XML :: LibXML/libxml2) или простого ввода текста с помощью Perl (5.18 или выше)?

У меня есть программа, которая может принимать текстовый ввод или вход XML, а вход XML может быть в произвольных кодировках. Входные данные либо из файла (ARGV), либо из STDIN. Когда только простой текст считается, следующий код достаточно:

local $/ = undef; 
my $text = <> || die; 

Это позволит получить весь входной файл или STDIN как текст, используя параметры кодирования по умолчанию.

Когда рассматривается только XML, следующий код может использоваться (для файла):

my $parser = XML::LibXML->new(); 
my $xml = $parser->load_xml(location => $ARGV[0]); 

Но что это лучший способ объединить два? Я хочу, чтобы libxml2 сделал первый треск на входе, а затем вернулся к тексту, если он терпит неудачу. Если я передаю IO => * STDIN напрямую, libxml2 будет потреблять вход, который потребуется программе позже, если libxml2 определяет, что вход не является XML.

(Примечание: если libxml2 определяет, что вход какой-то XML, но неправильный формат в некотором роде, то программа должна прекратить вместо отступая.)

Answer 1

use XML::LibXML; 

my $schema_file = 'test.xsd'; 
my $document = 'test.xml'; 

my $schema = XML::LibXML::Schema->new(location => $schema_file); 

my $parser = XML::LibXML->new; 
my $doc = $parser->parse_file($document); #Or handle STDIN 

eval { $schema->validate($doc) }; 
if ($@){ 
    #file failed to validate, handle as text below 
} 

В качестве альтернативы можно использовать Text::XML «s is_xml , is_well_formed_xml и создавать условные обозначения на их основе.