ject: Help reqd. for collecting data
>
> Hi ,
> I am having one text file in this format
> 2002_01_17_2345 8 9 0 0 36 0 0 2 24 0 22 0 0 0 0
> 2002_01_18_ 2 2 0 0 38 0 0 0 28 0 28 0 0 0 0
> 2002_01_18_0015 8 9 0 0 38 0 0 2 24 0 22 0 0 0 0
> 2002_
I am just looking for an intro to PERL. I am getting an old machine to
install LINUX on and don't know the first thing to do...
Is there any websights or tutorials for absolute beginners?
Thanks.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
> -Original Message-
> From: Pete Emerson [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, January 23, 2002 2:13 PM
> To: [EMAIL PROTECTED]
> Subject: Re: Help reqd. for collecting data
>
>
> Here's my stab at it:
>
> #!/usr/bin/perl -w
>
> us
Here's my stab at it:
#!/usr/bin/perl -w
use strict;
my %info;
open INFILE, "$ARGV[0]" or die "Can't open file: $!\n"; # Open file specified on
command line
while () {
chomp;
my ($date, @data)=split; # Capture the date, then the rest
$date=~s/_\d{4}$//; # Re
