(unknown)
zilore mumba <[email protected]> Mon, 10 Sep 2012 14:03:33 -0700 (PDT)
| Newsgroups | gmane.comp.lang.perl.active-perl |
|---|---|
| Message-ID | <[email protected]> |
--===============0084221954==
Content-Type: multipart/alternative;
boundary="-2030432097-1223213150-1347311013=:51453"
---2030432097-1223213150-1347311013=:51453
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable
I have a data file (ex. Below) which starts=0Awith the year, month and day =
and midway it changes to day, month and year. =0AI have used the code snipp=
et below to rewrite=0Athe data, but it does not work=0A=A0my $dateST =3D qr=
{\d{4} \d{2} \d{2}};=0Amy $dateEND =3D qr{\d{2} \d{2} \d{4}};=0Amy $line;=
=0A=0A=0A=A0 while=0A(<$infd>)=0A=A0 {=0A=A0=A0=A0 if($line =3D~ /^$ dateST=
/)=0A=A0=A0=A0=A0 {=0A=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 =A0 my ($year,$mon=
th,$day,$hour,$min,$sec,@rain)=0A=3D split;=0A=A0=A0=A0=A0=A0 $_ =3D sprint=
f "%5.1f", $_ foreach=0A@rain;=0A=A0 =0A=A0=A0=A0=A0=A0 #=0Aprint $outfd " =
$year $month $day $hour $min $sec\t", join("=0A", @rain), "\n";=0A=A0=A0=A0=
=A0=A0=A0=A0=A0=A0=A0=A0 =A0=A0 print " $year $month $day $hour $min=0A$sec=
\t", join(" ", @rain), "\n";=0A=A0=A0=A0=A0 }=0A=A0=A0=A0=A0=A0=A0=A0=A0=A0=
=A0=A0 elsif($line=0A=3D~ /^$ dateEND /)=0A=A0=A0=A0=A0 {=0A=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0=A0 =A0 my ($month,$day,$year,$hour,$min,$sec,@rain)=0A=3D s=
plit;=0A=A0=A0=A0=A0=A0 $_ =3D sprintf "%5.1f", $_ foreach @rain;=0A=A0 =0A=
=A0=A0=A0=A0=A0 #=0Aprint $outfd " $year $month $day $hour $min $sec\t", jo=
in("=0A", @rain), "\n";=0A=A0=A0=A0=A0=A0=A0 print " $year $month $day $hou=
r $min $sec\t", join("=0A", @rain), "\n";=0A=A0=A0=A0=A0 }=0A=A0 }=0AHelp w=
ill be appreciated.=0AZilore=0A=0A2012-07-04T15:00:00=A0=A0=A0=A0=A0 29.44=
=A0=A0=A0 30.70=A0=A0=A0 32.14=A0=A0=A0 0.85=A0=A0=A0=A0=A0 100.00=A0 25.52=
=A0=A0=A0 25.81=A0=A0=A0 26.11=A0=A0=A0 0.16=A0=A0=A0=A0=A0 100.00=A0 853.8=
7=A0 853.92=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 853.94=A0 0.00=A0=A0=A0=A0=A0 =
100.00=0A04/07/2012 15.10.00=A0=A0=A0=A0=A0=A0 28.33=A0=A0=A0 29.41=A0=A0=
=A0 31.47=A0=A0=A0 0.99=A0=A0=A0=A0=A0 100.00=A0 25.80=A0=A0=A0 26.01=A0=A0=
=A0 26.27=A0=A0=A0 0.14=A0=A0=A0=A0=A0 100.00=A0 853.88=A0 853.91=A0=A0=A0=
=A0=A0=A0=A0=A0=A0=A0=A0 853.95=A0 0.00=A0=A0=A0=A0=A0 100.00=0A=0A=0ANote =
I first remove the dashes and slashes in=0Athe date.
---2030432097-1223213150-1347311013=:51453
Content-Type: text/html; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable
<html><body><div style=3D"color:; background-color:; font-family:arial, hel=
vetica, sans-serif;font-size:10pt"><div><span style=3D"font-size:10.0pt;">I=
have a data file (ex. Below) which starts=0Awith the year, month and day a=
nd midway it changes to day, month and year.</span>=0A=0A</div><div class=
=3D"yiv1614176999MsoNormal" style=3D"line-height:15.0pt;"><span style=3D"fo=
nt-size:10.0pt;">I have used the code snippet below to rewrite=0Athe data, =
but it does not work</span></div>=0A=0A<div class=3D"yiv1614176999MsoNormal=
" style=3D"line-height:15.0pt;"><span style=3D"font-size:10.0pt;"> </s=
pan><span style=3D"font-size:10.0pt;">my $dateST =3D qr{\d{4} \d{2} \d{2}};=
</span></div>=0A=0A<div class=3D"yiv1614176999MsoNormal" style=3D"line-heig=
ht:15.0pt;"><span style=3D"font-size:10.0pt;">my $dateEND =3D qr{\d{2} \d{2=
} \d{4}};<br>my $line;<br><br></span></div>=0A=0A<div class=3D"yiv161417699=
9MsoNormal" style=3D"line-height:15.0pt;"><span style=3D"font-size:10.0pt;"=
><span style=3D""> </span>while=0A(<$infd>)</span></div>=0A=0A<=
div class=3D"yiv1614176999MsoNormal" style=3D"line-height:15.0pt;"><span st=
yle=3D"font-size:10.0pt;"><span style=3D""> </span>{</span></div>=0A=
=0A<div class=3D"yiv1614176999MsoNormal" style=3D"line-height:15.0pt;"><spa=
n style=3D"font-size:10.0pt;"><span style=3D""> =0A</span>=
if($line =3D~ /^$ dateST /)</span></div>=0A=0A<div class=3D"yiv1614176999Ms=
oNormal" style=3D"line-height:15.0pt;"><span style=3D"font-size:10.0pt;"><s=
pan style=3D""> </span>{</span></div>=0A=0A<div cla=
ss=3D"yiv1614176999MsoNormal" style=3D"line-height:15.0pt;"><span style=3D"=
font-size:10.0pt;"><span style=3D""> &nb=
sp; </span><span style=3D""> </span>my ($year=
,$month,$day,$hour,$min,$sec,@rain)=0A=3D split;</span></div>=0A=0A<div cla=
ss=3D"yiv1614176999MsoNormal" style=3D"line-height:15.0pt;"><span style=3D"=
font-size:10.0pt;"><span style=3D""> </span><span style=3D""> &nb=
sp; </span>$_ =3D sprintf "%5.1f", $_ foreach=0A@rain;</span></=
div>=0A=0A<div class=3D"yiv1614176999MsoNormal" style=3D"line-height:15.0pt=
;"><span style=3D"font-size:10.0pt;"><span style=3D""> </span></span>=
</div>=0A=0A<div class=3D"yiv1614176999MsoNormal" style=3D"line-height:15.0=
pt;"><span style=3D"font-size:10.0pt;"><span style=3D""> &=
nbsp; </span>#=0Aprint $outfd " $year $month $day $hour $min $sec\t",=
join("=0A", @rain), "\n";</span></div>=0A=0A<div class=3D"yiv1614176999Mso=
Normal" style=3D"line-height:15.0pt;"><span style=3D"font-size:10.0pt;"><sp=
an style=3D""> &=
nbsp; </span><span style=3D""> </span>print " $year $month $day=
$hour $min=0A$sec\t", join(" ", @rain), "\n";</span></div>=0A=0A<div class=
=3D"yiv1614176999MsoNormal" style=3D"line-height:15.0pt;"><span style=3D"fo=
nt-size:10.0pt;"><span style=3D""> </span>}</span><=
/div>=0A=0A<div class=3D"yiv1614176999MsoNormal" style=3D"line-height:15.0p=
t;"><span style=3D"font-size:10.0pt;"><span style=3D""> &n=
bsp; </span>elsif($line=0A=3D~ /^=
$ dateEND /)</span></div>=0A=0A<div class=3D"yiv1614176999MsoNormal" style=
=3D"line-height:15.0pt;"><span style=3D"font-size:10.0pt;"><span style=3D""=
> </span>{</span></div>=0A=0A<div class=3D"yiv16141=
76999MsoNormal" style=3D"line-height:15.0pt;"><span style=3D"font-size:10.0=
pt;"><span style=3D"">  =
; </span><span style=3D""> </span>my ($month,$day,$year,$=
hour,$min,$sec,@rain)=0A=3D split;</span></div>=0A=0A<div class=3D"yiv16141=
76999MsoNormal" style=3D"line-height:15.0pt;"><span style=3D"font-size:10.0=
pt;"><span style=3D""> =0A</span>$_ =3D sprint=
f "%5.1f", $_ foreach @rain;</span></div>=0A=0A<div class=3D"yiv1614176999M=
soNormal" style=3D"line-height:15.0pt;"><span style=3D"font-size:10.0pt;"><=
span style=3D""> </span></span></div>=0A=0A<div class=3D"yiv161417699=
9MsoNormal" style=3D"line-height:15.0pt;"><span style=3D"font-size:10.0pt;"=
><span style=3D""> </span>#=0Aprint $outfd " =
$year $month $day $hour $min $sec\t", join("=0A", @rain), "\n";</span></div=
>=0A=0A<div class=3D"yiv1614176999MsoNormal" style=3D"line-height:15.0pt;">=
<span style=3D"font-size:10.0pt;"><span style=3D""> =
=0A</span>print " $year $month $day $hour $min $sec\t", join("=
=0A", @rain), "\n";</span></div>=0A=0A<div class=3D"yiv1614176999MsoNormal"=
style=3D"line-height:15.0pt;"><span style=3D"font-size:10.0pt;"><span styl=
e=3D""> </span>}</span></div>=0A=0A<div class=3D"yi=
v1614176999MsoNormal" style=3D"line-height:15.0pt;"><span style=3D"font-siz=
e:10.0pt;"><span style=3D""> </span>}</span></div><div class=3D"yiv16=
14176999MsoNormal" style=3D"line-height:15pt;color:rgb(0, 0, 0);font-size:1=
3.3333px;background-color:transparent;font-style:normal;"><span style=3D"fo=
nt-size:10.0pt;">Help will be appreciated.</span></div><div class=3D"yiv161=
4176999MsoNormal" style=3D"line-height:15pt;color:rgb(0, 0, 0);font-size:10=
pt;background-color:transparent;font-style:normal;"><span style=3D"font-siz=
e:10.0pt;">Zilore<br></span><div class=3D"yiv1614176999MsoNormal" style=3D"=
line-height:15.0pt;"><span style=3D"font-size:10.0pt;">2012-07-04T15:00:00<=
span style=3D"=0A"> </span>29.44<span style=
=3D""> </span>30.70<span style=3D""> </=
span>32.14<span style=3D""> </span>0.85<span style=3D"">&=
nbsp; </span>100.00<span style=3D""> </span>2=
5.52<span style=3D""> </span>25.81<span style=3D""> =
</span>26.11<span style=3D""> </span>0.16<sp=
an style=3D""> </span>100.00<span style=3D"">=
</span>853.87<span style=3D""> </span>853.92<span style=3D"">&=
nbsp; </span>85=
3.94<span style=3D"=0A"> </span>0.00<span style=3D""> &nbs=
p; </span>100.00<span style=3D""></span><span style=3D""></span=
></span></div>=0A=0A=0A<div class=3D"yiv1614176999MsoNormal" style=3D"line-=
height:15.0pt;"><span style=3D"font-size:10.0pt;">04/07/2012 15.10.00<span =
style=3D"=0A"> </span>28.33<span style=
=3D""> </span>29.41<span style=3D""> </=
span>31.47<span style=3D""> </span>0.99<span style=3D"">&=
nbsp; </span>100.00<span style=3D""> </span>2=
5.80<span style=3D""> </span>26.01<span style=3D""> =
</span>26.27<span style=3D""> </span>0.14<sp=
an style=3D""> </span>100.00<span style=3D"">=
</span>853.88<span style=3D""> </span>853.91<span style=3D"">&=
nbsp; </span>85=
3.95<span style=3D"=0A"> </span>0.00<span style=3D""> &nbs=
p; </span>100.00<span style=3D""><br></span></span></div><br></=
div>=0A=0A<div class=3D"yiv1614176999MsoNormal" style=3D"line-height:15.0pt=
;"><span style=3D"font-size:10.0pt;">Note I first remove the dashes and sla=
shes in=0Athe date.</span></div><span style=3D"font-size:10.0pt;"><span sty=
le=3D""></span><span style=3D""></span><span style=3D""></span><span style=
=3D""></span><span style=3D""></span><span style=3D""></span><span style=3D=
""></span><span style=3D""></span><span style=3D""></span><span style=3D"">=
</span><span style=3D""></span><span style=3D""></span><span style=3D""></s=
pan><span style=3D""></span><span style=3D""></span><span style=3D""></span=
><span style=3D""></span><span style=3D""></span><span style=3D""></span></=
span></div></body></html>
---2030432097-1223213150-1347311013=:51453--
--===============0084221954==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============0084221954==--