Блог

Я пытаюсь создать документ Open Office с использованием PERL и OpenOffice::OODoc, и я хочу, чтобы полученный документ был в альбомной ориентации.

Я попытался просмотреть OpenOffice::OODoc::Стили, и лучшее, что у меня получилось, это: switchPageOrientation(page); но я не знаю, что page это такое.

Поэтому я собрал следующий код:

 #!/usr/bin/perl -w use strict; use Data::Dumper; use OpenOffice::OODoc; my $docFile = "../resources/landscape.odt";  my $doc = odfDocument( file =gt; $docFile,  create =gt; 'text' ); my $pageLayout = $doc-gt;updatePageLayout(  "LandscapeStyle",  properties =gt; {  'fo:margin-bottom' =gt; '0.7874in',  'fo:page-width' =gt; '11in',  'style:footnote-max-height' =gt; '0in',  'style:shadow' =gt; 'none',  'fo:margin-left' =gt; '0.7874in',  'fo:margin-right' =gt; '0.7874in',  'fo:page-height' =gt; '8.5in',  'style:num-format' =gt; '1',  'style:print-orientation' =gt; 'landscape',  'style:writing-mode' =gt; 'lr-tb',  'fo:margin-top' =gt; '0.7874in'  } ); $doc-gt;switchPageOrientation($pageLayout); $doc-gt;appendParagraph( text =gt; "Testing",  style =gt; $pageLayout );  $doc-gt;save; print ""$docFile" is saved.n"; print "Done."; exit 0;  

На выходе получается:

 Odd number of elements in hash assignment at C:/Strawberry/perl/site/lib/OpenOffice/OODoc/Styles.pm line 1301. Use of uninitialized value in list assignment at C:/Strawberry/perl/site/lib/OpenOffice/OODoc/Styles.pm line 1301. "../resources/landscape.odt" is saved. Done.`  The document is created but not in landscape, rather within the regular portrait orientation. Does anyone know what page is, and how I can get it to change my document?  Any ideas?