I am working on final year project, flunked it first time os all help is appreciated.

I have a corpus of dialogues in XML format. I am trying to extract the utterance, speaker and da from the XML doc. I have written a program to extract this info and put it in a perticular format so i can use the data.

Necessary Format reqd:

s(1,g).
da(1,acknowledge).
da(acknowledge,ready,1).
u(1,['Right'
]).

[download]

snippet of XML doc=

- <dialogues>
- <dialogue name="T:/amities/Data/SwitchBoard/ws97.tar/ws97\sw00utt\sw
+_0001_4325.utt" no="1">
- <turn no="1" speaker="A">
- <utt da="bc" id="utt1
- <![CDATA[ Okay.  
  ]]> 
  </utt>
- <utt da="qw" id="utt2">
- <![CDATA[ {D So, }
  ]]> 
  </utt>
  </turn>
- <turn no="2" speaker="B">
- <utt da="qy^d" id="utt1">
- <![CDATA[ [ [ I guess, +
  ]]> 
  </utt>
  </turn>

[download]

My Program.pl 

use XML::TreeBuilder;


my $file= 'swbd_50k_42tags.xml';
my $tree = XML::TreeBuilder->new();

$tree->parse_file($file);




foreach my $dialogue ($tree->find_by_tag_name ('dialogue')){
        
        
        $dialogue_name = $dialogue->attr_get_i('name');
        
        
    foreach my $turn ($dialogue->find_by_tag_name('turn')){
        
        $turn_no = $turn->attr_get_i('no');
        $turn_speaker = $turn->attr_get_i('speaker');    
        @speaker = ( ++$turn_no, $turn_speaker );

    foreach my $utt ($dialogue->find_by_tag_name('utt')){
        
        $da = $utt->attr_get_i('da');
    #    $id = $utt->attr_get_i('id');




    @statement = ('sb','sb');        #array of classified DA
    @Question = ( 'qy', 'qw', 'qy\^d' );    #array of classified DA
    @Acknowledge = ( 'b', 'bh', 'bk');    #array of classified DA
    @Answer = ( 'nn', 'ny');            #array of classified DA
    @Agreement = ('aa');            #array of classified DA

    


    if ($da eq "$statement[0]" or $da eq "$statement[1]") {     # chec
+king for DA class of utterance
        $da = Astatement;

    }       elsif ($da eq "$Question[0]" or $da eq "$Question[1]" or $
+da eq "$Question[2]")    { # checking for DA class of utterance
           $da = Question;

    }       elsif ($da eq "$Acknowledge[0]" or $da eq "$Acknowledge[1]
+" or $da eq "$Acknowledge[2]") { # checking for DA class of utterance
           $da = Acknowledgement;

    }       elsif ($da eq "$Answer[0]" or $da eq "$Answer[1]") {   # c
+hecking for DA class of utterance
           $da = Answer;

    }          elsif ($da eq "$Agreement[0]")   {            # checkin
+g for DA class of utterance
        
           $da = Agreement;
     } 
    
    
        $line = $utt->as_text;
        
        @line = split(/\s+ /, $line);
        
        $gram = substr($line, 0, 3);        #split utterance into n-gr
+ams of 1-4

    

    if ( $gram =~ /(I think|I believe|It seems|It\'s my opinion that|I
+ mean|Suppose|Of course|we|they|they say)/gi {
        
        $gram = $myda;
        $myda = Dstatement;
        
        

    }    elsif ( $gram =~ /(Do you|Do you have|Do you know|Is that|Hav
+e you|what|who\'s your|Does he|Does she|Are they|did you|how about|wh
+at|isn\'t|wasn\'t it|hasn\'t it|how)/gi {

        $gram = $myda;
        $myda = DQuestion;

    }    elsif ( $gram =~ /(exactly|definitely|yes|that\'s a fact|that
+\'s true|true)/gi    {
        
        $gram = $myda;
            $myda = DAgreement;

    }    elsif ( $gram =~ /(\{F oh \} really|Really|Is that right\?|\{
+F oh\} yeah|Is it|\{F oh\} do you|No \?|Did you|\{F oh} are you\?|was
+ it|Have you\?|\{F oh} is it \?|\{F oh} do you|uh\-huh yeah right|oh 
+yes|oh yeah|huh|sure|um|huh-huhokay|\{F oh} okay|oh|\{F oh}|i see|uh\
+-huh|all right|yeah|)/gi {
            
            
        
        $gram = $myda;
        $myda = DAcknowledgement;


    }    else ( $gram =~ /(yes|yeah|yep|uh\-huh|yes actually|i do|no|u
+m no|nope|uh actually no|probably not|but uh no)/gi {

        $gram = $myda;
        $myda = DAnswer;

    }

        @u = ( ++$turn_no, \[$line\] );
        @da = (++$turn_no, '$da' ) ;
        @myda = (++$turn_no, $da, $myda) 
    
    
        print 'speaker (@speaker)\n'; # reqd format
        print 'u (@u)\n';    # reqd format
        print 'da (@da)\n';    #reqd format
        print 'da (@myda)\n';    #reqd format


        }

    }
}

[download]

Error message=

syntax error at try2.pl line 67, near "/(I think|I believe|It seems|It
+\'s my opi
nion that|I mean|Suppose|Of course|we|they|they say)/gi {"<br>
syntax error at try2.pl line 74, near "}        elsif"<br>
syntax error at try2.pl line 79, near "}        elsif"<br>
syntax error at try2.pl line 84, near "}        elsif"<br>
syntax error at try2.pl line 92, near "}"<br>
Execution of try2.pl aborted due to compilation errors.

[download]

I dont know what it is, maybe i am just too much of a novice but i cant seem to get it right

20050318 Janitored by Corion: Added code tags

In reply to Lost JJC and XML by D'Femstar

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.