XML Xpath interrogation

I have this XML data: <doc> <title>Aaa</title> <para>Ppp</para> <section type="baz"> <title>Xxx</title> <para>Qqq</para> <section> <title>Mmm</title> </section> <title>Yyy</title> <para>Rrr</para> </section> </doc> Notice that 'doc/section' has two 'title' children. I need to split 'doc/section' in two: <doc> <title>Aaa</title> <para>Ppp</para> <section type="baz"> <title>Xxx</title> <para>Qqq</para> <section> <title>Mmm</title> </section> </section><!-- Insert this --> <section type="baz"><!-- And this --> <title>Yyy</title

POSIX and Math::Trig

Is there a simple way to use both POSIX and Math::Trig without getting a flurry of warnings ? Subroutine main::atan redefined at myscript line 24 Subroutine main::asin redefined at myscript line 24 Subroutine main::tanh redefined at myscript line 24 Subroutine main::cosh redefined at myscript line 24 Subroutine main::tan redefined at myscript line 24 Subroutine main::acos redefined at myscript line 24 Subroutine main::sinh redefined at myscript line 24 Thanks in advance. -- Andr� Majorel http://www.teaser.fr/~amajorel/ "This album is very well mixed, so it is difficult to te

Capture http address of a link in perl

Hello All, I am using win32::IEAutomation and trying to automate a website. In the http page, there is a table with lot of rows having links as well as text. I am looking for rows, say @rows that have a particular string, say $string. I want to navigate to links that are present in @rows. A small example of what I am trying to do: some_text (link) $string some_text (link) $other_string some_text (link) $other_string some_text (link) $other_string some_text (link) $string The address of the link is embedded inside the html page. I want to nav

[CGI] How to set a 404 error?

In a perl CGI script, is it possible to throw a 404 error? If so, how is it done? Thanks in advance, Rui Maciel

Energy Saving Tips

1. Reduce heater's room temperature For each extra degree (Celsius) of temperature, your heater will consume 7 to 11% more energy. Adjust it to 18degrees which is also better for your health. 2. Install a programmable thermostat You will be able to control the heater's temperature during specific hours every day. 3. Insulate your house Loss of heat is loss of energy. 4. Fix air leaks 5. Close the chimney of the fireplace when you don't use it It is designed to drive smoke (hot air) out of the house! 6. Get an energy audit to advice you about the necessary fixes and insulation 7.

How to suppress methodName element in soap:Body of envelope with SOAP::Lite

Hi, Is there a way to suppress the surrounding methodName element of the soap:Body section of the SOAP envelope? The web service sends a fault back saying there is an unknown part (the methodName element) in the request. This web service is implemented as a doc/literal type if that makes a difference. I looked at SOAP::Serializer but it wasn't clear to me how to apply that to the SOAP object being sent with the methodName call. It doesn't make any difference if I use the wsdl method or the lower level uri/proxy method. #/usr/bin/per use strict; use warnings; use SOAP::L

require hangs

I have a few dependant modules, too extensive to post at this point. A general question, what could make a 'require' of a module hang, when a 'use' works? I could try to boil it down to something more specific, but the mystery lies within several thousand lines of code. Any suggestions are appreciated. Thanks.

Help writing 'simple' loop

$h1_right through $h10_right are 10 independent integer values. $hTotalRight = $h1_right + $h2_right + $h3_right + $h4_right + $h5_right + $h6_right + $h7_right + $h8_right + $h9_right + $h10_right; I can't figure out the syntax for $XXX to write a loop to do the addition. $hTotalRight = 0; for ($i=1;$i<11;$i++) { $hTotalRight = $hTotalRight + $XXX; } What is the syntax for $XXX? TIA, Joey

perl split

This I understand, $ perl -le '@a=split//,"abc"; print $#a; print for(@a)' 2 a b c But why this behavior? $ perl -le '@a=split/(.)/,"abc"; print $#a; print for(@a)' 5 a b c TIA -James

split on a string that should be interpreted as a regex

Hello everybody, I need the wisdom of the perl community. I have a perl program that uses the split function as follows: my ($tag, $value) = split(":\s*", $_, 2); I want to split on ':', followed by optional whitespaces. When I run the program, I get a warning Unrecognized escape \s passed through at test.pl line 228. and the split is performed on the string ":\s", and NOT on the regular expression /:\s+/. I was thinking that perl (at least perl 5.8) interprets the first parameter of the split function always as a regular expression, even if it is a simple string, i.

Regex: deleting non-matching words

I have input strings where some words start with an underscore. The plan is to remove all words that do NOT strt with an underscore and simply keep the rest. So for example starting with "word1 word2 _word3 word4 word5 _word6 _word7 word8" I'm trying to end up with "_word3 _word6 _word7" The expression I have got so far is s/.*?(_[a-z0-9]+).*?/ $1/gi; and my understanding is as follows: The first ".*?" part removes everything up to the first matching RE The "(_[a-z0-9]+)" matches any letter/number combination that starts with an underscore [sidenote: yes, I know: \w+] The final

Fast iterative reads

Hypothetically speaking: - Say I have a file containing 100,000 numbers, and each number corresponds to a database id and I have another file which contains all of the database ids plus the name of the file that corresponds to it. (Why couldn't I do an sql query which puts all the info in one file? Because I don't have access to the database!) So, I have these two files! (The second file is much larger than the first, say 300,000 records or more) Now, the only way that I can match database ids to filenames is to traverse list one and for each entry in list one then iterativel

Multiple regex operations

Is there a way to apple multiple regex operations to a single string without writing them all out? example. suppose I have some variable $var and want it apple three regexs to it. is there a faster way than $var =~ s/foo/bar/; $var =~ s/foo/bar/; $var =~ s/foo/bar/;

Perl array bug?

I believe I may have found a bug in ActivePerl 5.12.1.1201 (64-bit). This problem does *not* arise with ActivePerl 5.10.1.1007 (64-bit). Both running on Windows 7 64-bit with all current hot fixes. Unfortunately, I have not yet been able to isolate the problem code from a large and proprietary program. Howeber, in short, we clear a large array: @Big1 = (); The specific elements of the array are populated: $Big1[$index] = $value; However, the array contains many "holes" (undefined elements). So, this amounts to something like: $Big1[538] = 0; $Big1[53487] = 1; $

Warning message: Can't spawn ... No error

I have the following perl program to test return codes (I am running Strawberry Perl 5.12 under Windows Vista 64 bits): =============== use 5.012; use warnings; say 'Start'; system qq{perl -e"exit -1"}; say 'Stop'; =============== Here is the output: =============== Start Can't spawn "perl -e"exit -1"": No error at C:\test.pl line 5. Stop =============== The program as such runs ok, but the problem is the warning message >>Can't spawn "perl -e"exit -1"": No error<< which I don't understand at all. I want to have warnings on in general, but this particular warning is n

Recursion regular expression (xtended)

Original message replied to was posted to perl.beginners 8-14, but it didn't show up. EasyNews is acting weird. To test, I'm posting it here... -sln On Fri, 13 Aug 2010 13:47:41 -0700 (PDT), tobias.wagener@googlemail.com (irata) wrote: >Hi... > >I want to replace in a javscript structure like the one below every >occurence of "{#...}", "{?...}", "{+...}" and "{=...}" through >something different (also nested): > function() { > test1 = "{#Caption}"; > test2 = "{#Te{?st}}"; > test3 = "{+date.{0}}"; > } > >with this regular expression > my( $open ) =

Can't print entire line.

Hi, Underneath __DATA__ is a snippet of a file. I can't print the entire line, only the first word. You will see '^M', when the file was produced it appended those '^M'. What am I doing wrong: #!/usr/bin/perl -w use strict; my @tmsh_show = <DATA>; while (my $line = <@tmsh_show>) { chomp($line); print "$line\n"; } __DATA__ --------------------------------------^M Status ^M Availability : available^M State : enabled^M Reason : The pool is available^M ^M Traffic ServerSide^M Bits In

"Bizarre copy of HASH in sassign..." bug

Everyone once in a while, my code produces an error message that looks like this: Bizarre copy of HASH in sassign at /usr/share/perl/5.10/Carp/Heavy.pm line 96 I think it's an internal bug somewhere, and I can usually find a way around it, but still, it's puzzling. The latest manifestation of this problem occurred while I was writing unit tests for a module. My test script uses Test::More::throws_ok to check some error conditions. When checking this one error condition, it generates the message copied above. But if instead of writing my test like this: throws_ok { sh

simple indexing in Perl?

I'm new to database programming and just previously learnt to use loops to look up and enrich information using the following codes. However, when the tables are large, I find this process is very slow. Then, somebody told me I can build a database for one of the file real time and so no need to read the file from the beginning till the end again and again. However, perl DBI has a lot of sophisticated functions there and in fact my tables are only large but nothing special, linked by an ID. Is there any simple way to achieve the same purpose? I just wish the ID can be indexed

Click the Russian Grial details and Citizenship Jobs Details

Click from Russian Giral Allbamm Beautiful profiles with photos and videos add your proflie for free and start receiving letters and your Jobs details and Passpost details in p.R in Russian citizenship I LOVE ALL RUSSIAN @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ http://123maza.com/25/nike286/ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

OO instantiate

I have a new and execute method in my module. I want to propogate the args from new to execute, but i get a null variable, plz see below: package Cmtname; use Stnet::DBH; sub new { my ($class, %opts) = @_; my $self = \%opts; bless $self, $class; return $self; } sub execute { my ($self, %opts); use Data::Dumper;die 'DDDEBUG' . Dumper($self); # This is null } If i dump $self in "new" i get the correct args, in "execute" it is null, what am i missing? here is test script: #!/bin/perl use strict; use lib '/web/docs/secure/dev/'; #Just loca

perl programming language

http://www.thevoid1.net -- this is my new programming language written in perl, the completed version will be posted there some point... -Robin

Does this match any number or just single digit ones?

Will this line update $page with a number if it's double digit (ie 10+) or does the code need to change? my ($page) = $page_number_txt =~ /PAGE (\d) >/;

Used Car Sri Lanka

Used Car Sri Lanka Used Car Sri Lanka, Not Only For Sri Lanka, All Over The World, Just In A Single Click You Will Get A Car At A Very Price. http://www.caradzone.com/ Sell Your Used Car Or Buy Our Car In Seconds From Sri Lanka i.e Used Car Sri Lanka . More Details : CarAdZone.com is a advertising solution for all of your vehicles and related services. Our operation is spread in all over the world and once you select your location you will see only the advertisements related to your location.

I think an assertion might do this?

Hey Perlistas... I wanted to replace any and all multiple sequential EOLs with a single one. This worked nicely: (a) s/(\n)\n+/$1/g; But thinking abot it some more. it occurred to me that these wouldn't quite work (b) s/(\n)\n/$1/g; (c) s/\n(\n)/$1/g; (d) s/\n\n/\n/g; because even though they are greedy, they don't retrace. And predictably they didn't work. I've never really used assertions, at least not enough to be familiar with them. I guess this would be a positive look-behind to force the engine to retrace? Can someone offer an example please where I can use s