[29105] in Perl-Users-Digest
Perl-Users Digest, Issue: 349 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Apr 16 14:09:46 2007
Date: Mon, 16 Apr 2007 11:09:13 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 16 Apr 2007 Volume: 11 Number: 349
Today's topics:
Re: Absolute Path errors <bik.mido@tiscalinet.it>
Re: Absolute Path errors <nikos1337@gmail.com>
Re: Absolute Path errors <bik.mido@tiscalinet.it>
Re: ActiveState vs. "C:\Program Files\" and "C:\Progra~ <bik.mido@tiscalinet.it>
Re: Error connecting to remote database <scobloke2@infotop.co.uk>
Re: Error connecting to remote database <nikos1337@gmail.com>
Re: Error connecting to remote database <nikos1337@gmail.com>
Re: Illegal seek <ecarlson@vmware.com>
Re: looking for some size optimization (Marc Espie)
Re: Top Turds of comp.lang.perl.misc (2007) <edMbj@aes-intl.com>
Re: Top Turds of comp.lang.perl.misc (2007) <bik.mido@tiscalinet.it>
Re: Top Turds of comp.lang.perl.misc (2007) <bik.mido@tiscalinet.it>
Re: XML parsing using PERL.... URGENT <ramesh9999@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 16 Apr 2007 17:37:29 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Absolute Path errors
Message-Id: <gq5723p2s9d66rhod7kp4heq1ar7ni80fc@4ax.com>
On 16 Apr 2007 05:40:05 -0700, "skieros" <nikos1337@gmail.com> wrote:
>Now that iam hosting my webpage on freehostia.com command like open
>FILE, "D:/www/data/text/tips.txt" or die $!;
Huh?!?
>So, i will eb definately be needing a way to oepn those files not in
>absolute hdd way but soemthing like open FILE, /data/text/tips.txt or
>die $!;
>
>How will i be abel to accomplish that?
I'm most certainly *not* the best one to answer your question, but
usenet@DavidFilmer.com wrote:
: Some webservers will set $ENV{'DOCUMENT_ROOT'} which you may use
: within your Perl program. But you must explicitly code this; Perl
: will not make any use of this variable unless you specifically code it
: yourself.
That may just be what you want/need.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 16 Apr 2007 08:49:59 -0700
From: "skieros" <nikos1337@gmail.com>
Subject: Re: Absolute Path errors
Message-Id: <1176738599.372770.40480@d57g2000hsg.googlegroups.com>
On Apr 16, 6:37 pm, Michele Dondi <bik.mido@tiscalinet.it> wrote:
> On 16 Apr 2007 05:40:05 -0700, "skieros" <nikos1337@gmail.com> wrote:
>
> >Now that iam hosting my webpage on freehostia.com command like open
> >FILE, "D:/www/data/text/tips.txt" or die $!;
>
> Huh?!?
>
> >So, i will eb definately be needing a way to oepn those files not in
> >absolute hdd way but soemthing like open FILE, /data/text/tips.txt or
> >die $!;
>
> >How will i be abel to accomplish that?
>
> I'm most certainly *not* the best one to answer your question, but
>
> usenet@DavidFilmer.com wrote:
>
> : Some webservers will set $ENV{'DOCUMENT_ROOT'} which you may use
> : within your Perl program. But you must explicitly code this; Perl
> : will not make any use of this variable unless you specifically code it
> : yourself.
>
> That may just be what you want/need.
Indeed but will something like this likely to work?
open FILE, "$ENV{'DOCUMENT_ROOT'}www/data/text/tips.txt" or die $!;
or
my @files = glob "$ENV{'DOCUMENT_ROOT'}/data/text/*.txt";
I mean if its for openign a link/pointing current script to another
perl file this will work fine but what about when tryign to open a
file for reading/writing ?!
------------------------------
Date: Mon, 16 Apr 2007 19:27:24 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Absolute Path errors
Message-Id: <n9c723982e3jq18bndkkn25bdp5qovtq54@4ax.com>
On 16 Apr 2007 08:49:59 -0700, "skieros" <nikos1337@gmail.com> wrote:
>> I'm most certainly *not* the best one to answer your question, but
>>
>> usenet@DavidFilmer.com wrote:
>>
>> : Some webservers will set $ENV{'DOCUMENT_ROOT'} which you may use
>> : within your Perl program. But you must explicitly code this; Perl
>> : will not make any use of this variable unless you specifically code it
>> : yourself.
>>
>> That may just be what you want/need.
>
>Indeed but will something like this likely to work?
Did you try? What happened?
>open FILE, "$ENV{'DOCUMENT_ROOT'}www/data/text/tips.txt" or die $!;
Well, if 'www' is (one of) your document root(s) anyway, as seems
probable, then you don't want that in the path.
>my @files = glob "$ENV{'DOCUMENT_ROOT'}/data/text/*.txt";
To put it simply and briefly: I don't know. But as a side note, if you
really want to be picky, you may use File::Spec(::Functions)'s
catfile().
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Mon, 16 Apr 2007 17:57:29 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: ActiveState vs. "C:\Program Files\" and "C:\Progra~1\"
Message-Id: <l17723hcm3po4l7og6qof0k73of58fhffb@4ax.com>
On Mon, 16 Apr 2007 23:51:46 +1000, "Sisyphus"
<sisyphus1@nomail.afraid.org> wrote:
>I would have used the latest evaluation version of WinZip (my copy of which
>has now expired) to extract ActivePerl-5.8.8.820-MSWin32-x86-274739.zip to
You may want to use some freeware or open source archiver instead. For
example I use IZArc when I want a GUI and good old Info-ZIP's native
port to Windows when I don't.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Mon, 16 Apr 2007 17:37:48 +0100
From: Ian Wilson <scobloke2@infotop.co.uk>
Subject: Re: Error connecting to remote database
Message-Id: <4623a666$0$6957$fa0fcedb@news.zen.co.uk>
skieros wrote:
> <TITLE>500 Internal Server Error</TITLE>
>
> when i try to http://skieros.freehostia.com/cgi-bin/test.pl
>
You need to check the Apache error log. I don't know about
freehostia.com but my hosting providers provide separate error logs for
each customer.
Its a bit pointless to speculate about the error, it might be
permissions on the test.pl file, it might be a malformed first line.
Read the error message in the Apache error log.
------------------------------
Date: 16 Apr 2007 10:09:58 -0700
From: "skieros" <nikos1337@gmail.com>
Subject: Re: Error connecting to remote database
Message-Id: <1176743398.562430.134100@e65g2000hsc.googlegroups.com>
On Apr 16, 7:37 pm, Ian Wilson <scoblo...@infotop.co.uk> wrote:
> skieros wrote:
> > <TITLE>500 Internal Server Error</TITLE>
>
> > when i try tohttp://skieros.freehostia.com/cgi-bin/test.pl
>
> You need to check the Apache error log. I don't know about
> freehostia.com but my hosting providers provide separate error logs for
> each customer.
>
> Its a bit pointless to speculate about the error, it might be
> permissions on the test.pl file, it might be a malformed first line.
> Read the error message in the Apache error log.
I wish i could!! Then i wouldnt speculate any more.
As for permission i ahve set them to all my uploaded files to chmod
755 *
As for the perl script it self it laods ok in my localhost.
The weird part is that even if i sue FatalsToBrowser i see no error in
my browser just like the webpage cant even read the initial perl
modules of:
#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
use DBI;
Isnt it weird that it cant even get to then print hello or die
statement?
print header( -charset=>'utf-8' );
print start_html( -title=>'Hello World!' );
print p('hello') or die $!;
print end_html;
------------------------------
Date: 16 Apr 2007 10:16:16 -0700
From: "skieros" <nikos1337@gmail.com>
Subject: Re: Error connecting to remote database
Message-Id: <1176743776.271357.38620@l77g2000hsb.googlegroups.com>
On Apr 16, 7:37 pm, Ian Wilson <scoblo...@infotop.co.uk> wrote:
> skieros wrote:
> > <TITLE>500 Internal Server Error</TITLE>
>
> > when i try tohttp://skieros.freehostia.com/cgi-bin/test.pl
>
> You need to check the Apache error log. I don't know about
> freehostia.com but my hosting providers provide separate error logs for
> each customer.
>
> Its a bit pointless to speculate about the error, it might be
> permissions on the test.pl file, it might be a malformed first line.
> Read the error message in the Apache error log.
Thay just answred me like this:
Hello,
I am truly sorry to disappoint you but Access and Error logs service
in not available at this time. Our administrators are working to
enable it as soon as possible.
Best Regards,
Bob
------------------------------
Date: 16 Apr 2007 10:03:37 -0700
From: "Eric" <ecarlson@vmware.com>
Subject: Re: Illegal seek
Message-Id: <1176743017.639982.299620@y5g2000hsa.googlegroups.com>
On Apr 14, 4:10 am, "Dr.Ruud" <rvtol+n...@isolution.nl> wrote:
> Eric schreef:
>
> > For
> > clarity reasons, I didn't include all of the code.
>
> :(
>
> --
> Affijn, Ruud
>
> "Gewoon is een tijger."
Sorry for not following the group protocal. Here is the code. The
launch.pl file runs the mountDefaultBuild.pl script.
===========================================
File: launch.pl:
----------------
#! /usr/bin/perl -w
use strict;
my $script = "/usr/local/mountDefaultBuild.pl";
`$script` || print STDERR "Command '$script' failed: $?";
File: mountDefaultBuild.pl
--------------------------
#! /usr/bin/perl -w
use strict;
use Fcntl qw(:DEFAULT :flock);
my $execute = "/usr/sbin/exportfs -r";
my $umount = "umount /networkinstall/default";
my $mount = "mount -o loop /networkinstall/tmp/build.iso /
networkinstall/default";
unless (open SEMAPHORE, "> /tmp/mounts.lock") {
print STDOUT "unexpected problem opening /tmp/mounts.lock\n";
}
flock SEMAPHORE, Fcntl::LOCK_EX;
`$execute` || print STDERR "Command '$execute' failed: $?\n";
`$umount` || print STDERR "Command '$umount' failed: $?\n";
`$mount` || print STDERR "Command '$mount' failed: $?\n";
`$execute` || print STDERR "Command '$execute' failed: $?\n";
close SEMAPHORE;
===========================================
Thanks.
Eric
------------------------------
Date: Mon, 16 Apr 2007 17:16:34 +0000 (UTC)
From: espie@lain.home (Marc Espie)
Subject: Re: looking for some size optimization
Message-Id: <f00b1i$dmi$1@biggoron.nerim.net>
In article <x7wt0c5q4m.fsf@mail.sysarch.com>,
Uri Guttman <uri@stemsystems.com> wrote:
>>>>>> "ME" == Marc Espie <espie@lain.home> writes:
>
>
> ME> my $file= File::Spec->canonpath($self->fullname());
> ME> if (exists $all_conflict->{$file}) {
> ME> $list->{$all_conflict->{$file}}->{$pkgname} ||=
> ME> [@{$all_conflict->{$file}}, $pkgname ];
>
>that is slow as you copy the existing array back into another anon
>array. andyou have a lot of code redundancy all over this. you always
>are assigning an anon array but autoviviification will handle that for
>you. put this before the if (and i am not even sure you need a
>conditional there at all but i haven't followed the logic flow)
>
> push( @{$all_conflict->{$file}}, $pkgname ;
But still, the new structure takes less space than the old one.
The trick is that there is one single ref for each pkgname set now.
The simple line overhead will build one separate entry for each file
and this looks like it is the stuff gobbling memory.
>as for the conflict hash, i am sure it can be reduced but i don't know
>the logic. you change $all_conflict->{$file} after each push (your ||=
>code) which makes no sense to me. maybe you should clearly explain the
>data structure you want to get out of this. i have yet to see such an
>explanation in this thread (or i am not awake yet). i can't see how 4000
>entries of maybe a few hundred bytes each will use up 250MB (or even 190).
We are talking 4000 packages. Which contain about 700000 files, total.
> ME> (that's the ports/infrastructure/packages/find-all-conflicts
> ME> script used in OpenBSD, btw)
>
>any url to get that directly? if that is published code then my autoviv
>fix will save tons of time for many users. that copy anon arrays to
>themselves thing is massively bad code. for more on autovivification see
>my article at http://sysarch.com/Perl/autoviv.txt.
>knowing that the build code is poorly designed, now i am confident that
>the data structure is also poorly design and can be majorly optimized.
Go ahead, knock yourself out...
You can get this through OpenBSD's cvsweb, from openbsd.org.
http://www.openbsd.org/cgi-bin/cvsweb/ports/infrastructure/package/find-all-conflicts
the extra pm files live under
http://www.openbsd.org/cgi-bin/cvsweb/src/usr.sbin/pkg_add
------------------------------
Date: Mon, 16 Apr 2007 08:28:42 -0700
From: Ed Jay <edMbj@aes-intl.com>
Subject: Re: Top Turds of comp.lang.perl.misc (2007)
Message-Id: <0g5723t5b4908lf0m6sb6giuiold7rtvkc@4ax.com>
Charlton Wilbur scribed:
>When I was an undergraduate, it was rapidly apparent to me that 2/3 of
>the people in the world were incompetent and either unaware of that
>fact or too lazy to do anything about it...
January 18, 2000 (New York Times et al)
Among the Inept, Researchers Discover Ignorance Is Bliss
By Erica Goode
There are many incompetent people in the world. Dr. David A. Dunning is
haunted by the fear he might be one of them.
Dr. Dunning, a professor of psychology at Cornell, worries about this
because, according to his research, most incompetent people do not know
that they are incompetent.
On the contrary. People who do things badly, Dr. Dunning has found in
studies conducted with a graduate student, Justin Kruger, are usually
supremely confident of their abilities -- more confident, in fact, than
people who do things well.
Humor-impaired joke-tellers rated themselves as funny.
"I began to think that there were probably lots of things that I was bad
at and I didn't know it," Dr. Dunning said.
One reason that the ignorant also tend to be the blissfully self-assured,
the researchers believe, is that the skills required for competence often
are the same skills necessary to recognize competence.
The incompetent, therefore, suffer doubly, they suggested in a paper
appearing in the December issue of the Journal of Personality and Social
Psychology.
"Not only do they reach erroneous conclusions and make unfortunate
choices, but their incompetence robs them of the ability to realize it,"
wrote Dr. Kruger, now an assistant professor at the University of
Illinois, and Dr. Dunning.
This deficiency in "self-monitoring skills," the researchers said, helps
explain the tendency of the humor-impaired to persist in telling jokes
that are not funny, of day traders to repeatedly jump into the market --
and repeatedly lose out -- and of the politically clueless to continue
holding forth at dinner parties on the fine points of campaign strategy.
Some college students, Dr. Dunning said, evince a similar blindness: after
doing badly on a test, they spend hours in his office, explaining why the
answers he suggests for the test questions are wrong.
In a series of studies, Dr. Kruger and Dr. Dunning tested their theory of
incompetence. They found that subjects who scored in the lowest quartile
on tests of logic, English grammar and humor were also the most likely to
"grossly overestimate" how well they had performed.
In all three tests, subjects' ratings of their ability were positively
linked to their actual scores. But the lowest-ranked participants showed
much greater distortions in their self-estimates. Asked to evaluate their
performance on the test of logical reasoning, for example, subjects who
scored only in the 12th percentile guessed that they had scored in the
62nd percentile, and deemed their overall skill at logical reasoning to be
at the 68th percentile.
Similarly, subjects who scored at the 10th percentile on the grammar test
ranked themselves at the 67th percentile in the ability to "identify
grammatically correct standard English," and estimated their test scores
to be at the 61st percentile.
On the humor test, in which participants were asked to rate jokes
according to their funniness (subjects' ratings were matched against those
of an "expert" panel of professional comedians), low-scoring subjects were
also more apt to have an inflated perception of their skill. But because
humor is idiosyncratically defined, the researchers said, the results were
less conclusive.
Unlike their unskilled counterparts, the most able subjects in the study,
Dr. Kruger and Dr. Dunning found, were likely to underestimate their own
competence. The researchers attributed this to the fact that, in the
absence of information about how others were doing, highly competent
subjects assumed that others were performing as well as they were -- a
phenomenon psychologists term the "false consensus effect."
When high scoring subjects were asked to "grade" the grammar tests of
their peers, however, they quickly revised their evaluations of their own
performance. In contrast, the self-assessments of those who scored badly
themselves were unaffected by the experience of grading others; some
subjects even further inflated their estimates of their own abilities.
"Incompetent individuals were less able to recognize competence in
others," the researchers concluded.
In a final experiment, Dr. Dunning and Dr. Kruger set out to discover if
training would help modify the exaggerated self-perceptions of incapable
subjects. In fact, a short training session in logical reasoning did
improve the ability of low-scoring subjects to assess their performance
realistically, they found.
The findings, the psychologists said, support Thomas Jefferson's assertion
that "he who knows best knows how little he knows."
And the research meshes neatly with other work indicating that
overconfidence is a common; studies have found, for example, that the vast
majority of people rate themselves as "above average" on a wide array of
abilities -- though such an abundance of talent would be impossible in
statistical terms. And this overestimation, studies indicate, is more
likely for tasks that are difficult than for those that are easy.
Such studies are not without critics. Dr. David C. Funder, a psychology
professor at the University of California at Riverside, for example, said
he suspected that most lay people had only a vague idea of the meaning of
"average" in statistical terms.
"I'm not sure the average person thinks of 'average' or 'percentile' in
quite that literal a sense," Dr. Funder said, "so 'above average' might
mean to them 'pretty good,' or 'O.K.,' or 'doing all right.' And if, in
fact, people mean something subjective when they use the word, then it's
really hard to evaluate whether they're right or wrong using the
statistical criterion."
But Dr. Dunning said his current research and past studies indicated that
there were many reasons why people would tend to overestimate their
competency, and not be aware of it.
In some cases, Dr. Dunning pointed out, an awareness of one's own
inability is inevitable: "In a golf game, when your ball is heading into
the woods, you know you're incompetent," he said.
But in other situations, feedback is absent, or at least more ambiguous;
even a humorless joke, for example, is likely to be met with polite
laughter. And faced with incompetence, social norms prevent most people
from blurting out "You stink!" -- truthful though this assessment may be.
All of which inspired in Dr. Dunning and his co-author, in presenting
their research to the public, a certain degree of nervousness.
"This article may contain faulty logic, methodological errors or poor
communication," they cautioned in their journal report. "Let us assure our
readers that to the extent this article is imperfect, it is not a sin we
have committed knowingly."
--
Ed Jay (remove 'M' to respond by email)
------------------------------
Date: Mon, 16 Apr 2007 17:47:39 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Top Turds of comp.lang.perl.misc (2007)
Message-Id: <o96723pfks4n856r8gtf83d8s4nn6hqj2c@4ax.com>
On Mon, 16 Apr 2007 07:06:11 -0500, Tad McClellan
<tadmc@augustmail.com> wrote:
>If you can live with everybody not reading your posts, what is
>the point of writing them?
Your logical premise is fallacious. You bet there will be hordes of
l33t n00bz courtesy of GG reading them, and thinking that this is a
very nice *forum*.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Mon, 16 Apr 2007 19:14:21 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Top Turds of comp.lang.perl.misc (2007)
Message-Id: <sp9723ttq4em633sa2k2aa9cv1abl166ce@4ax.com>
On 16 Apr 2007 10:38:06 -0400, Charlton Wilbur
<cwilbur@chromatico.net> wrote:
>other 2/3, plus a healthy dose of undoing poorly done things. When I
>got into the IT world, it seemed like I underestimated by an order of
>magnitude. Requiring credentials and certification -- at least
>*meaningful* credentials and certification, and there's a whole other
>can of worms -- or making software engineers legally and
>professionally liable for things they approve of, in the way that
>engineers in the physical world are legally and professionally liable,
>would go a long way.
Of course, you're right to. FWIW, my experience with my previous
employer is that I was hired because some friend of mine, who's a
friend of the boss too, and also worked for him knew my Perl skills
and told him about me, and they were looking for Perl programmers. So
they were definitely looking for quality. Not that I'm implying that
they found it, with me! :-) Anyway it was particularly important for
them, being a small company. Of course they were wary of people
plainly giving out curricula. Finding people by "fame" may seem a lot
"unprofessional", but as long as it's practiceable, it works well.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 16 Apr 2007 08:24:38 -0700
From: "Ram" <ramesh9999@gmail.com>
Subject: Re: XML parsing using PERL.... URGENT
Message-Id: <1176737078.342619.155400@y80g2000hsf.googlegroups.com>
On Apr 13, 8:58 pm, Tad McClellan <t...@augustmail.com> wrote:
> Ram <ramesh9...@gmail.com> wrote:
> > Subject: XML parsing using PERL.... URGENT
>
> Have you seen the Posting Guidelines that are posted here frequently?
>
> > I am new to PERL
>
> We can tell, because the name of the language is Perl, not PERL.
>
> > Please help me out with this...
>
> Sure. What part are you having trouble with?
>
> > <tx no="213" nm="quoteTypeIdSymbol" mn="0" vl="03_K02_1_4" />
> > <em no="213" nm="valueType" mn="0" dm="ValueType" vl="9001" />
> > <ft no="213" nm="quoteValue" mn="0" vl="130.97" />
> > My CSV file should be:
> > 03042007
> > EU0009656420,130.97(quoteValue tag)
>
> You want a newline in the 1st CSV field?
>
> There is no quoteValue tag anywhere in your data.
>
> There is a tx tag and a em tag and a ft tag though,
> there is also a ft tag with a quoteValue attribute value.
>
> http://xml.silmaril.ie/authors/makeup/
>
> --
> Tad McClellan SGML consulting
> t...@augustmail.com Perl programming
> Fort Worth, Texas
Thanks for the reply....
i have a complete xml file which isvery big and i m not able to attach
the complete file.. so i have taken a part of xml file and pasted
here
i have an xml file and i need to take only 3 values for each
object.... like ISIN, quoteValue and the date(header date)....
and below the quote value u can see quoteTime... the date in quoteTime
should be same as the header date....
there is a quote value tag here.... 4th line....
<tx no="51" nm="provider3ID" mn="0" ky="1" />
<tx no="213" nm="quoteTypeIdSymbol" mn="0" vl="03_K02_1_4" />
<em no="213" nm="valueType" mn="0" dm="ValueType" vl="9001" />
<ft no="213" nm="quoteValue" mn="0" vl="130.97" />
<em no="213" nm="valueStyleType" mn="0" dm="ValueStyleType"
vl="5" /
<em no="213" nm="valueStyleType" mn="0" dm="ValueStyleType" vl="5" /
<ft no="213" nm="quoteSize" mn="0" />
<sp no="213" nm="quoteTime" mn="0" vl="14.03.2007 - 99:99:99 @99" /
Yes, I need a new line
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 349
**************************************
