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

代码片段 8064

#Perl
Bracket Match

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

2015-12-14 119

#Perl
把vcf文件转换为genetype

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

2015-12-14 786

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

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

2015-12-14 306

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

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

2015-12-14 845

#Perl
计算N位数字的自幂数(水仙花数)

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

2015-12-14 426

#Perl
prim最小生成树

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

2015-12-14 976

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

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

2015-12-14 142

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

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

2015-12-14 866

#Perl
Perl 创建控制台模式的进程窗口

#!/usr/bin/perl -w use Win32; use Win32::Process; $ApplicationName = 'c:/perl/bin/perl.exe…

2015-12-14 377

#Perl
Perl 使用 HTTP::Request 请求 URL 并将响应保存到文件

use LWP::UserAgent; $user_agent = new LWP::UserAgent; $request = new HTTP::Request('GET', …

2015-12-14 677

#Perl
Perl 获取 Windows 系统的版本

#!/usr/bin/perl -w use Win32; @os = Win32::GetOSVersion(); print "Version $os[1]\.$os[2] B…

2015-12-14 968

#Perl
Perl 的 gethostbyname 使用方法

# The syntax is (name, altnames, addrtype, len, addrs) = gethostbyname (inname); #!/usr/lo…

2015-12-14 293
1 53 54 55 56 57 672