in reply to Re: Read the lines until a string exists in the array
in thread Read the lines until a string exists in the array

#!/usr/bin/perl
use strict;
use warnings;

my $fh;
my $tag;
my $tag1;
 my %hash;
my @metadata_tags;
while(<DATA>){
    chomp $_;
    if(/^{(.*)}/) {
        $tag = $1;
push(@metadata_tags,$tag);
    } else {
        if($tag eq 'FILE') {
                if(defined($fh)){
                print $fh "</ROOT>";
                close($fh);
                }
#Convert Array to hash
my %hash=();
my $ctr = 1;
$hash{$ctr++}=$_ foreach (@metadata_tags);

            my $filename = $_;
            open($fh, '>', "$filename.xml") or die "$filename: $!";
            print $fh '<?xml version="1.0"?>',"\n";
            print $fh "<ROOT>\n";
            print $fh "<FILE>$filename</FILE>\n";
        } elsif(defined($fh)) {
                if($_ ne ''){    #### Remove the blnak lines
            print $fh "<$tag>$_</$tag>\n";
                }
        }
    }
}
exit(0);
__DATA__
{FILE}
sourcetag1
{NUMBER}
00000

{SOURCE}
source1
{KEYWORD}
{AUTHOR}
author1
staff1
{HEADLINE}
DISPOSABLE DECOR: THE CUTTING EDGE DULLS FAST\
STYLE AT A SPEED
USUALLY ASSOCIATED WITH WARDROBE ITEMS.

{FILE}
sourcetag2
{NUMBER}
00002
{SOURCE}
sourcenam2
{KEYWORD}
{AUTHOR}
author2
staff2

[download]
I have converted an array to hash. How to read the data until the variable exists in an array. so that the output looks as below 
<?xml version="1.0"?>
<ROOT>
<FILE>sourcetag1</FILE>
<NUMBER>00000</NUMBER>
<SOURCE>source1</SOURCE>
<AUTHOR>author1</AUTHOR>
<AUTHOR>staff1</AUTHOR>
<HEADLINE>DISPOSABLE DECOR: THE CUTTING EDGE DULLS FAST\ STYLE AT A SP
+EED USUALLY ASSOCIATED WITH WARDROBE ITEMS.</HEADLINE>
</ROOT>

[download]

Replies are listed 'Best First'.
Re^3: Read the lines until a string exists in the array
by rovf (Priest) on Aug 14, 2009 at 09:21 UTC
    How to read the data until the variable exists in an array

    I guess you mean until the variable exists in a hash, because your question about testing the existence in an array was already answered. You can test whether a key exists in a hash using the - surprise, surprise! - exists function. If you want to know whether a certain value exist in the hash, use values, which gives you an array of the values, and see whether your string exists in that array.

    BTW, your usage of the hash $ctr looks funny to me. As far I can see, your keys of the hash are just the numbers 1,2,3..., so from a usage point of view, your hash is not different from an array (only that you start counting by 1 instead of 0).

    -- 
    Ronald Fischer <ynnor@mm.st>
[reply]
[d/l]
[select]
      print $fh "<$tag>$_</$tag>\n"; I have to print the output of 
      <AUTHOR>author1</AUTHOR>
<AUTHOR>staff1</AUTHOR>
<HEADLINE>DISPOSABLE DECOR: THE CUTTING EDGE DULLS FAST\</HEADLINE>
<HEADLINE>STYLE AT A SPEED</HEADLINE>
<HEADLINE>USUALLY ASSOCIATED WITH WARDROBE ITEMS.</HEADLINE>

      [download]
      to 
      <AUTHOR>author1 staff1<AUTHOR>
<HEADLINE>DISPOSABLE DECOR: THE CUTTING EDGE DULLS FAST\ STYLE AT A SP
+EED SUALLY ASSOCIATED WITH WARDROBE ITEMS.</HEADLINE>

      [download]
      So wanted to store the value of $_ until it reads some value which exists in an array. So that I may get the result which I wanted
[reply]
[d/l]
[select]
        For getting this result, I would approach it differently. I would define a hash, %tags, which is initially empty. Whenever you encounter a tag, say AUTHOR, with some content, say 'author1', you have have two cases:
        1. If AUTHOR does not exist yet in your hash, create a new entry with AUTHOR as a key, and 'author1' as a value.
        2. If AUTHOR already exists in your hash, just append to the existing string your new value (separated by a space).

        -- 
        Ronald Fischer <ynnor@mm.st>
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom