Bloggið hans Dags

Besøk

Et par bilder fra da jeg fikk besøk fra Tore og Kine.

Her er da jeg da og leter gjennom musikksamlingen etter noe å sette på (amarok på skjermen).

Kine og Tore i sofaen min.

Og alt rotet. De kom da en dag tidligere en jeg forventet. Grunnet latskap og mye å gjøre så var det temmelig mye rot på hybelen. Jeg hadde omtrent to minutt på meg fra jeg kom hjem, til de kom på besøk. De brukte jeg da til å kaste mest mulig opp trappen, i et forsøk på å gjøre rotet mindre synlig. Det fungerte bare delvis (som kan ses på bildene)

Ah, det er slik det gjøres

På tampen av hvert semester er korridoren på Institutt for sosiologi og statsvitenskap fylt til trengsel av høyrøstet ungdom. De fleste er lettet for de har skrevet en god semesteroppgave og fått den godkjent. Andre har kun skrevet stil. Stiler duger ikke. Stilenes forfattere klumper seg sammen i krokene i bitter visshet om at nå får de ikke gå opp til eksamen!

Slik begynner da guiden som jeg ble tilrådet å lese. Hvert semester lærer man noe nytt, dette semesteret lærte jeg hvordan man ikke skal skrive en semesteroppgave.

Egentlig ville jeg gjerne ha sitt den guiden før, men nå er bedre en senere. Men nå var ikke så bra det heller, nå sitter jeg nemlig med et valg mellom å bruke resten av uken på å omskrive semesteroppgaven til fredag, eller lese til eksamen som jeg har på lørdag.

Perl - XML::Writer output into a variable

This was sort of unclear in the documentation, so I’m posting this here for lucky googlers.

XML::Writer accepts OUPTUT as parameter in the constructor, for example: new XML::Writer(OUTPUT => $output). The documentation says If a string reference is passed, it will capture the generated XML.

This string reference talked about is not a normal scalar reference. For instance, this will NOT work:

 	my $xml = '';
	my $wr = new XML::Writer(OUTPUT => \\$xml)

The variable you wish to put the XML output into has to be wrappet into an IO::String object, like this:

	my $xml = '';
	my $output = IO::String->new($xml);
	my $wr = new XML::Writer(OUTPUT => $output);

In this example, the resulting XML output can be found in $xml.

This seems overly complicated to me. I hope that a toString method will be added in the feature, so I won’t have to depend on, and bundle the IO::String from CPAN.

Here is a full example of XML::Writer in use.

sub _create_xml($$) {
	my $self = shift;
	my $hosts = $self->{'hosts'};
	my $xml = '';
	my $output = IO::String->new($xml);
	my $wr = new XML::Writer(OUTPUT => $output, DATA_MODE => 1, DATA_INDENT => 2);

	$wr->startTag('result');
	foreach my $host (@$hosts) {
		$wr->startTag('host',
			addr => $host->{'addr'},
			name => $host->{'name'},
			workgroup => $host->{'workgroup'} );

		foreach my $share (@{$host->{'shares'}}) {
			$wr->dataElement('share', $share);
		}

		$wr->endTag('host');
	}
	$wr->endTag('result');
	return $xml;
}

Loksins helgi

Hefur verið erfið vika, aðalega af því að ég hef haft erfiða semesteroppgave andandi niður í hnakkan alla vikuna. Það hjálpaði ekki að hafa verkefni í tvemur öðrum fögum líka. En það virðist allt hafa reddast.

Annars fékk ég heimsókn af vini mínum Tore í dag, og kærustu hans, Kine. Hann er hér í Trondheim aðarlega til að heimsækja bróður sinn, en stoppði við hér.

Kine teiknaði þessa mind handa mér til að setja upp á vegg

Ég fékk svo að enda dægin með alminilegri lyftingaræfingum. Þar með er ég vel þreittur í bæði huga og vöðvum og tilbúin til að sofa vel í nótt.