Browse Source

Added yml2pl.pl and pl2yml.pl

Alois Mahdal 11 years ago
parent
commit
e6fe0b05bc
2 changed files with 34 additions and 0 deletions
  1. 18
    0
      bin/pl2yml.pl
  2. 16
    0
      bin/yml2pl.pl

+ 18
- 0
bin/pl2yml.pl View File

@@ -0,0 +1,18 @@
1
+#!/usr/bin/perl
2
+
3
+use strict;
4
+use warnings;
5
+use YAML::Tiny;
6
+
7
+my $file = shift @ARGV
8
+    or &usage;
9
+
10
+do $file;
11
+
12
+my $yaml = YAML::Tiny->new;
13
+
14
+$yaml->[0] = $VAR1;
15
+
16
+print $yaml->write_string;
17
+
18
+sub usage { print "usage: pl2yml FILE\n"; }

+ 16
- 0
bin/yml2pl.pl View File

@@ -0,0 +1,16 @@
1
+#!/usr/bin/perl
2
+
3
+use strict;
4
+use warnings;
5
+use YAML::Tiny;
6
+use Data::Dumper;
7
+
8
+my $file = shift @ARGV
9
+    or &usage;
10
+
11
+my $data = YAML::Tiny->read($file)
12
+    or die "cannot read $file: " . YAML::Tiny->errstr . "\n";
13
+
14
+print Dumper($data);
15
+
16
+sub usage { print "usage: yml2pl FILE\n"; }