Re: Using regular expressions to insert tags

[Johan Vromans]

Sriram Rajagopalan <[EMAIL PROTECTED]> writes:

> 1     23      555     34      Corporation     Index   Sediment
>
> This has to be tagged as:
> <no>1</no><code>23</code><set>555</set><id>34</id><status>Corporation</statu
> s><value>Index</value><type>Sediment</type>

  #!/usr/bin/perl

  use strict;
  use warnings;

  # These are the desired tags.
  my @tags = qw(no code set id status value type);

  # The input.
  my $line = "1 23      555     34      Corporation     Index   Sediment";

  # Split into fields.
  my @flds = split(/\t/, $line);

  # Process the tags, mapping each with an actual value into a result array, 
and join.
  my $result = join("",
                    map { "<$_>".shift(@flds)."</$_>"} @tags);

  # Show it.
  print $result, "\n";

Hapy hacking,

-- Johan