How can I retrieve data between tags, in Perl ?

Question

I'm developing a perl script.

This is my input string in a file new.txt:

<ID>1</ID>
<CLASS>One</CLASS>
<NAME>Saran</NAME>

This is my code which simply prints the three lines:

#!/usr/bin/perl 
open(FILEHANDLE1,"new.txt") or die "Can't Open: $!\n";
while($line=<FILEHANDLE1>)
{ 
print "$line";
}
close FILEHANDLE1;

I need it to display only the contents between the tag. The output should be:

1 One Saran

How should I retrive the data between tags? Is there any way by using regular expressions?

Answer 1

What have you tried? What specific problems are you having?

It looks like you might want something like this:

#!/usr/bin/perl

use strict;
use warnings;

$_ = 'Data1 some text Data2';

if (/Data1(.*)Data2/) {
  print "$1\n";
}

But your question is so vague that it's hard to be sure.

Answer 2

You cannot parse XML with regular expressions.

You should use an XML parser instead.

Answer 3

If your input file is really as you described, you can do something like :

#!/usr/bin/perl 

use warnings;
use strict;
open my $FILEHANDLE1, '<', "new.txt" 
     or die "Can't open file 'new.txt' for reading: $!";
while(my $line=<$FILEHANDLE1>) { 
    chomp $line;
    $line =~ s!^<(\w+)>(\w+)</\1>!$2 !;
    print $line;
}
print "\n";
close $FILEHANDLE1;

Always

use strict;

and

use warnings;

Use three args open and lexical handles.