Przeglądaj źródła

Changed to filter-like (stdin/stdout) behavior

Alois Mahdal 11 lat temu
rodzic
commit
bad26a7836
2 zmienionych plików z 7 dodań i 17 usunięć
  1. 4
    12
      bin/pl2yml
  2. 3
    5
      bin/yml2pl

+ 4
- 12
bin/pl2yml Wyświetl plik

2
 
2
 
3
 use strict;
3
 use strict;
4
 use warnings;
4
 use warnings;
5
-use YAML::Tiny;
5
+use YAML;
6
 
6
 
7
-my $file = shift @ARGV
8
-    or &usage;
7
+my $string = join "", <>;
8
+my $var = eval $string;
9
 
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"; }
10
+print Dump($var);

+ 3
- 5
bin/yml2pl Wyświetl plik

2
 
2
 
3
 use strict;
3
 use strict;
4
 use warnings;
4
 use warnings;
5
-use YAML::Tiny;
5
+use YAML;
6
 use Data::Dumper;
6
 use Data::Dumper;
7
 
7
 
8
-my $file = shift @ARGV
9
-    or &usage;
8
+my $string = join "", <>;
10
 
9
 
11
-my $data = YAML::Tiny->read($file)
12
-    or die "cannot read $file: " . YAML::Tiny->errstr . "\n";
10
+my $data = Load($string);
13
 
11
 
14
 print Dumper($data);
12
 print Dumper($data);
15
 
13