<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<p><font face="Times New Roman, Times, serif">Guten Tag,</font></p>
<p><font face="Times New Roman, Times, serif"><font face="Times New
Roman, Times, serif">ich benutze zwar kein LibreCat/Catmandu,
aber die zugrunde liegenden Perl-Module. Herr Voß vom GBV
meinte, dass ich <font face="Times New Roman, Times, serif">hier
Hilfe bekommen könnte.</font><br>
</font></font></p>
<p><font face="Times New Roman, Times, serif"><font face="Times New
Roman, Times, serif">Ich habe das Problem, dass Inhalte aus
einer INI-Datei zwar richtig in die Konsole und auch in
Dateien geschrieben werden, aber nicht wenn ich PICA<font
face="Times New Roman, Times, serif">::Wri<font face="Times
New Roman, Times, serif">ter einsetze. <br>
</font></font></font></font></p>
<p><font face="Times New Roman, Times, serif"><font face="Times New
Roman, Times, serif"><font face="Times New Roman, Times,
serif"><font face="Times New Roman, Times, serif">Laut Herrn
Voß liegt das daran, dass PICA::Writer intern mit Byte<font
face="Times New Roman, Times, serif">strings arbeitet.
Trotz zahlloser Versuche habe ich es nicht geschafft,
diese Werte entsprechend an PICA::Writer zu übergeben.
Finde dazu auch in der Dokumentation keine Hinweise<font
face="Times New Roman, Times, serif">, aber die
scheint eh nicht so aktuell zu sein.... </font><br>
</font></font></font></font></font></p>
<p><font face="Times New Roman, Times, serif"><font face="Times New
Roman, Times, serif"><font face="Times New Roman, Times,
serif"><font face="Times New Roman, Times, serif"><font
face="Times New Roman, Times, serif"><font face="Times
New Roman, Times, serif">Sowohl die Perl-Dateien, als
auch die Daten sind utf8 kodiert. <br>
</font></font></font></font></font></font></p>
<p><font face="Times New Roman, Times, serif"><font face="Times New
Roman, Times, serif"><font face="Times New Roman, Times,
serif"><font face="Times New Roman, Times, serif"><font
face="Times New Roman, Times, serif"><font face="Times
New Roman, Times, serif"><font face="Times New Roman,
Times, serif">Ein Beispielskript finden Sie unten, <font
face="Times New Roman, Times, serif">die Testdaten
sind im Anhang. <br>
</font></font></font></font></font></font></font></font></p>
<p><font face="Times New Roman, Times, serif"><font face="Times New
Roman, Times, serif"><font face="Times New Roman, Times,
serif"><font face="Times New Roman, Times, serif"><font
face="Times New Roman, Times, serif"><font face="Times
New Roman, Times, serif"><font face="Times New Roman,
Times, serif"><font face="Times New Roman, Times,
serif"><font face="Times New Roman, Times, serif">Wäre
<font face="Times New Roman, Times, serif">toll,
wenn jemand eine Idee hat. </font></font></font></font><br>
</font></font></font></font></font></font></p>
<p><font face="Times New Roman, Times, serif"><font face="Times New
Roman, Times, serif"><font face="Times New Roman, Times,
serif"><font face="Times New Roman, Times, serif"><font
face="Times New Roman, Times, serif"><font face="Times
New Roman, Times, serif"><font face="Times New Roman,
Times, serif">Viele Grüße,</font></font></font></font></font></font></font></p>
<p><font face="Times New Roman, Times, serif"><font face="Times New
Roman, Times, serif"><font face="Times New Roman, Times,
serif"><font face="Times New Roman, Times, serif"><font
face="Times New Roman, Times, serif"><font face="Times
New Roman, Times, serif"><font face="Times New Roman,
Times, serif"><font face="Times New Roman, Times,
serif">Cornelius Amzar</font></font><br>
</font></font></font></font></font></font></p>
<p>#!/usr/bin/perl<br>
#<br>
<br>
use strict;<br>
use utf8;<br>
use warnings;<br>
use feature qw(say);<br>
use Config::IniFiles;<br>
<br>
use PICA::Record;<br>
use PICA::Writer;<br>
use PICA::Field;<br>
<br>
my $config = Config::IniFiles->new( -file =>
"tests/test.ini", <br>
-default => 'General');<br>
my $writer = PICA::Writer->new('tests/out.pica', format =>
'normalized');<br>
my $field = new PICA::Field('021A');<br>
my $record = new PICA::Record();<br>
<br>
my $value = $config->val('General', 'param');<br>
my $value2 = $config->val('General', 'param2');<br>
</p>
<p># Ausgabe im Terminal klappt</p>
<p>say $value;<br>
say $value2;</p>
<p># Ausgabe in Datei klappt<br>
</p>
<p>open(my $fh, '>', output.txt');<br>
say $fh $value;<br>
close $fh;</p>
<p># Ausgabe im PICA::Writer klappt nicht, Umlaute sind kaputt. <br>
</p>
<p>$field->add('a', $value);<br>
$field->add('d', $value2);<br>
$field->add('x', 'test');<br>
<br>
$record->appendif($field);<br>
<br>
$writer->write('', $record);<br>
$writer->write('', $record);<br>
$writer->end();<br>
<br>
say "Pica file written";<br>
</p>
<div class="moz-signature">-- <br>
<p>Cornelius Amzar<br>
Bibliotheksservice-Zentrum Baden-Württemberg (BSZ)<br>
78457 Konstanz / Germany<br>
E-Mail: <a class="moz-txt-link-abbreviated" href="mailto:cornelius.amzar@bsz-bw.de">cornelius.amzar@bsz-bw.de</a><br>
<a class="moz-txt-link-freetext" href="http://www.bsz-bw.de">http://www.bsz-bw.de</a></p>
</div>
</body>
</html>