How to validate input data from file,
the below simple code ,matches without the END block ,
How to solve this input ,such that only those records with END block
are matched ?
Data::Domain or Parse::RecDescent ?
open(IN,"inputdatafile")
while(<IN>){
if(/^BEGIN/ .. /^END/){
add content to hash
}
else {
do something else
}
}
INPUTDATAFILE
=============================
BEGIN
begindata1set
data1 data2 data3
datax datay dataz
enddata1set
begindata2set
data1 data2 data3
datax datay dataz
enddata2set
END
BEGIN
begindata1set
data1 data2 data3
BEGIN
begindata1set
data1 data2 data3
datax datay dataz
enddata1set
begindata2set
data1 data2 data3
datax datay dataz
enddata2set
END
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
