perl入门2.pptxVIP

Perl 入门;列表与数组;列表与数组;特殊的数组索引;排序;遍历数组;默认变量;哈希;访问整个哈希;循环;#!/usr/bin/perl -w use strict; my %name=(gene1=2838, gene2=2344 , gene3=2567); print ** first which each **\n; while( my ($key, $value) = each %name ){ last if ($key eq gene1); print $key = $value\n; } print ** second which each **\n; while ( my ($key , $value) = each %name){ print $key = $value\n; };文件句柄;按行读入文本文件Input_file，在每行最后加上\tOK字符串后输出 open (IN,,Input.txt) while(1){ $line=IN; last unless($line); chomp $line; print $line\tOK\n; };子程序;比较两个数的大小的函数 sub max{ if ( $_[0] $_[1] ){ $_[0]; }else{