根据以下程序画流程图并输出到文件h1.doc中：#！/usr/bin/perl use warnings;使用严格;打印“放入数据：\n”;chomp（我的$ori = <STDIN>）;我的@data;我的$n;我的@n = （128，64，32，16，8，4，2，1）;foreach $n（@n） { if（$ori>=$n） { $ori = $ori-$n; push（@data，“1”）; } else{push（@data，“0”）;} } 我的$data = join（“，”，@data）;print“十进制数=>二进制数：@data\n”;

以下是该程序的流程图：


输出到文件可以使用Perl内置的文件处理函数open、print和close。具体代码如下：

#!/usr/bin/perl
use warnings;
use strict;

print "Put into the data:\n";
chomp(my $ori = <STDIN>);

my @data;
my $n;
my @n = (128, 64, 32, 16, 8, 4, 2, 1);
foreach $n (@n) {
    if ($ori >= $n) {
        $ori = $ori - $n;
        push(@data, "1");
    } else {
        push(@data, "0");
    }
}

my $data = join(",", @data);
print "十进制数=>二进制数：@data\n";

# 将输出重定向到文件
open(my $fh, '>', 'h1.doc') or die "Can't open file: $!";
print $fh "十进制数=>二进制数：@data\n";
close $fh;

运行后，输出的结果会写入到文件h1.doc中。