Question

我需要一个简单的珍珠重复代码，从文件中读取，让txt输入数据，然后将新数据保存在另一个txt文件中。代码需要这样做：

在第一个txt文档中，我们有一些这种格式的成果

2个苹果
3 cherry's
4个西红柿

因此代码需要执行以下操作。输入1.苹果然后它必须识别第二个数字，这是它必须写这样的字的次数

apples - ＆gt; 1-1
```
       apples
```
2。苹果 - ＆gt; 1-2
```
           apples
```

之后，对列表中的每个项重复相同的过程

代码我不知道如何制作代码我知道如何输入文件以及如何制作结果文件但是关于它

#!/usr/bin/perl\
open FH "<", "filename.txt" or die $!;

open FHWRITE, ">>results.txt" or die $!;

$fruit = 
 #dont know how for the $ to take the value of the first fruit 

$countnumb = split (' ',);

 # dont know how to take the second number for count number but i think its whit split 

$count =0; 

while ($count ne $countnumb)
{
    print "$fruit";
    $count++;
}

 # i dont know when this finishes how to make it go for the second fruit

Answer 1

一些起点

while (my $line = <FH>){
  chomp($line);
  ### process the line
  #1. 2 apples 
  if ($line =~ s!^(\d+)[\.\s]+(\d+)\s+(.+?)$!!is){
    my ($line_no,$count,$text) = ($1,$2,$3);
    ### write out
    print FHWRITE $text for (1..$count); 
  } else {
     say "Cannot process $line\n";
  }
}

一个简单的复制代码

1 个答案: