RE: help formatting string

From: [email protected] [mailto:[email protected]] On Behalf Of zilore mumba
Sent: 10 February 2012 17:33
To: 'Active State Perl Mailing List'
Subject: help formatting string

> Please help with some very simple code below which somehow I a, not getting right.
> I have strings consisting of $day, $month, $year, $hour, $min, followed by some float values which I call
> @rain, as in the attached file 'text1.txt'.
> I want rewrite this data as $year, $month, $day, $hour, $min,  @rainin as in  'text2.txt', but with the date
> also formatted to have one space between each field
> Help will be appreciated.
> Zilore
>
>
> #!/usr/bin/perl -w
> use strict;
> use warnings;
>
>  open (IN, "< text1") or die "open 'text1' failed: $!\n";
>  open (OUT, ">$text2") or die "open 'text1' failed: $!\n";
>
>  # Copy first 3 lines unchanged.
>  print OUT scalar(<IN>) for 1..3;
>
>  # Reformat the numbers on each remaining line.
>
>  while (<IN>)
>  {
>   my ($month,$day,$year,$hour,$min,@rain) = split;
>
> # printf ("%04d%02d%02d%02d%02d\n",$year,$month,$day,$hour,$min);
>   $_ = sprintf "%5.1f", $_ foreach @rain;
>
>   print OUT ($year,$month,$day,$hour,$min, join(" ", @rain), "\n");

Did you mean like ...

print OUT join(" ", $year,$month,$day,$hour,$min, @rain), "\n";


>  }
>
>  # Close files
>  close IN or die "close IN: $!\n";
>  close OUT or die "close OUT failed: $!\n";
> }

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
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs