use strict; 
use XML::Rules; 
use Text::CSV_XS; 
use FileHandle; 
 
my $csv = Text::CSV_XS->new({eol => "\n"}); 
my $parser = XML::Rules->new( 
        rules => [ 
                _default => 'content', 
                Class => sub { 
                        $csv->print( $_[4]->{parameters}, [ 
                                map {$_[1]->{$_}} qw( 
                                        Subject Course Title Description Prequisites Corequisites Requisites LectureHours LaboratoryHours CreditHours Flags 
                                ) 
                        ]); 
                        return; 
                } 
        ] 
); 
 
open my $FH, '>&STDOUT'; 
open my $File, 'alpha31.xml'; 
print $FH "Subject,Course,Title,Description,Prequisites,Corequisites,LectureHours,LaboratoryHours,CreditHours,Flags\n"; 
 
$parser->parse( $File, $FH);

##</code><code>##

	

<Class> 
<Subject>AAH</Subject> 
<Course>119</Course> 
<Title>History of World Architecture I</Title> 
<Description>Comprehensive background as well as concentration on individual cultures and their architects from ancient to modern times. Discussion of architectures from around the world. Specific details and 
 expressions of more generalized theories and strategies will be explored.</Description> 
<LectureHours>3</LectureHours> 
<LaboratoryHours>0</LaboratoryHours> 
<CreditHours>3</CreditHours> 
<LectureHours>3</LectureHours> 
<LaboratoryHours>0</LaboratoryHours> 
<CreditHours>3</CreditHours> 
<Flags>(H)(C)</Flags> 
</Class> 
<Class> 
<Subject>AAH</Subject> 
<Course>120</Course> 
<Title>History of World Architecture II</Title> 
<Description>Comprehensive background as well as concentration on individual cultures and their architects from ancient to modern times. Discussion of architectures from around the world.Specific details and 
expressions of more generalized theories and strategies will be explored.</Description> 
<LectureHours>3</LectureHours> 
<LaboratoryHours>0</LaboratoryHours> 
<CreditHours>3</CreditHours> 
<LectureHours>3</LectureHours> 
<LaboratoryHours>0</LaboratoryHours> 
<CreditHours>3</CreditHours> 
<Flags>(H)(C) 
<Flags> 
</Class> 
<Class> 
<Subject>AAH</Subject> 
<Course>301</Course> 
<Title>Thinking About Art</Title> 
<Description>A course designed for those who find art pleasing, meaningful or significant and who want to extend the range of their sensibilities. Theories of art will be studied for insight, as well as for h 
istorical interest and continuity. Works of art will be studied for their intrinsic value, for their relation to ideas and events, and as cultural artifacts. Regular visits to area museums and galleries will 
be required.</Description> 
<Prerequisite>HUM 102, 104, or 106.</Prerequisite> 
<LectureHours>3</LectureHours> 
<LaboratoryHours>0</LaboratoryHours> 
<CreditHours>3</CreditHours> 
<Flags>(H)(C)</Flags> 
</Class> 
<Class> 
<Subject>AAH</Subject> 
<Course>322</Course> 
<Title>19th Century American Art and Culture</Title> 
<Description>This course explores the artistic history of the United States, from an agrarian society that developed into an industrialized nation with a distinguished national art. This broad chronological s 
urvey begins with the colonial art of Copley, Peale, West and Stuart, followed by the nation building iconography of the Hudson River School. The art of Mount and Bingham reflect antebellum culture, followed 
by Johnson in post-Civil War America on the eve of the Gilded Age. Finally, the course examines the realism of Homer and Eakins, defining a truly American iconography.</Description> 
<Prerequisite>HUM 102, 104, or 106.</Prerequisite> 
<LectureHours>3</LectureHours> 
<LaboratoryHours>0</LaboratoryHours> 
<CreditHours>3</CreditHours> 
<Flags>(H)(C)</Flags> 
</Class>