- 论坛徽章:
- 6
|
本帖最后由 stanley_tam 于 2014-06-24 20:58 编辑
试试这个{:3_184:}- #!perl
- use Modern::Perl;
- use FileHandle;
- my $data_href = +{};
- for my $file ('a', 'b', 'c', 'd'){
- my @lines = FileHandle->new($file, 'r')->getlines;
- chomp @lines;
- $data_href->{$file} = \@lines;
- }
- my $out_fh = FileHandle->new('output.txt', 'w');
- $out_fh->printf("%-10s%-10s%-10s%s$/", 'file A:', 'file B:', 'file C:', 'file D:');
- for my $a_item ( @{ $data_href->{a} } ){
- my $in_b = $a_item ~~ $data_href->{b} ? 'Y' : 'N';
- my $in_c = $a_item ~~ $data_href->{c} ? 'Y' : 'N';
- my $in_d = $a_item ~~ $data_href->{d} ? 'Y' : 'N';
- $out_fh->printf("%-10s%-10s%-10s%s$/", $a_item, $in_b, $in_c, $in_d);
- }
- $out_fh->close;
- __END__
复制代码 |
|