代码片段 - 第60页 - 遇见资源网

首页软件开发代码片段 ( Page 60 )

代码片段 8064

分类导航：

二级分类：

全部

三级分类：

css

lua

php

sql

#Lua
以字符串形式执行Lua代码

--Defining a string to use as function later funcStr = "print('test')" --Running it direct…

lua

Lua

2015-12-14 344

#Lua
也来一份Lua模拟面向对象。

function class(super) local mt = {__call = function(_c, ...) local function create(_c, _o,…

lua _

Lua

2015-12-14 487

#Lua
示例，泛型和迭代器

function values( t ) -- body local i = 0 return function ( ... ) i = i+1 return t[i] end e…

lua

Lua

2015-12-14 172

#Perl
gff文件从gene的pos位点在基因组里面抽取序列

open FASTA,"$ARGV[0]" or die "can not open GFF file,$!"; open GFF,"$ARGV[1]" or die "can n…

perl _

Perl

2015-12-14 262

#Perl
Bracket Match

#!/usr/bin/env perl6 use v6; my \stdin = $*IN; my Int $count = +stdin.get(); for ^$count {…

perl

Perl

2015-12-14 119

#Perl
把vcf文件转换为genetype

while (<>) { next if /##/; chomp; @a=split/\s+/; @b=split/:/,$a[9];#获取0/1,1/1,1/3这样的…

perl _

Perl

2015-12-14 786

#Perl
使用Perl正则清空代码文件中所有以分号开头的注释

open(FILEHANDLE, "+<hello.asm") or die "can't open : $!\n"; @content= <FILEHANDLE>…

perl

Perl

2015-12-14 306

#Perl
Perl 菜鸟解决"易语言难题”

map {say $_,2*$_,3*$_} grep {join("",sort split("",$_.2*$_.3*$_)) eq '123456789'} 123 .. 3…

perl _

Perl

2015-12-14 845

#Perl
计算N位数字的自幂数（水仙花数）

print "input :"; chomp ($num=<STDIN>); foreach (100..(10**($num)-1)){ my $t=$_; my $…

perl _

Perl

2015-12-14 426

#Perl
prim最小生成树

#! /usr/bin/perl -w use strict; my $filepath = "input3"; my @matrix = (); my $count; my $m…

perl

Perl

2015-12-14 976

#Perl
perl 脚本去掉 word 自定义属性

#!/usr/bin/perl use Archive::Zip; use IO::File; use Data::Dumper; use XML::Simple; my $buf…

perl _

Perl

2015-12-14 142

#Perl
Perl 往数据库中插入数据

#!\usr\bin\perl use warnings; use strict; use DBI; my ($dbh, $rows); $dbh=DBI->connect(…

perl

Perl

2015-12-14 866

上一页 1 … 58 59 60 61 62 … 672 下一页

如遇问题，请联系客服
联系客服请注明来意高端主题开发
微信公众号

总裁主题·高端主题
返回顶部

代码片段 8064

总裁主题

QQ交流群