Re^2: Code that copy's multiple times a $ from a document

[Waterdrake]

i just need to copy the sequences what i mean by that i have a sequence and before it a number. this number corresponds to how many times i need the sequence to be copied. again an example but whit fruits because its easier

 
2 apples 
i need it to write  1-1 -> apple 
                    1-2 -> apple

and then do the same whit other fruits in the list and save them in a txt document

[GotToBTru]

use strict;
use warnings;

my $sc = 1;
while (<DATA>) {
  my (undef,$repeat,$seq) = split /\s+/,$_;
  my $i = 1;
  while ($repeat--) {
    printf "%d-%d %s\n",$sc,$i++,$seq;
  }
  $sc += 1;
}

__DATA__
1 2 tt
2 3 aa
3 1 dd

Output

1-1 tt
1-2 tt
2-1 aa
2-2 aa
2-3 aa
3-1 dd

[Waterdrake]

Thank you very much.

[poj]

#!perl
use strict;
use warnings;

open FH, '<', 'filename.txt' or die $!;
open FHWRITE, '>>','results.txt' or die $!;
my $count;
while (my $line = <FH>){
  print $line;
  my ($i,$repeat,$seq) = split /\s+/, $line;
  print FHWRITE "$i-$_ $seq\n" for (1..$repeat);
  $count += $repeat;
}
print "\n$count records written to results.txt\n";

poj