perl语言编程pdf百度网盘_perl语言题库和答案

perl语言编程？

是#!/usr/bin/perl -w

perl语言编程pdf百度网盘_perl语言题库和答案

use strict;

use warnings;

my %element;

my $count=1;

open IN_Z,"z.txt";

open IN_OJ,"OJ.txt";

open OUT_FILE,">OJ_OUT.txt";

while(){

my @array=split;

$element{$array[1]}=join(",",@array[3..7]);

}while(){

my @array_oj=split;

foreach my $word (@array_oj){

if($element{$word}){

my @out_data=split(",",$element{$word});

foreach my $i (0..4){

print OUT_FILE $count.":".$out_data[$i]."\t";

$count++;

}}

else{

foreach (0..4){

print OUT_FILE $count.":"."0"."\t";

$count++;

}}

}print OUT_FILE "\n";

}close IN_Z;

close IN_OJ;

close OUT_FILE;