Need assistance to capture value in perl variable

Hello experts , I have a business requirement to change the date format in RSS page. Can someone please advise me how I can capture the value from the last line in below codes to a Perl variable?

[php]

 <% Dim page_source, file_path Set objXML = Server.CreateObject("Microsoft.XMLDOM") objXML.async = false set fs=Server.CreateObject("Scripting.FileSystemObject") file_path = Server.MapPath("pressrel_index.xml") If fs.FileExists(file_path)=true Then set f=fs.OpenTextFile(file_path,1) page_source = f.ReadAll f.close objXML.validateOnParse=False If objXML.loadXML(page_source) Then Set objRoot = objXML.documentElement total = objRoot.childNodes.length If total > 10 Then total=10 End If For i = 0 To total-1 objRoot.SelectSingleNode("pressrel[" & i & "]/date").text %> 

[/php]

Many thanks in advance.

Find more posts tagged with

Comments

Adam Stoller

Since the code you posted is not Perl - perhaps you need to provide a bit more context about how the code you posted is being called and what, if anything it outputs (to STDOUT and/or STDERR)?

Light_House

Thanks for your response and I have attached the tpl file. Here is what the script doing, it generates three files and one of them is the RSS page which is collecting data from XML file. Now, I need to capture the date and reformat it and publish back to the RSS page.

Please let me know if you need further information and thanks again.

Adam Stoller

Thanks for your response and I have attached the tpl file. Here is what the script doing, it generates three files and one of them is the RSS page which is collecting data from XML file. Now, I need to capture the date and reformat it and publish back to the RSS page.

Please let me know if you need further information and thanks again.

Let me see if I have this straight.
The code you posted (the second time) is a PT (Perl-based XML) which is supposed to process a DCR (perhaps multiple DCRs?) and generate an RSS page as output - yes?

Does the DCR contain a date that you need to reformat in the output - or are you trying to get the current date at the time of page generation and reformat that information?

In your PT I see

Light_House

Again thank you very much for all of your support, you are totally right about the code, there is an XML file that contains all the data and RSS page gets created using that XML file. In the very last portion of this PT, you will find ASP code, that is collecting values from XML file(not DCR, but XML file got created with the value from DCR) and generate an RSS page as output. So, now to answer all of your questions,
1. I am trying to format date info. Stored in that XML file which is,
2. 20101029(yyyymmdd)
3. Wed, 29 Sep 2010 00:00:00 EST (need to stored in RSS page)
4. No, I’m trying to format the date stored in the XML file (since the RSS page getting data from XML file)
5. Wed, 29 Sep 2010 00:00:00 EST
6. No, simply need to change the date format, that’s why I was thinking if I can capture the value from the following piece of code in Perl variable or in ASP (not expert in ASP) variable, then it will be very easy to format

[PHP]
objRoot.SelectSingleNode("pressrel[" & i & "]/date").text
[/php]
and publish back to
[php]
ASP variable
[/php]

Many thanks in advance.

Adam Stoller

Try:

<iw_perl>
  use Date::Manip;
  my $input = "20101029"; # replace with actual reference to DCR field
  my $date = UnixDate($input, "%a, %d %b %Y %H:%M:%S %Z");
  # do whatever you want with $date ...
</iw_perl>