[29137] in Perl-Users-Digest
Perl-Users Digest, Issue: 381 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Apr 26 00:10:10 2007
Date: Wed, 25 Apr 2007 21:09:05 -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 Wed, 25 Apr 2007 Volume: 11 Number: 381
Today's topics:
Re: $ENV HOME on windows <stoupa@practisoft.cz>
Re: FAQ 4.32 How do I strip blank space from the beginn <stoupa@practisoft.cz>
Re: FAQ 4.32 How do I strip blank space from the beginn <uri@stemsystems.com>
Re: Management of Enterprise Computing <uri@stemsystems.com>
Re: Read xml file and write data to a txt file using PE sl123@netherlands.area
Re: Read xml file and write data to a txt file using PE sl123@netherlands.area
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 26 Apr 2007 02:52:45 +0200
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: $ENV HOME on windows
Message-Id: <f0ot7j$4s9$2@ns.felk.cvut.cz>
"Ilya Zakharevich" <nospam-abuse@ilyaz.org> píše v diskusním příspěvku
news:f0opmc$27r$1@agate.berkeley.edu...
> What puzzles me deep is why Perl on Windows is not faking $ENV{HOME}
> if $ENV{HOMEPATH} and $ENV{HOMEPATH} are both present... I think this
> would remove at least 10-20% of porting problems...
>
From which hell get you HOME variable? :-)
On my WinXP-Pro this environment variable is not.
Run cmd.exe
C:\>set
ALLUSERSPROFILE=C:\Documents and Settings\All Users
APPDATA=C:\Documents and Settings\Petr\Dataap~1
CLIENTNAME=Console
COMMANDER_PATH=D:\totalcmd
CommonProgramFiles=C:\Program Files\Common Files
COMPUTERNAME=PETR
ComSpec=C:\WINDOWS\system32\cmd.exe
FP_NO_HOST_CHECK=NO
HOMEDRIVE=C:
HOMEPATH=\Documents and Settings\Petr
LOGONSERVER=\\PETR
NUMBER_OF_PROCESSORS=1
OPENSSL_CONF=C:\OpenSSL\bin\openssl.cnf
OS=Windows_NT
Path=D:\Perl\bin\;D:\php;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem
PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.pyo;.pyc;.pyw;.py
PERL5LIB=E:\Progra~1\PDK60\lib\
PERLDB_OPTS=RemotePort=127.0.0.1:2000
PROCESSOR_ARCHITECTURE=x86
PROCESSOR_IDENTIFIER=x86 Family 15 Model 4 Stepping 1, GenuineIntel
PROCESSOR_LEVEL=15
PROCESSOR_REVISION=0401
ProgramFiles=C:\Program Files
PROMPT=$P$G
SESSIONNAME=Console
SystemDrive=C:
SystemRoot=C:\WINDOWS
TEMP=L:\Temp
TMP=L:\Temp
USERDOMAIN=[cenzored]
USERNAME=Petr
USERPROFILE=C:\Documents and Settings\Petr
windir=C:\WINDOWS
C:\>
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)
------------------------------
Date: Thu, 26 Apr 2007 02:39:29 +0200
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: FAQ 4.32 How do I strip blank space from the beginning/end of a string?
Message-Id: <f0ot7j$4s9$1@ns.felk.cvut.cz>
"Uri Guttman" <uri@stemsystems.com> píse v diskusním príspevku
news:x74pn6ftfx.fsf@mail.sysarch.com...
>>>>>> "PV" == Petr Vileta <stoupa@practisoft.cz> writes:
>
> >> 4.32: How do I strip blank space from the beginning/end of a string?
> >>
> >> s/^\s+//;
> >> s/\s+$//;
> >>
> >> You can also write that as a single substitution, although it turns
> out
> >> the combined statement is slower than the separate ones. That might
> not
> >> matter to you, though.
> >>
> >> s/^\s+|\s+$//g;
> >>
> PV> I'm using this
> PV> s/^\s*(.*?)\s*$/$1/;
> PV> Is this better or poorer then examples above?
>
> so there are plenty of differences and they point out that yours will
> likely be slower than either of the FAQ answers (and definitely slower
> if no whitespace is found).
>
Thank you for detailed explaining. I'm using my own function for removing
ledaing/trailing spaces and replacing multiple spaces with one only. This
function I use for normalizing string before I put in into databases to
avoid duplications. I mean duplications from human point of view, because
Johh Doe
John Doe
is the same for human but different for machine. By this FAQ and your ansver
I rewote my function to this (maybe some can use this too)
sub normalize_string {
my $string = shift;
$string =~ s/^\s+//s;
$string =~ s/\s+$//s;
$string =~ s/\s+/ /sg;
return $string;
}
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)
------------------------------
Date: Wed, 25 Apr 2007 23:22:04 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: FAQ 4.32 How do I strip blank space from the beginning/end of a string?
Message-Id: <x7irbjakgz.fsf@mail.sysarch.com>
>>>>> "PV" == Petr Vileta <stoupa@practisoft.cz> writes:
PV> sub normalize_string {
PV> my $string = shift;
PV> $string =~ s/^\s+//s;
PV> $string =~ s/\s+$//s;
PV> $string =~ s/\s+/ /sg;
tr is faster for that last one:
$string =~ tr/ / /s;
that squeezes multiple spaces into one. if you want to handle tabs and
other white space you do this:
$string =~ tr/ \r\n\t/ /s;
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Wed, 25 Apr 2007 23:26:50 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Management of Enterprise Computing
Message-Id: <x7ejm7ak91.fsf@mail.sysarch.com>
>>>>> "i" == iguanodon <iguanodon@guano.com> writes:
i> I have been tasked to create a system for managing enterprise
i> computing in our company. This would involve managing hundreds of
i> computers running our proprietary software, keeping an eye for
i> trouble, starting/restarting things, performing remote actions
i> conditionally based on success of other actions, etc.
i> All should be configurable and accept human input, etc.
i> We are going to use 'perl' for this and I would like to know what
why is perl in quotes?
i> relevant perl modules could you recommend, for managing a lot of
i> computers at once, watching for stuff, etc.
more than a list of modules you need someone who knows how to do
this. why have you been 'tasked' with this when it seems to be over your
head and you don't know perl? i recommend you hire someone.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Wed, 25 Apr 2007 18:37:44 -0700
From: sl123@netherlands.area
Subject: Re: Read xml file and write data to a txt file using PERL.... urgent
Message-Id: <re0033hqhjls4hngs9uu7fol7qm8uhif57@4ax.com>
On 17 Apr 2007 13:17:28 -0700, Ram <ramesh9999@gmail.com> wrote:
<snip>
Here, I managed to clean it up for you. Parse away!
If you have more files just let me know. I use RXParse module.
Cheers
new parse _: SCALAR ref
--------------------
xmldecl_h _: version = 1.0
encoding = ISO-8859-1
--------------------
char _:
--------------------
doctype_h _: FOF (View Source for full doctype...)
--------------------
char _:
--------------------
start _: FOF
Name = BBH3
Date = 20070413
Last = 1
--------------------
char _:
--------------------
start _: OB
cl = FOMessage.FIOMMessage.FIOMObject
no = 1019.1008.51
vr = 1.43
od = 1
mn = 0
--------------------
char _:
--------------------
start _: tx
no = 51
nm = provider1ID
mn = 0
ky = 1
end _: /tx
--------------------
char _:
--------------------
start _: tx
no = 51
nm = provider2ID
mn = 0
ky = 1
end _: /tx
--------------------
char _:
--------------------
start _: tx
no = 51
nm = provider3ID
mn = 0
ky = 1
end _: /tx
--------------------
char _:
--------------------
start _: sp
no = 1008
nm = creationTime
mn = 0
end _: /sp
--------------------
char _:
--------------------
start _: tx
no = 1008
nm = author
mn = 0
end _: /tx
--------------------
char _:
--------------------
start _: nu
no = 1019
nm = revisionNo
mn = 0
end _: /nu
--------------------
char _:
--------------------
start _: sp
no = 1019
nm = createTimestamp
mn = 0
end _: /sp
--------------------
char _:
--------------------
start _: tx
no = 1019
nm = createUserID
mn = 0
vl = WMS
end _: /tx
--------------------
char _:
--------------------
start _: tx
no = 1019
nm = initiatorId
mn = 0
end _: /tx
--------------------
char _:
--------------------
start _: tx
no = 1019
nm = messageFromID
mn = 0
vl = iss-blade4.local.wmgruppe.de_21221_2_0
end _: /tx
--------------------
char _:
--------------------
start _: tx
no = 1019
nm = messageToID
mn = 0
vl = iss-blade4.local.wmgruppe.de_21221_2_0
end _: /tx
--------------------
char _:
--------------------
start _: fg
no = 1019
nm = isEndOfDelivery
mn = 0
end _: /fg
--------------------
char _:
--------------------
start _: fg
no = 1019
nm = isExecuted
mn = 0
end _: /fg
--------------------
char _:
--------------------
start _: R
no = 1019
nm = fiomData
--------------------
char _:
--------------------
start _: RP
mn = 0
--------------------
char _:
--------------------
start _: OB
cl = QuoteHolder.TopLevelObject.FIOMObject
no = 208.1080.51
vr = 1.43
od = 2
mn = 3
--------------------
char _:
--------------------
start _: tx
no = 51
nm = provider1ID
mn = 0
ky = 1
end _: /tx
--------------------
char _:
--------------------
start _: tx
no = 51
nm = provider2ID
mn = 1
ky = 1
vl = WMS
ov =
end _: /tx
--------------------
char _:
--------------------
start _: tx
no = 51
nm = provider3ID
mn = 0
ky = 1
end _: /tx
--------------------
char _:
--------------------
start _: cr
no = 208
nm = currency
mn = 4
ky = 1
vl = 6 WKN 965642
Waehrung_BdB EO ISIN EU0009656420 BoersenkuerzelInland EUR
Waehrung_ISO4217 EUR DB_KEY 69
end _: /cr
--------------------
char _:
--------------------
start _: R
no = 1080
nm = result
end _: /R
--------------------
char _:
--------------------
start _: R
no = 1080
nm = vdpsInformation
--------------------
char _:
--------------------
start _: RP
mn = 0
--------------------
char _:
--------------------
start _: OB
cl = VDPSInformation.FIOMObject
no = 160.51
vr = 1.43
od = 3
mn = 3
--------------------
char _:
--------------------
start _: tx
no = 51
nm = provider1ID
mn = 0
ky = 1
end _: /tx
--------------------
char _:
--------------------
start _: tx
no = 51
nm = provider2ID
mn = 0
ky = 1
end _: /tx
--------------------
char _:
--------------------
start _: tx
no = 51
nm = provider3ID
mn = 0
ky = 1
end _: /tx
--------------------
char _:
--------------------
start _: fg
no = 160
nm = hasPendingActivities
mn = 4
vl = FALSE
end _: /fg
--------------------
char _:
--------------------
start _: tx
no = 160
nm = vstName
mn = 0
vl = QuoteHolder
end _: /tx
--------------------
char _:
--------------------
start _: tx
no = 160
nm = vstVersion
mn = 0
vl = WM_003a
end _: /tx
--------------------
char _:
--------------------
start _: em
no = 160
nm = foType
mn = 4
dm = FOType
vl = 500
end _: /em
--------------------
char _:
--------------------
start _: tx
no = 160
nm = createUserID
mn = 0
vl = WMS
end _: /tx
--------------------
char _:
--------------------
start _: sp
no = 160
nm = createTimestamp
mn = 0
vl = 05.07.2005 - 22:02:15 @0
end _: /sp
--------------------
char _:
--------------------
start _: tx
no = 160
nm = updateUserID
mn = 3
vl = WMS
ov = unknown
end _: /tx
--------------------
char _:
--------------------
start _: sp
no = 160
nm = updateTimestamp
mn = 3
vl = 16.04.2007 - 10:24:40 @0
ov = 15.04.2007 - 11:26:04 @0
end _: /sp
--------------------
char _:
--------------------
start _: nu
no = 160
nm = vstQuality
mn = 4
vl = 10
end _: /nu
--------------------
char _:
--------------------
start _: fg
no = 160
nm = isRelevant
mn = 4
vl = TRUE
end _: /fg
--------------------
char _:
--------------------
start _: tx
no = 160
nm = modificationReason
mn = 0
end _: /tx
--------------------
char _:
--------------------
start _: nu
no = 160
nm = revisionNo
mn = 3
vl = 529
ov = 528
end _: /nu
--------------------
char _:
--------------------
start _: tx
no = 160
nm = remarks
mn = 0
end _: /tx
--------------------
char _:
--------------------
start _: fg
no = 160
nm = hasFutureMessages
mn = 0
end _: /fg
--------------------
char _:
--------------------
start _: nu
no = 160
nm = vstRequiredQuality
mn = 4
vl = 5
end _: /nu
--------------------
char _:
--------------------
start _: tx
no = 160
nm = provider1Symbol
mn = 0
ky = 1
end _: /tx
--------------------
char _:
--------------------
start _: tx
no = 160
nm = provider2Symbol
mn = 0
ky = 1
end _: /tx
--------------------
char _:
--------------------
start _: tx
no = 160
nm = provider3Symbol
mn = 0
ky = 1
end _: /tx
--------------------
char _:
--------------------
start _: em
no = 160
nm = dataStatusType
mn = 0
dm = DataStatusType
end _: /em
--------------------
char _:
--------------------
start _: nu
no = 160
nm = vstMaximumQuality
mn = 0
vl = 10
end _: /nu
--------------------
char _:
--------------------
start _: nu
no = 160
nm = newVstQuality
mn = 1
vl = 10
ov =
end _: /nu
--------------------
char _:
--------------------
start _: fg
no = 160
nm = isChecked
mn = 0
end _: /fg
--------------------
char _:
--------------------
start _: tx
no = 160
nm = messageInfo
mn = 0
end _: /tx
--------------------
char _:
--------------------
start _: fg
no = 160
nm = fotWizardIsDisabled
mn = 0
end _: /fg
--------------------
char _:
--------------------
start _: em
no = 160
nm = blockingCodeType
mn = 0
dm = BlockingCodeType
end _: /em
--------------------
char _:
--------------------
start _: em
no = 160
nm = logicDeletionType
mn = 0
dm = LogicDeletionType
end _: /em
--------------------
char _:
--------------------
start _: tx
no = 160
nm = foDBKey
mn = 0
end _: /tx
--------------------
char _:
--------------------
start _: fg
no = 160
nm = isOnDB
mn = 4
vl = TRUE
end _: /fg
--------------------
char _:
--------------------
start _: fg
no = 160
nm = isFastInsertion
mn = 0
end _: /fg
--------------------
char _:
--------------------
start _: em
no = 160
nm = priorityType
mn = 0
dm = PriorityType
end _: /em
--------------------
char _:
--------------------
start _: R
no = 160
nm = genericInformations
end _: /R
--------------------
char _:
--------------------
start _: R
no = 160
nm = areaInformations
end _: /R
--------------------
char _:
--------------------
end _: /OB
--------------------
char _:
--------------------
end _: /RP
--------------------
char _:
--------------------
end _: /R
--------------------
char _:
--------------------
start _: R
no = 1080
nm = control
end _: /R
--------------------
char _:
--------------------
start _: R
no = 1080
nm = pendingActivity
end _: /R
--------------------
char _:
--------------------
start _: R
no = 1080
nm = pendingChange
end _: /R
--------------------
char _:
--------------------
start _: WR
no = 208
tn = BTID3
nm = instrument
--------------------
char _:
--------------------
start _: id
no = 0_BTID3
tn = BTID3
nm = destinationKey
mn = 3
vl = 1 WKN977961
ov = 5 CommonCode 8492301 WKN 977961 ISIN DE0009779611BoersenkuerzelInland FPJB DB_KEY 18022
end _: /id
--------------------
char _:
--------------------
end _: /WR
--------------------
char _:
--------------------
start _: R
no = 208
nm = recentQuoteValues
--------------------
char _:
--------------------
start _: RP
mn = 0
--------------------
char _:
--------------------
start _: OB
cl = QuoteValue.FIOMObject
no = 213.51
vr = 1.43
od = 4
mn = 1
--------------------
char _:
--------------------
start _: tx
no = 51
nm = provider1ID
mn = 0
ky = 1
end _: /tx
--------------------
char _:
--------------------
start _: tx
no = 51
nm = provider2ID
mn = 1
ky = 1
vl = 20070413K01005L21NULK02_1_4
ov = 20070413K01005L21NULK02_1_4
end _: /tx
--------------------
char _:
--------------------
start _: tx
no = 51
nm = provider3ID
mn = 0
ky = 1
end _: /tx
--------------------
char _:
--------------------
start _: tx
no = 213
nm = quoteTypeIdSymbol
mn = 1
vl = 03_K02_1_4
ov = 03_K02_1_4
end _: /tx
--------------------
char _:
--------------------
start _: em
no = 213
nm = valueType
mn = 1
dm = ValueType
vl = 9001
ov = 9001
end _: /em
--------------------
char _:
--------------------
start _: ft
no = 213
nm = quoteValue
mn = 1
vl = 75.35
ov = 75.35
end _: /ft
--------------------
char _:
--------------------
start _: em
no = 213
nm = valueStyleType
mn = 1
dm = ValueStyleType
vl = 5
ov = 5
end _: /em
--------------------
char _:
--------------------
start _: ft
no = 213
nm = quoteSize
mn = 0
end _: /ft
--------------------
char _:
--------------------
start _: sp
no = 213
nm = quoteTime
mn = 1
vl = 13.04.2007 - 99:99:99 @99
ov = 13.04.2007 - 99:99:99 @99
end _: /sp
--------------------
char _:
--------------------
start _: em
no = 213
nm = sizeStyleType
mn = 0
dm = SizeStyleType
end _: /em
--------------------
char _:
--------------------
start _: em
no = 213
nm = reliabilityType
mn = 0
dm = ReliabilityType
end _: /em
--------------------
char _:
--------------------
start _: fg
no = 213
nm = isCorrection
mn = 0
end _: /fg
--------------------
char _:
--------------------
start _: sp
no = 213
nm = validUntil
mn = 0
end _: /sp
--------------------
char _:
--------------------
start _: em
no = 213
nm = settlementTimeType
mn = 0
dm = SettlementTimeType
end _: /em
--------------------
char _:
--------------------
start _: em
no = 213
nm = settlementCodeType
mn = 0
dm = SettlementCodeType
end _: /em
--------------------
char _:
--------------------
start _: em
no = 213
nm = settlementStatusType
mn = 0
dm = QuoteSettleStatusType
end _: /em
--------------------
char _:
--------------------
start _: em
no = 213
nm = valueStyleRefinedType
mn = 1
dm = ValueStyleRefinedType
vl = 9121
ov = 9121
end _: /em
--------------------
char _:
--------------------
start _: tx
no = 213
nm = quoteTypeSchemeSymbol
mn = 1
vl = 03_Fondspreise
ov = 03_Fondspreise
end _: /tx
--------------------
char _:
--------------------
start _: em
no = 213
nm = fixingCapitalEventType
mn = 0
dm = FixingCapitalEventType
end _: /em
--------------------
char _:
--------------------
start _: lg
no = 213
nm = valueDescr
mn = 0
end _: /lg
--------------------
char _:
--------------------
start _: R
no = 213
nm = listingInformation
end _: /R
--------------------
char _:
--------------------
start _: R
no = 213
nm = providedService
end _: /R
--------------------
char _:
--------------------
start _: R
no = 213
nm = quoteListings
end _: /R
--------------------
char _:
--------------------
start _: RD
no = 213
nm = quoteType
mn = 0
kyA = quoteTypeIdSymbol/quoteTypeSchemeSymbol
end _: /RD
--------------------
char _:
--------------------
end _: /OB
--------------------
char _:
--------------------
end _: /RP
--------------------
char _:
--------------------
start _: RP
mn = 0
--------------------
char _:
--------------------
start _: OB
cl = QuoteValue.FIOMObject
no = 213.51
vr = 1.43
od = 5
mn = 1
--------------------
char _:
--------------------
start _: tx
no = 51
nm = provider1ID
mn = 0
ky = 1
end _: /tx
--------------------
char _:
--------------------
start _: tx
no = 51
nm = provider2ID
mn = 1
ky = 1
vl = 20070413K02004L21NULK02_1_4
ov = 20070413K02004L21NULK02_1_4
end _: /tx
--------------------
char _:
--------------------
start _: tx
no = 51
nm = provider3ID
mn = 0
ky = 1
end _: /tx
--------------------
char _:
--------------------
start _: tx
no = 213
nm = quoteTypeIdSymbol
mn = 1
vl = 03_K02_1_4
ov = 03_K02_1_4
end _: /tx
--------------------
char _:
--------------------
start _: em
no = 213
nm = valueType
mn = 1
dm = ValueType
vl = 9002
ov = 9002
end _: /em
--------------------
char _:
--------------------
start _: ft
no = 213
nm = quoteValue
mn = 1
vl = 71.76
ov = 71.76
end _: /ft
--------------------
char _:
--------------------
start _: em
no = 213
nm = valueStyleType
mn = 1
dm = ValueStyleType
vl = 4
ov = 4
end _: /em
--------------------
char _:
--------------------
start _: ft
no = 213
nm = quoteSize
mn = 0
end _: /ft
--------------------
char _:
--------------------
start _: sp
no = 213
nm = quoteTime
mn = 1
vl = 13.04.2007 - 99:99:99 @99
ov = 13.04.2007 - 99:99:99 @99
end _: /sp
--------------------
char _:
--------------------
start _: em
no = 213
nm = sizeStyleType
mn = 0
dm = SizeStyleType
end _: /em
--------------------
char _:
--------------------
start _: em
no = 213
nm = reliabilityType
mn = 0
dm = ReliabilityType
end _: /em
--------------------
char _:
--------------------
start _: fg
no = 213
nm = isCorrection
mn = 0
end _: /fg
--------------------
char _:
--------------------
start _: sp
no = 213
nm = validUntil
mn = 0
end _: /sp
--------------------
char _:
--------------------
start _: em
no = 213
nm = settlementTimeType
mn = 0
dm = SettlementTimeType
end _: /em
--------------------
char _:
--------------------
start _: em
no = 213
nm = settlementCodeType
mn = 0
dm = SettlementCodeType
end _: /em
--------------------
char _:
--------------------
start _: em
no = 213
nm = settlementStatusType
mn = 0
dm = QuoteSettleStatusType
end _: /em
--------------------
char _:
--------------------
start _: em
no = 213
nm = valueStyleRefinedType
mn = 1
dm = ValueStyleRefinedType
vl = 9121
ov = 9121
end _: /em
--------------------
char _:
--------------------
start _: tx
no = 213
nm = quoteTypeSchemeSymbol
mn = 1
vl = 03_Fondspreise
ov = 03_Fondspreise
end _: /tx
--------------------
char _:
--------------------
start _: em
no = 213
nm = fixingCapitalEventType
mn = 0
dm = FixingCapitalEventType
end _: /em
--------------------
char _:
--------------------
start _: lg
no = 213
nm = valueDescr
mn = 0
end _: /lg
--------------------
char _:
--------------------
start _: R
no = 213
nm = listingInformation
end _: /R
--------------------
char _:
--------------------
start _: R
no = 213
nm = providedService
end _: /R
--------------------
char _:
--------------------
start _: R
no = 213
nm = quoteListings
end _: /R
--------------------
char _:
--------------------
start _: RD
no = 213
nm = quoteType
mn = 0
kyA = quoteTypeIdSymbol/quoteTypeSchemeSymbol
end _: /RD
--------------------
char _:
--------------------
end _: /OB
--------------------
char _:
--------------------
end _: /RP
--------------------
char _:
--------------------
start _: R
no = 208
nm = providedService
--------------------
char _:
--------------------
start _: RP
mn = 0
--------------------
char _:
--------------------
start _: OB
cl = ProvidedService.FIOMObject
no = 310.51
vr = 1.43
od = 11
mn = 4
--------------------
char _:
--------------------
start _: tx
no = 51
nm = provider1ID
mn = 0
ky = 1
end _: /tx
--------------------
char _:
--------------------
start _: tx
no = 51
nm = provider2ID
mn = 0
ky = 1
end _: /tx
--------------------
char _:
--------------------
start _: tx
no = 51
nm = provider3ID
mn = 0
ky = 1
end _: /tx
--------------------
char _:
--------------------
start _: dt
no = 310
nm = beginDate
mn = 0
end _: /dt
--------------------
char _:
--------------------
start _: dt
no = 310
nm = endDate
mn = 0
end _: /dt
--------------------
char _:
--------------------
start _: WR
no = 310
tn = BTID2
nm = institution
--------------------
char _:
--------------------
start _: id
no = 0_BTID2
tn = BTID2
nm = destinationKey
mn = 3
vl = 1 Institution 848758
ov = 5 Abwicklungsstelle 4039 Betreuer 4039 Institution 848758 IBEI DE08487588 DB_KEY 54487
end _: /id
--------------------
char _:
--------------------
end _: /WR
--------------------
char _:
--------------------
start _: WR
no = 310
tn = BTID5
nm = instrumentService
--------------------
char _:
--------------------
start _: id
no = 0_BTID5
tn = BTID5
nm = destinationKey
mn = 4
vl = 1 InvestmentFondsPreise WMGruppe
end _: /id
--------------------
char _:
--------------------
end _: /WR
--------------------
char _:
--------------------
end _: /OB
--------------------
char _:
--------------------
end _: /RP
--------------------
char _:
--------------------
end _: /R
--------------------
char _:
--------------------
end _: /R
--------------------
char _:
--------------------
end _: /OB
--------------------
char _:
--------------------
end _: /RP
--------------------
char _:
--------------------
end _: /R
--------------------
char _:
--------------------
end _: /OB
--------------------
char _:
--------------------
end _: /FOF
<?xml version="1.0" encoding="ISO-8859-1" ?>
<!DOCTYPE FOF (View Source for full doctype...)>
<FOF Name="BBH3" Date="20070413" Last="1">
<OB cl="FOMessage.FIOMMessage.FIOMObject" no="1019.1008.51" vr="1.43" od="1" mn="0">
<tx no="51" nm="provider1ID" mn="0" ky="1" />
<tx no="51" nm="provider2ID" mn="0" ky="1" />
<tx no="51" nm="provider3ID" mn="0" ky="1" />
<sp no="1008" nm="creationTime" mn="0" />
<tx no="1008" nm="author" mn="0" />
<nu no="1019" nm="revisionNo" mn="0" />
<sp no="1019" nm="createTimestamp" mn="0" />
<tx no="1019" nm="createUserID" mn="0" vl="WMS" />
<tx no="1019" nm="initiatorId" mn="0" />
<tx no="1019" nm="messageFromID" mn="0" vl="iss-blade4.local.wmgruppe.de_21221_2_0" />
<tx no="1019" nm="messageToID" mn="0" vl="iss-blade4.local.wmgruppe.de_21221_2_0" />
<fg no="1019" nm="isEndOfDelivery" mn="0" />
<fg no="1019" nm="isExecuted" mn="0" />
<R no="1019" nm="fiomData">
<RP mn="0">
<OB cl="QuoteHolder.TopLevelObject.FIOMObject" no="208.1080.51" vr="1.43" od="2" mn="3">
<tx no="51" nm="provider1ID" mn="0" ky="1" />
<tx no="51" nm="provider2ID" mn="1" ky="1" vl="WMS" ov="" />
<tx no="51" nm="provider3ID" mn="0" ky="1" />
<cr no="208" nm="currency" mn="4" ky="1" vl="6 WKN 965642
Waehrung_BdB EO ISIN EU0009656420 BoersenkuerzelInland EUR
Waehrung_ISO4217 EUR DB_KEY 69" />
<R no="1080" nm="result" />
<R no="1080" nm="vdpsInformation">
<RP mn="0">
<OB cl="VDPSInformation.FIOMObject" no="160.51" vr="1.43" od="3" mn="3">
<tx no="51" nm="provider1ID" mn="0" ky="1" />
<tx no="51" nm="provider2ID" mn="0" ky="1" />
<tx no="51" nm="provider3ID" mn="0" ky="1" />
<fg no="160" nm="hasPendingActivities" mn="4" vl="FALSE" />
<tx no="160" nm="vstName" mn="0" vl="QuoteHolder" />
<tx no="160" nm="vstVersion" mn="0" vl="WM_003a" />
<em no="160" nm="foType" mn="4" dm="FOType" vl="500" />
<tx no="160" nm="createUserID" mn="0" vl="WMS" />
<sp no="160" nm="createTimestamp" mn="0" vl="05.07.2005 - 22:02:15 @0" />
<tx no="160" nm="updateUserID" mn="3" vl="WMS" ov="unknown" />
<sp no="160" nm="updateTimestamp" mn="3" vl="16.04.2007 - 10:24:40 @0" ov="15.04.2007 - 11:26:04 @0" />
<nu no="160" nm="vstQuality" mn="4" vl="10" />
<fg no="160" nm="isRelevant" mn="4" vl="TRUE" />
<tx no="160" nm="modificationReason" mn="0" />
<nu no="160" nm="revisionNo" mn="3" vl="529" ov="528" />
<tx no="160" nm="remarks" mn="0" />
<fg no="160" nm="hasFutureMessages" mn="0" />
<nu no="160" nm="vstRequiredQuality" mn="4" vl="5" />
<tx no="160" nm="provider1Symbol" mn="0" ky="1" />
<tx no="160" nm="provider2Symbol" mn="0" ky="1" />
<tx no="160" nm="provider3Symbol" mn="0" ky="1" />
<em no="160" nm="dataStatusType" mn="0" dm="DataStatusType" />
<nu no="160" nm="vstMaximumQuality" mn="0" vl="10" />
<nu no="160" nm="newVstQuality" mn="1" vl="10" ov="" />
<fg no="160" nm="isChecked" mn="0" />
<tx no="160" nm="messageInfo" mn="0" />
<fg no="160" nm="fotWizardIsDisabled" mn="0" />
<em no="160" nm="blockingCodeType" mn="0" dm="BlockingCodeType" />
<em no="160" nm="logicDeletionType" mn="0" dm="LogicDeletionType" />
<tx no="160" nm="foDBKey" mn="0" />
<fg no="160" nm="isOnDB" mn="4" vl="TRUE" />
<fg no="160" nm="isFastInsertion" mn="0" />
<em no="160" nm="priorityType" mn="0" dm="PriorityType" />
<R no="160" nm="genericInformations" />
<R no="160" nm="areaInformations" />
</OB>
</RP>
</R>
<R no="1080" nm="control" />
<R no="1080" nm="pendingActivity" />
<R no="1080" nm="pendingChange" />
<WR no="208" tn="BTID3" nm="instrument">
<id no="0_BTID3" tn="BTID3" nm="destinationKey" mn="3" vl="1 WKN977961" ov="5 CommonCode 8492301 WKN 977961 ISIN DE0009779611BoersenkuerzelInland FPJB DB_KEY 18022" />
</WR>
<R no="208" nm="recentQuoteValues">
<RP mn="0">
<OB cl="QuoteValue.FIOMObject" no="213.51" vr="1.43" od="4" mn="1">
<tx no="51" nm="provider1ID" mn="0" ky="1" />
<tx no="51" nm="provider2ID" mn="1" ky="1" vl="20070413K01005L21NULK02_1_4" ov="20070413K01005L21NULK02_1_4" />
<tx no="51" nm="provider3ID" mn="0" ky="1" />
<tx no="213" nm="quoteTypeIdSymbol" mn="1" vl="03_K02_1_4" ov="03_K02_1_4" />
<em no="213" nm="valueType" mn="1" dm="ValueType" vl="9001" ov="9001" />
<ft no="213" nm="quoteValue" mn="1" vl="75.35" ov="75.35" />
<em no="213" nm="valueStyleType" mn="1" dm="ValueStyleType" vl="5" ov="5" />
<ft no="213" nm="quoteSize" mn="0" />
<sp no="213" nm="quoteTime" mn="1" vl="13.04.2007 - 99:99:99 @99" ov="13.04.2007 - 99:99:99 @99" />
<em no="213" nm="sizeStyleType" mn="0" dm="SizeStyleType" />
<em no="213" nm="reliabilityType" mn="0" dm="ReliabilityType" />
<fg no="213" nm="isCorrection" mn="0" />
<sp no="213" nm="validUntil" mn="0" />
<em no="213" nm="settlementTimeType" mn="0" dm="SettlementTimeType" />
<em no="213" nm="settlementCodeType" mn="0" dm="SettlementCodeType" />
<em no="213" nm="settlementStatusType" mn="0" dm="QuoteSettleStatusType" />
<em no="213" nm="valueStyleRefinedType" mn="1" dm="ValueStyleRefinedType" vl="9121" ov="9121" />
<tx no="213" nm="quoteTypeSchemeSymbol" mn="1" vl="03_Fondspreise" ov="03_Fondspreise" />
<em no="213" nm="fixingCapitalEventType" mn="0" dm="FixingCapitalEventType" />
<lg no="213" nm="valueDescr" mn="0" />
<R no="213" nm="listingInformation" />
<R no="213" nm="providedService" />
<R no="213" nm="quoteListings" />
<RD no="213" nm="quoteType" mn="0" kyA="quoteTypeIdSymbol/quoteTypeSchemeSymbol" />
</OB>
</RP>
<RP mn="0">
<OB cl="QuoteValue.FIOMObject" no="213.51" vr="1.43" od="5" mn="1">
<tx no="51" nm="provider1ID" mn="0" ky="1" />
<tx no="51" nm="provider2ID" mn="1" ky="1" vl="20070413K02004L21NULK02_1_4" ov="20070413K02004L21NULK02_1_4" />
<tx no="51" nm="provider3ID" mn="0" ky="1" />
<tx no="213" nm="quoteTypeIdSymbol" mn="1" vl="03_K02_1_4" ov="03_K02_1_4" />
<em no="213" nm="valueType" mn="1" dm="ValueType" vl="9002" ov="9002" />
<ft no="213" nm="quoteValue" mn="1" vl="71.76" ov="71.76" />
<em no="213" nm="valueStyleType" mn="1" dm="ValueStyleType" vl="4" ov="4" />
<ft no="213" nm="quoteSize" mn="0" />
<sp no="213" nm="quoteTime" mn="1" vl="13.04.2007 - 99:99:99 @99" ov="13.04.2007 - 99:99:99 @99" />
<em no="213" nm="sizeStyleType" mn="0" dm="SizeStyleType" />
<em no="213" nm="reliabilityType" mn="0" dm="ReliabilityType" />
<fg no="213" nm="isCorrection" mn="0" />
<sp no="213" nm="validUntil" mn="0" />
<em no="213" nm="settlementTimeType" mn="0" dm="SettlementTimeType" />
<em no="213" nm="settlementCodeType" mn="0" dm="SettlementCodeType" />
<em no="213" nm="settlementStatusType" mn="0" dm="QuoteSettleStatusType" />
<em no="213" nm="valueStyleRefinedType" mn="1" dm="ValueStyleRefinedType" vl="9121" ov="9121" />
<tx no="213" nm="quoteTypeSchemeSymbol" mn="1" vl="03_Fondspreise" ov="03_Fondspreise" />
<em no="213" nm="fixingCapitalEventType" mn="0" dm="FixingCapitalEventType" />
<lg no="213" nm="valueDescr" mn="0" />
<R no="213" nm="listingInformation" />
<R no="213" nm="providedService" />
<R no="213" nm="quoteListings" />
<RD no="213" nm="quoteType" mn="0" kyA="quoteTypeIdSymbol/quoteTypeSchemeSymbol" />
</OB>
</RP>
<R no="208" nm="providedService">
<RP mn="0">
<OB cl="ProvidedService.FIOMObject" no="310.51" vr="1.43" od="11" mn="4">
<tx no="51" nm="provider1ID" mn="0" ky="1" />
<tx no="51" nm="provider2ID" mn="0" ky="1" />
<tx no="51" nm="provider3ID" mn="0" ky="1" />
<dt no="310" nm="beginDate" mn="0" />
<dt no="310" nm="endDate" mn="0" />
<WR no="310" tn="BTID2" nm="institution">
<id no="0_BTID2" tn="BTID2" nm="destinationKey" mn="3" vl="1 Institution 848758" ov="5 Abwicklungsstelle 4039 Betreuer 4039 Institution 848758 IBEI DE08487588 DB_KEY 54487" />
</WR>
<WR no="310" tn="BTID5" nm="instrumentService">
<id no="0_BTID5" tn="BTID5" nm="destinationKey" mn="4" vl="1 InvestmentFondsPreise WMGruppe" />
</WR>
</OB>
</RP>
</R>
</R>
</OB>
</RP>
</R>
</OB>
</FOF>
------------------------------
Date: Wed, 25 Apr 2007 18:44:44 -0700
From: sl123@netherlands.area
Subject: Re: Read xml file and write data to a txt file using PERL.... urgent
Message-Id: <ku0033t7dg41p1eemj7gsg38duvqq4ehhi@4ax.com>
On Wed, 25 Apr 2007 18:37:44 -0700, sl123@netherlands.area wrote:
>On 17 Apr 2007 13:17:28 -0700, Ram <ramesh9999@gmail.com> wrote:
>
><snip>
>
>Here, I managed to clean it up for you. Parse away!
>If you have more files just let me know. I use RXParse module.
>
>Cheers
>
>
Btw, I just love all those German bank accounts and passwords
------------------------------
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 381
**************************************
