nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

Parse DCT for structure

System

Does anyone have a script that will parse a DCT file to show the structure? For instance pass the path to a DCT on the command line and return something like:

/containername1/replicantname1/itemname1
/containername1/replicantname1/itemname2
/containername2/itemname3

etc.

Thanks,

-John

Find more posts tagged with

Comments

Adam Stoller

How about something like this:

use XML:arser;
my $dctName = shift;
my $xpath = '';

my $p = new XML:arser(Handlers => {Start => \&handle_start, End => \&handle_end});

$p->parsefile($dctName);
sub handle_start{
    my($self, $element, %attr) = @_;
    $xpath .= "/" . $attr{name} if ($element eq "item");
}
sub handle_end{
    my($self, $element) = @_;
    if ($element eq "item"){
        print "$xpath\n";
        $xpath =~ s|/[^/]*$||;
    }
}

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com

Migrateduser

Thanks, two small changes to better handle containers. Now what I really need is something that takes all the relevant details of a DCT and creates a .xls...

use XML: Smiley Tongue

arser;

my $dctName = shift;
my $xpath = '';
my $p = new XML: Smiley Tongue

arser( Handlers => { Start => \&handle_start, End => \&handle_end});
$p->parsefile( $dctName );

sub handle_start
{
my( $self, $element, %attr ) = @_;
$xpath .= "/" . $attr{name} if ($element =~ m#^item|container$# );
}

sub handle_end
{
my($self, $element) = @_;

if ( $element eq "item" )
{
print "$xpath\n";
}

if ( $element =~ m#^item|container$# )
{
$xpath =~ s|/[^/]*$||;
}
}

Adam Stoller

There are modules for writing XLS files I believe - however, at the very least you can always write out a CSV file named "foo.xls" and Excel will read it just fine.

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com