Re^2: While Loops


Syntactic Confectionery Delight
	PerlMonks

Re^2: While Loops

by blue_cowdawg (Monsignor)

on Jan 08, 2013 at 19:02 UTC ( [id://1012313]=note: print w/replies, xml )

Need Help??

in reply to Re: While Loops
in thread While Loops

#!/usr/bin/perl -w 
use strict;

my @data=();
my $file='c:\text.txt';
my $count=0;
open FILE,"< $file" or die "$file: $!";

while (my $line =<FILE> ){
      chomp $line;
      push @data,[split /\t/,$line];
      $count++;
      next if $count < 99; 
      while ($#data >= 0 ) {
          printf "%s\n",join(",",shift @data);
      } 
      $count = 0;
}
[download]

So.. how much more of your homework do you need me to do?

Peter L. Berghold -- Unix Professional
Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg