自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

学习记录

分享和记录一些实例和问题

  • 博客(20)
  • 收藏
  • 关注

原创 条件操作符?:|建立二维数组的简洁形式

#!/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 684

原创 自定义分隔符|/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 236

原创 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 983

原创 \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 188

原创 小骆驼 第六章 哈希

#!/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 120

原创 小骆驼 第五章 输入与输出

输入文件句柄#!/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 124

原创 小骆驼 第五章 输入与输出

调用参数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 215

原创 小骆驼 第三章 列表与数组

环境上下文#!/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 81

原创 小骆驼 第三章 列表与数组

数组到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 163

原创 小骆驼 第三章 列表与数组

列表#!/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 73

原创 小骆驼 第二章 标量数据

$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 113

原创 小骆驼 第一章 简介

小骆驼 第一章 简介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 132

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除