Question

让我们调用输入文件shouldIgo.txt。我的输入文件如下所示。

雅加达巴黎德里新加坡

热冷湿

是没有失败评论

我想生成多个输出文件，其中包含

的信息

输出文件1是

城市：雅加达

天气：热

推荐？：没有

等等。城市，天气和推荐都是硬编码的。完全会有4 * 3 * 3个文件。包含所有可能的组合。这些信息中的每一个都需要存储在单独的文件中。我想我需要使用文件句柄并操纵数组。我无法达到结果。这方面的任何帮助都会有所帮助。

Answer 1

抱歉写这种方式。这是我的第一篇文章。不过我写了代码。希望它对某人有益。

#! perl -slw
use strict;
use Data::Dumper;


open(my $in, '<', 'ocean_dummy')
or die "Cannot open input.txt: $!";

my @city = split ' ', <$in>;
my @temp = split ' ', <$in>;
my @note = split ' ', <$in>;

my $i = '01';
for my $city ( @city ) {
for my $temp ( @temp ) {
    for my $note ( @note ) {
        open 0, '>', 'out' .  $i++ or die $!;
        print 0 'city: ', $city;
        print 0 'weather: ', $temp;
        print 0 'recommended: ', $note;
        close 0;
    }
}
}

在perl中对数组执行操作后获取输入文件并打印多个输出文件

1 个答案: