Amit Saxena wrote:
#! /usr/bin/perl

use warnings;
use strict;

open (PTR1, "<filename.txt") or die "Unable to open file filename.txt :
$!\n\n";

while (chomp ($str = <PTR1>))
{
      sscanf($str, "%5d %11.2f", $data1, $data2);

      # do whatever processing.....
}

close (PTR1);

Regards,
Amit Saxena



sscanf()?

--
Brad

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to