Сообщество IT-специалистов
Ответы на любые вопросы об IT
Профессиональное развитие в IT
Удаленная работа для IT-специалистов
unzip -p ~/Document.docx word/document.xml |\ perl -0e 'use XML::LibXML; use open ":encoding(utf8)"; open($fh, "</dev/stdin"); $dom = XML::LibXML->load_xml(IO => $fh); foreach ($dom->findnodes("//w:hyperlink")) { print $_->findvalue(".")."\n"; }'