- 博客(20)
- 收藏
- 关注
RSS订阅原创 条件操作符?:|建立二维数组的简洁形式
#!/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]\n";...
2019-06-20 09:00:40
125
原创 Needleman_Wunsch
Needleman_Wunsch算法思路：1.建立二维数组2.建立评分模式load1：向右；-2load2：向下；-2load3：对角线；依据是否配得到匹配：+1不匹配：-13.双层循环如图：matrix_score:动态规划过程过程如下图：首先计算【2,2】的得分，并依据线路规则的到期与所有得分；依据线路方式选择arrow的记录（离散化？）如图：matrix_arrow...
2019-06-20 01:28:14
686
原创 自定义分隔符|/i|/x|/xs|需要转译
小骆驼 第八章 用正则表达式进行匹配#!/usr/bin/envperluse strict;use warnings;$_ ="#adchbehnyhme3534f\nvdh5ejbnv _+IHG\n";if(m%(a)%){print "$1\n";}else{print "no match!\n";}if(/(i)/i){print "$1...
2019-06-19 23:56:31
239
原创 grep取缩写|awk两个文件取交集
#!/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 ...
2019-06-19 17:26:56
984
原创 \p{space}|\p{Hex}|\p{Digit}|转译符|\1|\g{-1}|[^ab]|/([^\d\D]+)/
#!/usr/bin/perluse strict;use warnings;$_ = 'ab \ cde f ghijk10.x12ln';if(/d/){print "get!\n";}if(/x/){print "get!\n";}else{print "no match!\n"}if(/\p{space}/){print "get!\n";}else{print "...
2019-06-16 20:36:22
191
原创 小骆驼 第六章 哈希
#!/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}\n"...
2019-06-16 19:29:40
121
原创 小骆驼 第五章 输入与输出
输入文件句柄#!/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)'...
2019-06-16 17:53:20
126
原创 小骆驼 第五章 输入与输出
输出到标准输出ssssssssssssssssssssssdddddddddddd2222222222sssssssssssssssss#!/usr/bin/perluse strict;use warnings;my @arr = (1,2,3,3);print "@arr\n";print @arr."\n";print @arr;print "\n";##...
2019-06-16 15:49:36
125
原创 小骆驼 第五章 输入与输出
调用参数1.txtssssssssssssssssssssssdddddddddddd2222222222sssssssssssssssss#!/usr/bin/perluse strict;use warnings;while(<>){ chomp; $_ = <>; print "$_";}##sssssssss...
2019-06-15 20:55:40
393
原创 小骆驼 第五章 输入与输出
读取标准输入#!/usr/bin/perluse strict;use warnings;my $line=<STDIN>;my $err = defined($line);print "$err\n";##j##1foreach(<STDIN>){ print "I saw $_\n";}##kk##kkwhile(defi...
2019-06-15 19:20:38
71
原创 小骆驼 第四章 子程序
#!/usr/bin/perluse strict;use warnings;use 5.010;&print_hello;sub print_hello{ my $hello = 'hello'; print "$hello\n";}###hellomy $three=3;my $four =4;my $sum = &add;pr...
2019-06-15 18:20:52
204
原创 check.pl
比对两个文件并纠错#!/usr/bin/perluse strict;use warnings;###############################################main################################my %hash_txt = &read($ARGV[0]);my %hash_out = &read($A...
2019-06-12 14:45:36
218
原创 小骆驼 第三章 列表与数组
环境上下文#!/usr/bin/envperluse strict;use warnings;$_ = "ABCDEFG";print;print"\n";##ABCDEFG$_ = reverse $_;print;print "\n";##GFEDCBAmy @arr = reverse (1..10); print "@arr\n";##10 9 8 7 6...
2019-06-12 00:52:44
83
原创 小骆驼 第三章 列表与数组
数组到foreach#!/usr/bin/envperluse strict;use warnings;foreach (qw( a b c )) { print "$_";} print "\n"; ##abcforeach ('a','b','c' ) { print "$_";} print "\n"; ##abcprint qw(a\\...
2019-06-11 01:58:18
164
原创 小骆驼 第三章 列表与数组
列表#!/usr/bin/envperluse strict;use warnings;if( ( 1 , 2 , 3 ) eq ( 1 , 2 , 3 , ) ) {print "right\n";}else{print "wrong\n";}##rightif( ( 1..3 ) eq ( 1 , 2 , 3 ) ){print "right\n";}...
2019-06-10 00:10:34
105
原创 小骆驼 第三章 列表与数组
数组#!/usr/bin/envperluse strict;use warnings;my @arr; $arr[2] ="apple" ;print "$arr[3.14-1]\n"; #$arr[5_234_567_890] = "abc";print "$arr[1_234_567_890]\n";##apple##my $end = $#arr;my $len...
2019-06-09 23:50:45
63
原创 小骆驼 第二章 标量数据
控制结构#!/usr/bin/envperluse strict;use warnings;my $word = chr (0x05D0);print "$word\n";my $code_point = ord( 'א' );print "$code_point\n";print "\x{05D0}\n";##Wide character in print at test...
2019-06-09 21:56:51
74
原创 小骆驼 第二章 标量数据
$val部分#!/usr/bin/envperluse strict;use warnings;my $number = 3;$number **= 3;print "$number\n"; ##27print "lucky number is " , 8*11,".\n" ;##lucky number is 88.my $empty_number ;...
2019-06-09 20:18:39
156
原创 小骆驼 第二章 标量数据
数字与字符串#!/usr/bin/envperluse strict;use warnings;##加斜表示同一个数字my $number = 124567890;my $new_number = 1_2_3456_7890;print "$number = $new_number\n";##不同进制的数字my $octal_number = 0017;my...
2019-06-07 23:54:14
118
原创 小骆驼 第一章 简介
小骆驼 第一章 简介1.// input 和截取字符#!usr/bin/perluse strict;use warnings;while ( <> ){chomp;print join("\t",(split/:/)[0,2,1,5]),"\n";}// say = print+\n#!/usr/bin/envperluse 5.01...
2019-06-07 22:33:27
133
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人