Upgrade youtube-dl to version 2021.04.21
[sunny256-utils.git] / encap
blob440b3474d1e0d5e1cc056713c01d1c92f6eb14b7
1 #!/usr/bin/env perl
3 #=======================================================================
4 # encap
5 # File ID: d4e109b0-5d38-11df-ab05-90e6ba3022ac
6 # Encapsulate stdin in XML tags.
7 #=======================================================================
9 use strict;
10 use warnings;
12 defined($ARGV[0]) || ($ARGV[0] = "l");
13 for my $Elem (@ARGV) {
14 print("<$Elem>");
16 print(join("", <STDIN>));
17 for my $Elem (reverse @ARGV) {
18 print("</$Elem>");