{"id":3430,"date":"2023-11-30T20:34:16","date_gmt":"2023-12-01T05:34:16","guid":{"rendered":"https:\/\/crm270s.wordpress.com\/?p=3430"},"modified":"2023-11-30T20:34:16","modified_gmt":"2023-12-01T05:34:16","slug":"extraction","status":"publish","type":"post","link":"https:\/\/crm270s.mycpamytax.com\/?p=3430","title":{"rendered":"extraction, xml export"},"content":{"rendered":"\n
use strict;
use warnings;
use XML::LibXML;
use Text::CSV;

# Replace 'your_xml_file.xml' with the path to your XML file
my $xml_file = 'title.xml';

# Create an XML::LibXML parser
my $parser = XML::LibXML->new;

# Parse the XML file
my $doc = $parser->parse_file($xml_file);

# Find all <title> tags in the XML
my @titles = $doc->findnodes('\/\/title');

# Create a Text::CSV object to write to a CSV file
my $csv = Text::CSV->new({ binary => 1, eol => \"\\n\" });

# Open the CSV file for writing
open my $csv_fh, '>', 'oriental_medicine_seoul.csv' or die \"Failed to open CSV file: $!\";

# Write header row to the CSV file
$csv->print($csv_fh, [\"Title\"]);

# Extract and write the text within each <title> tag to the CSV file
foreach my $title (@titles) {
    my $title_text = $title->to_literal;
    $csv->print($csv_fh, [$title_text]);
}

# Close the CSV file
close $csv_fh;

# If no <title> tags are found
if (!@titles) {
    print \"No title tags found in the XML.\\n\";
} else {
    print \"Extraction complete. Titles saved to 'oriental_medicine_seoul.csv'.\\n\";
}
<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_et_pb_use_builder":"","_et_pb_old_content":"","_et_gb_content_width":"","footnotes":""},"categories":[26],"tags":[],"class_list":["post-3430","post","type-post","status-publish","format-standard","hentry","category-codes"],"_links":{"self":[{"href":"https:\/\/crm270s.mycpamytax.com\/index.php?rest_route=\/wp\/v2\/posts\/3430","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/crm270s.mycpamytax.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/crm270s.mycpamytax.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/crm270s.mycpamytax.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/crm270s.mycpamytax.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=3430"}],"version-history":[{"count":0,"href":"https:\/\/crm270s.mycpamytax.com\/index.php?rest_route=\/wp\/v2\/posts\/3430\/revisions"}],"wp:attachment":[{"href":"https:\/\/crm270s.mycpamytax.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3430"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/crm270s.mycpamytax.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3430"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/crm270s.mycpamytax.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3430"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}