# HG changeset patch
# User František Kučera <franta-hg@frantovo.cz>
# Date 1336392326 -7200
# Node ID a594ee3c93a58f4fb5d7951ff0dff351c050644c
# Parent  131d2652b2412dc883ad78a5b56dbdfbd09b9666
Perlovský skript pro výpis /etc/fstab v XML formátu.

diff -r 131d2652b241 -r a594ee3c93a5 perl/perl-fstab.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/perl/perl-fstab.pl	Mon May 07 14:05:26 2012 +0200
@@ -0,0 +1,48 @@
+#!/usr/bin/perl
+
+# Vypíše /etc/fstab ve formě XML souboru.
+# 
+# Závislosti:
+#	aptitude install libxml-writer-perl
+
+use strict;
+use warnings;
+
+use IO::String;
+use XML::Writer;
+
+my $xml;
+my $output = new IO::String->new($xml);
+my $writer = new XML::Writer(	OUTPUT => $output,
+								DATA_MODE => 1,
+								DATA_INDENT => "	");
+
+$writer->xmlDecl("UTF-8");
+$writer->startTag("fstab");
+
+my $fstab;
+open($fstab, "<", "/etc/fstab");
+while (my $r = <$fstab>) {
+	if ($r !~ /^\x23/ && $r =~ /^(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)$/) {
+		$writer->startTag("bod");
+		$writer->dataElement("zařízení", "$1");
+		$writer->dataElement("přípojnýBod", "$2");
+		$writer->dataElement("souborovýSystém", "$3");
+
+		$writer->startTag("volby");
+		my @volby = split(",", $4);
+		foreach my $volba (@volby) {
+			$writer->dataElement("volba", "$volba");
+		}
+		$writer->endTag();
+
+		$writer->dataElement("dump", "$5");
+		$writer->dataElement("pass", "$6");
+		$writer->endTag();
+	}
+}
+
+$writer->endTag();
+print $xml;
+print "\n";
+