PERL

PERL

sub check_required_items{
my $who=shift;
my %which_script= map {$_,1} @_;
my @scripts=qw(perl python r java go javascript c c# c++);
for my $script (@scripts) {
unless ($which_script{$script}){
print “$who not use $script.\n”;
}
}
}

my @which_scripts=qw( perl python r java );
check_required_items(‘xiaoming’,@which_scripts);

smyang2018

跳至工具栏