Re: FW: :DOM::Parser question !
Ravi,
This seems like it ought to work--I do a lot of changing to an HTML file
using similar code:
# assume that $line contains the text you're working with--a line from a
file--then...
if ($line =~ /arg name = \sample\/) {
$line =~ s/true/false/;
}
HTH,
Deane
Ravinder Arepally [EMAIL PROTECTED]
Sent by: [EMAIL PROTECTED]
06/08/2004 12:07
To: '[EMAIL PROTECTED]'
[EMAIL PROTECTED]
cc: '[EMAIL PROTECTED]' [EMAIL PROTECTED]
Subject:FW: :DOM::Parser question !
All,
Any help regarding below problem is greatly appreciated.
My intention is to change value to true.
javaTask className = tool.update.languagepack.MergeConfig
arg name=sample value=false/
to
javaTask className = tool.update.languagepack.MergeConfig
arg name=sample value=true/
Thanks,
Ravi
-Original Message-
From: Ravinder Arepally
Sent: Monday, June 07, 2004 5:56 PM
To: [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Subject: XML::DOM::Parser question !
All,
I am trying to parse a XML file and change an element value.
Below is code of mine where I am doing this. However, setAttribute doesn't
work and it doesn't give any error message too.
I spent enough time and doesn't make sense to me. I get right value using
getAttribute('value).
XML file is also pasted at the end of this mail. Any help or pointer is
greatly appreciated.
Any suggestions in writing better code for this task is also appreciated.
Thank you,
Ravi.
---
my $udtTaskFile =
$depotLocation/updates/$udtBaseName/tasks/$udtBaseName._cs_udt.xml;
print (udtTaskfile is : $udtTaskFile \n); --- XML file which is
pasted at end of this mail.
Util::safeCopy($udtTaskFile, $udtTaskFile.time()); -- I have Util.pm
my $parser = new XML::DOM::Parser;
my $doc = $parser-parsefile($udtTaskFile);
my @taskList = $doc-getElementsByTagName('taskEntry');
foreach my $task (@taskList) {
if ($task-getAttribute('uniqueName') eq MergeConfig){
my $javaTask = $task-getElementsByTagName('javaTask');
if (! $javaTask) {
$log-write(ERROR: Couldn't find any Java tasks in
$udtTaskFile );
return Problem configuring installLPI. Couldn't find any
Java
Tasks in $udtTaskFile. ;
}
my $innerTask = $javaTask-item(0)-getElementsByTagName('arg');
if (! $innerTask) {
$log-write(ERROR: Couldn't find any languagepack tasks in
$udtTaskFile );
return Problem configuring installLPI. Couldn't find any
languagepack Tasks in $udtTaskFile. ;
}
my $value = $innerTask-item(0)-getAttribute('value');
print (value is $value \n); This prints
right value
$innerTask-item(0)-setAttribute('value', true); - This is
not
working. No error and it doesn't change value
}
}
--
!DOCTYPE harnessTaskList SYSTEM harnessTaskList.dtd
harnessTaskList extensionClassname =
tools.update.TaskHarnessExtForUDT
logCategory = update/info
!-- Task UDT
Runs the update delivery tool
--
taskEntry uniqueName = DiskSpace
description = Checks if the necessary space is
available on disk to proceed with update
logCategory = update/info
canRerun = true
javaTask className = tools.update.DiskSpace/
/taskEntry
taskEntry uniqueName = UDT
description = Runs the update delivery tool
dependency = DiskSpace
logCategory = update/info
canRerun = true
javaTask className = tools.update.UpdateDeliveryTool/
/taskEntry
taskEntry uniqueName = EnableLanguages
description = Install files for language pack.
dependency = UDT
canRerun = true
logCategory = lpi/info
javaTask className =
tool.update.languagepack.EnableLanguage/
/taskEntry
taskEntry uniqueName = MergeConfig
description = Merges language related files to
config.
dependency = UDT, EnableLanguages
logCategory = lpi/info
canRerun = true
javaTask className = tool.update.languagepack.MergeConfig
arg name=sample value=false/ --
This is the value I am trying to change
/javaTask
/taskEntry
/harnessTaskList
___
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: FW: :DOM::Parser question !
Thanks for your reply, Deane. It should work from the code, but I don't
understand why it isn't.
Annoying to me. Any pointers ?
-Ravi
_
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]
Sent: Tuesday, June 08, 2004 10:28 AM
To: Ravinder Arepally
Cc: '[EMAIL PROTECTED]';
[EMAIL PROTECTED]; '[EMAIL PROTECTED]'
Subject: Re: FW: :DOM::Parser question !
Ravi,
This seems like it ought to work--I do a lot of changing to an HTML file
using similar code:
# assume that $line contains the text you're working with--a line from a
file--then...
if ($line =~ /arg name = \sample\/) {
$line =~ s/true/false/;
}
HTH,
Deane
Ravinder Arepally [EMAIL PROTECTED]
Sent by: [EMAIL PROTECTED]
06/08/2004 12:07
To:'[EMAIL PROTECTED]'
[EMAIL PROTECTED]
cc:'[EMAIL PROTECTED]' [EMAIL PROTECTED]
Subject:FW: :DOM::Parser question !
All,
Any help regarding below problem is greatly appreciated.
My intention is to change value to true.
javaTask className = tool.update.languagepack.MergeConfig
arg name=sample value=false/
to
javaTask className = tool.update.languagepack.MergeConfig
arg name=sample value=true/
Thanks,
Ravi
-Original Message-
From: Ravinder Arepally
Sent: Monday, June 07, 2004 5:56 PM
To: [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Subject: XML::DOM::Parser question !
All,
I am trying to parse a XML file and change an element value.
Below is code of mine where I am doing this. However, setAttribute doesn't
work and it doesn't give any error message too.
I spent enough time and doesn't make sense to me. I get right value using
getAttribute('value).
XML file is also pasted at the end of this mail. Any help or pointer is
greatly appreciated.
Any suggestions in writing better code for this task is also appreciated.
Thank you,
Ravi.
---
my $udtTaskFile =
$depotLocation/updates/$udtBaseName/tasks/$udtBaseName._cs_udt.xml;
print (udtTaskfile is : $udtTaskFile \n); --- XML file which is
pasted at end of this mail.
Util::safeCopy($udtTaskFile, $udtTaskFile.time()); -- I have Util.pm
my $parser = new XML::DOM::Parser;
my $doc = $parser-parsefile($udtTaskFile);
my @taskList = $doc-getElementsByTagName('taskEntry');
foreach my $task (@taskList) {
if ($task-getAttribute('uniqueName') eq MergeConfig){
my $javaTask = $task-getElementsByTagName('javaTask');
if (! $javaTask) {
$log-write(ERROR: Couldn't find any Java tasks in
$udtTaskFile );
return Problem configuring installLPI. Couldn't find any Java
Tasks in $udtTaskFile. ;
}
my $innerTask = $javaTask-item(0)-getElementsByTagName('arg');
if (! $innerTask) {
$log-write(ERROR: Couldn't find any languagepack tasks in
$udtTaskFile );
return Problem configuring installLPI. Couldn't find any
languagepack Tasks in $udtTaskFile. ;
}
my $value = $innerTask-item(0)-getAttribute('value');
print (value is $value \n); This prints
right value
$innerTask-item(0)-setAttribute('value', true); - This is not
working. No error and it doesn't change value
}
}
--
!DOCTYPE harnessTaskList SYSTEM harnessTaskList.dtd
harnessTaskList extensionClassname = tools.update.TaskHarnessExtForUDT
logCategory = update/info
!-- Task UDT Runs the update delivery tool--
taskEntry uniqueName = DiskSpace
description = Checks if the necessary space is
available on disk to proceed with update
logCategory = update/info
canRerun = true
javaTask className = tools.update.DiskSpace/
/taskEntry
taskEntry uniqueName = UDT
description = Runs the update delivery tool
dependency = DiskSpace
logCategory = update/info
canRerun = true
javaTask className = tools.update.UpdateDeliveryTool/
/taskEntry
taskEntry uniqueName = EnableLanguages
description = Install files for language pack.
dependency = UDT
canRerun = true
logCategory = lpi/info
javaTask className =
tool.update.languagepack.EnableLanguage/
/taskEntry
taskEntry uniqueName = MergeConfig
description = Merges language related files to config.
dependency = UDT, EnableLanguages
logCategory = lpi/info
canRerun = true
javaTask className = tool.update.languagepack.MergeConfig
arg name=sample value=false
