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; } } }

Add a node to dcr

cdoloriert

[PHP]I have a several xml files like this, I wanna add a node inside object_info called localId.

20080608125102657
1
1

I was trying something like this: Perl Code

my $dir = "some location";
opendir(DIR, $dir) || die "Die";
my @files = readdir(DIR);

closedir(DIR);

foreach my $f(@files){

some logic here
}

Any suggestions?

Thanks in advance[/PHP]

Find more posts tagged with

Comments

nipper

and what happens ?

FYI, READDIR returns current and parent dir (.. and .) so you may need something like this:

if (($f=~ m|^\.\.$|)||($f=~ m|^\.$|)){next;}

Adam Stoller

I have a several xml files like this, I wanna add a node inside object_info called localId.

<?xml version="1.0" encoding="UTF-8"?>
<object>
  <object_info>
    <ID>20080608125102657</ID>
    <content_typeid>1</content_typeid>
    <chk_old>1</chk_old>
    </object>
</object_info>

I was trying something like this: Perl Code

my $dir = "some location";
opendir(DIR, $dir) || die "Die";
my @files =  grep { ! -d "$dir/$_" } readdir(DIR);
closedir(DIR);
s|^|$dir/| foreach(@files);
foreach my $f(@files){
    some logic here 
}

Any suggestions?

Thanks in advance

I'm assuming the errors in the XML are just in your forum posting and not in the actual file.

Try making the change to your code shown above - that way your

@files

array will only contain files and not directories, and the entries will be full path references to the files (alternatively, remember to include "

$dir/$f

" inside the loop when you want to reference the actual file as opposed to just its name)

cdoloriert

Thanks a lot, that's really helplful. However, I'm a newbie in perl and xml so what I want to know is how to read the file as xml file, add a child with a value for example 12 to the

 node, save the changes; for every file in the directory.
Any suggestions will be appreciated.

Thanks in advance.

Adam Stoller

Thanks a lot, that's really helplful. However, I'm a newbie in perl and xml so what I want to know is how to read the file as xml file, add a child with a value for example 12 to the node, save the changes; for every file in the directory. Any suggestions will be appreciated. Thanks in advance.

Get some Perl books from the library or book store.
Search the forums - this kind of thing has been posted about and responded to a number of times.
Read the perldoc's for the modules you think might help you.
Experiment

cdoloriert

Hi,

You were right, I experiemented with several function and found s/original/replacement function to do it for me very effeciently for all the files in that directory.

Thank you for you help