学习记录

#!/usr/bin/perluse strict;use warnings;my @arr;foreach(1..4){ push @arr,[0,0,0,0];}my ($i,$j);for($i=0;$i<5;$i++){ for($j=0;$j<5;$j++) { print "$arr[$i][$j]
";...

Needleman_Wunsch算法思路：1.建立二维数组2.建立评分模式load1：向右；-2load2：向下；-2load3：对角线；依据是否配得到匹配：+1不匹配：-13.双层循环如图：matrix_score:动态规划过程过程如下图：首先计算【2,2】的得分，并依据线路规则的到期与所有得分；依据线路方式选择arrow的记录（离散化？）如图：matrix_arrow...

小骆驼 第八章 用正则表达式进行匹配#!/usr/bin/envperluse strict;use warnings;$_ ="#adchbehnyhme3534f
vdh5ejbnv _+IHG
";if(m%(a)%){print "$1
";}else{print "no match!
";}if(/(i)/i){print "$1...

#!/bin/shles species_latinName_abbr.txt|grep -E 'Aptenodytes|Gavia|Phoenicopterus|Chlamydotis|Phaethon' | awk '{printf $1","}'##APTFO,CHLUN,GAVST,PHALE,PHORUcat a.txt | awk '{a[i]=1;END{getline ...

#!/usr/bin/perluse strict;use warnings;$_ = 'ab \ cde f ghijk10.x12ln';if(/d/){print "get!
";}if(/x/){print "get!
";}else{print "no match!
"}if(/\p{space}/){print "get!
";}else{print "...

#!/usr/bin/perluse strict;use warnings;my %fruit;$fruit{'ap'.'ple'} = 1;$fruit{'banana'} = 2;$fruit{'peach'} = 3;foreach my $choice (qw(apple banana peach x)){ print "$fruit{$choice}
"...

输入文件句柄#!/usr/bin/perluse strict;use warnings;# cat 1.txt# ssssssssssss# ssssssssss# ddddddddddddopen TXT, '<', '1.txt';binmode TXT;my $new = '5.txt';open NEW_TXT,'>:encoding(UTF-8)'...

输出到标准输出ssssssssssssssssssssssdddddddddddd2222222222sssssssssssssssss#!/usr/bin/perluse strict;use warnings;my @arr = (1,2,3,3);print "@arr
";print @arr."
";print @arr;print "
";##...

调用参数1.txtssssssssssssssssssssssdddddddddddd2222222222sssssssssssssssss#!/usr/bin/perluse strict;use warnings;while(<>){ chomp; $_ = <>; print "$_";}##sssssssss...

读取标准输入#!/usr/bin/perluse strict;use warnings;my $line=<STDIN>;my $err = defined($line);print "$err
";##j##1foreach(<STDIN>){ print "I saw $_
";}##kk##kkwhile(defi...

#!/usr/bin/perluse strict;use warnings;use 5.010;&print_hello;sub print_hello{ my $hello = 'hello'; print "$hello
";}###hellomy $three=3;my $four =4;my $sum = &add;pr...

比对两个文件并纠错#!/usr/bin/perluse strict;use warnings;###############################################main################################my %hash_txt = &read($ARGV[0]);my %hash_out = &read($A...

环境上下文#!/usr/bin/envperluse strict;use warnings;$_ = "ABCDEFG";print;print"
";##ABCDEFG$_ = reverse $_;print;print "
";##GFEDCBAmy @arr = reverse (1..10); print "@arr
";##10 9 8 7 6...

数组到foreach#!/usr/bin/envperluse strict;use warnings;foreach (qw( a b c )) { print "$_";} print "
"; ##abcforeach ('a','b','c' ) { print "$_";} print "
"; ##abcprint qw(a\\...

列表#!/usr/bin/envperluse strict;use warnings;if( ( 1 , 2 , 3 ) eq ( 1 , 2 , 3 , ) ) {print "right
";}else{print "wrong
";}##rightif( ( 1..3 ) eq ( 1 , 2 , 3 ) ){print "right
";}...

数组#!/usr/bin/envperluse strict;use warnings;my @arr; $arr[2] ="apple" ;print "$arr[3.14-1]
"; #$arr[5_234_567_890] = "abc";print "$arr[1_234_567_890]
";##apple##my $end = $#arr;my $len...

控制结构#!/usr/bin/envperluse strict;use warnings;my $word = chr (0x05D0);print "$word
";my $code_point = ord( 'א' );print "$code_point
";print "\x{05D0}
";##Wide character in print at test...

$val部分#!/usr/bin/envperluse strict;use warnings;my $number = 3;$number **= 3;print "$number
"; ##27print "lucky number is " , 8*11,".
" ;##lucky number is 88.my $empty_number ;...

数字与字符串#!/usr/bin/envperluse strict;use warnings;##加斜表示同一个数字my $number = 124567890;my $new_number = 1_2_3456_7890;print "$number = $new_number
";##不同进制的数字my $octal_number = 0017;my...

小骆驼 第一章 简介1.// input 和截取字符#!usr/bin/perluse strict;use warnings;while ( <> ){chomp;print join("\t",(split/:/)[0,2,1,5]),"
";}// say = print+
#!/usr/bin/envperluse 5.01...