Sql Server中用变量名作为表名的解决方案_preparedstatement sql變量為表名怎麼處理

相关文章推荐

get the name of DNA file
read in the DNA file
for each regulatory element
	if element in DNA, then
		add one to the count
print count

```
$proteinfilename = 'NM_021964fragment.pep';
open( PROTEINFILE, $proteinfilename );
# 然后就可以把读入的PROTEINFILE存到数组中
```
```
@bases = ('A', 'C', 'G', 'T');
print @bases; #输出结果没空格
print "@bases"; #输出结果有空格
```

@bases = ('A', 'C', 'G', 'T');
@reverse = reverse @bases;
print "@reverse\n\n";
# T G C A

@bases = ('A', 'C', 'G', 'T');
splice ( @bases, 2, 0, 'X' );
print "@bases\n";
# A C X G T

```
# 统计碱基数目
foreach $base (@DNA){
    $count++; #效果等同于$count += 1
```

while ($DNA =~ /a/ig) {$a++} #统计A碱基的数目(i表示不区分大小写)

# DNA翻译成蛋白序列(codon2aa是一个子程序，记录了密码子与氨基酸的对应)
for (my $i=0; $i<(length($dna)-2);$i += 3){
    $protein .= condon2aa (substr($dna, $i, 3));
return $protein;

while(CONDITION) {BLOCK}
until(CONDITION) {BLOCK}
for(INITIALIZATION ; CONDITION ; RE-INITIALIZATION ) {BLOCK}
foreach VAR (LIST) {BLOCK}
for VAR (LIST) {BLOCK}
do {BLOCK} while (CONDITION)
do {BLOCK} until (CONDITION)

# 例如：'123456' =~ /34/ 可以匹配成功




    

$&就表示匹配上的内容'34'
$`表示匹配成功前面的内容'12'
$'表示匹配成功后面的内容'56'

$alphabet = 'abcdefghijklmnopqrstuvwxyz';
$alphabet =~ /(((a)b)c)/;
print "First pattern = ", $1,"\n";
print "Second pattern = ", $2,"\n";
print "Third pattern = ", $3,"\n";
#First pattern = abc
#Second pattern = ab
#Third pattern = a

#如果不加括号，变量只会存储数组中的元素个数
@array = ('one', 'two');
$a = @array;
print $a;
# 结果为2
#加上括号，就变成了只有一个元素的列表，结果就是数组在列表中按行求值，并且括号中有几个元素，就能捕获到数组中几个变量
@array = ('one', 'two');
($a,$b) = @array;
print "$a $b";
#结果为 one two

use warnings;
"AAC\nGTT" =~ /^.*$/; #使用^.*$可以匹配除了换行符外的任意字符
print $&, "\n";
# 结果报错
# 原因就在于：在中间出现了一个换行符，默认的模式修饰不能识别，因此可以转换成m修饰，会从字符串开头一直匹配到第一个换行符(即便出现在内部)
"AAC\nGTT" =~ /^.*$/m;
print $&, "\n";
#结果输出AAC，$&就是匹配到的内容
# 如果用/s，就可以匹配包括换行符在内的所有
"AAC\nGTT" =~ /^.*$/s;
print $&, "\n";
# AAC
# GTT

```
my $first = '3.14159265';
my $second = 76;
my $third = "Hello world!";
printf STDOUT "A float: %6.4f An integer: %-5d and a string: %s\n", 
$first, $second, $third;
#结果生成
A float: 3.1416 An integer: 76      and a string: Hello world!
```

sub addbase {
    my ($dna) = @_; #perl的特殊数组是“_”。my用来声明一个新变量，只在包裹的代码块中有效
    $dna .= 'ATGC';
    return $dna

#!/usr/bin/perl -w
use strict; #强制声明变量
# 主程序
# 定义变量USAGE作为程序帮助文档，其中包含所有命令行参数[这里包括了$0和DNA]
# $0也是特殊变量，表示这个perl脚本名；DNA指的是需要的DNA序列
my ($USAGE) = "USAGE：$0 DNA\n\n"
# 数组变量@ARGV是内置变量，其中包含输入的参数；如果没有输入参数就打印程序帮助文档USAGE
unless (@ARGV){
    print $USAGE;
    exit;
my ($dna) =$ARGV[0]; #提取数组第一个元素，注意要换成$提取(perl的坐标从0开始)
my ($sum_Gs) = countG($dna);
print "\nThe DNA $dna has $sum_Gs G\'s in it!\n\n";
exit;
sub countG{
    my ($dna) = @_;
    my ($count) = 0;
    $count = ($dna =~ tr/Gg//);
    return $count;

#!/usr/bin/perl -w
use strict;
my $i=2;
subvalue($i);
print "In the main program, the result is $i\n";
exit;
sub subvalue{
    my ($i)=@_;
    $i += 100;
    print "In the sub program, the result is $i\n";
#In the sub program, the result is 102
#In the main program, the result is 2

#!/usr/bin/perl -w
use strict;
my @i = ('1','2','3');
my @j = ('a','b','c');
print "Mian-1 program: i = "."@i\n";
print "Mian-1 program: j = "."@j\n";
subvalue(\@i,\@j);
print "Main-2 program: i = "."@i\n";
print "Main-2 program: j = "."@j\n";
exit;
sub subvalue{
    my($i,$j)=@_;
    print "Sub program: i = "."@i\n";
  print "Sub program: j = "."@j\n";
  push(@$i,'4');
  shift(@$j);
#Mian-1 program: i = 1 2 3
#Mian-1 program: j = a b c
#Sub program: i = 1 2 3
#Sub program: j = a b c
#Main-2 program: i = 1 2 3 4
#Main-2 program: j = b c

#前提得到Genbank文件@Genbankfile
#sub open_file
#	given the filename, return the filehandle
sub open_file {
    my ($filename) = @_;
    my $fh;
    unless (open($fh, $filename)){
        print "cannot open\n";
        exit;
    return $fh;
# 这里只是列一个基本思路
my $linenumber = 0;
my $end;
my $origin;
foreach my $line (@Genbankfile){
    if ($line =~ /^//\n/) {
        $end = $linenumber;
        last;
    }elsif ($line =~ /^ORIGIN/){
        $origin = $linenumber;
    $linenumber++;
@annotation = @Genbankfile[0..($origin-1)];
@seq=@Genbankfile[($origin+1)..($end-1)];

076-为什么要学编程？

Perl和Python之间，我先选择Perl

什么是编程语言？

编程过程

伪代码帮记录

常用元素

有用的操作

连接

替换–s///

反转数组–reverse

互补–tr

获取长度–scalar

任意位置插入–splice

拆解–split

取子集–substr

变量初始化

循环

排序

范围操作符

逻辑操作符

快速调用匹配值

正则表达

模式修饰

输出

子程序

编写子程序示例

传递数据给子程序

重复使用的子程序—模块/库

应用

一：提取Genbank序列和注释信息