00问答网
所有问题
当前搜索:
perl实现文件调用文件提取
perl
如何批量
提取
所有
文件
固定位置内容到另一个文件
答:
"; while (my $fn = readdir $dh) { next if ($fn eq '.'); # 跳过两个系统目录 next if ($fn eq '..'); next if ($fn =~ /^~/); # 看情况是否需要跳过其它
文件
next if (!($fn =~ /\.txt$/)); print "正在分析文件[$fn]\n"; &check...
新手求助关于
perl
--如何打开fsa
文件
以及
提取
数据
答:
close
FILE
;输出到新
文件
可以使用命令行重定向符>,例如:
perl
程序名.pl >list.txt 或在程序中打开然后写文件,类似 收获者888 的代码:!/usr/bin/perl
file
name = "sequence.fsa";outname = "list.txt";open(FILE, $filename) || die("Couldn't read file $filename\n");open(OUTFILE,...
如何用
perl
访问二维表格,并
提取
其中的三列数据?
答:
你这个数据看起来是文本,可以用记事本打开确认,如果是文本数据,
PERL
读取是很容易的,open打开
文件
,以行为单位读入,使用split分为数组,然后取你需要的就可以了,大概的代码如下:my ($str,@arr);open(FD,'xxx.txt');while($str=<FD>){ @arr=split(/\s+/,$str); print $arr[1]....
Perl文件
里如何
调用
另一个文件里边的命令
答:
require命令就可以啊,或者自己封装成pm库用use命令导进来
perl的文件提取
和如何处理反向负链成为正的互补链
答:
1 匹配串,/^\d+\.\.\d+\s+(-)/ #"."是元字符,需加反义字符"\";2 basepair = (A=>T, C=>G,G=>C,T=>A); #二楼建议 seq = "GCACTAGCA"; #输入字符串 rever_seq = ();while($seq){ last_char = chop $seq; #弹出字符串的最后一个字符,类似pop push @rever_...
写一个
perl
或者Python代码,
实现文件
信息
提取
为矩阵形式
答:
usr/bin/
perl
-w use strict;my %hash;open IN , "a.txt" or die $!;while <IN> { chomp;_=~/(ENSG.*?)\t(.*?)(ENSG.*?)\t(.*?)(ENSG.*?)\t(.*?)/;hash{$1}=$2;hash{$3}=$4;hash{$5}=$6;} foreach my $key (sort keys %hash){ print "$hash{$key}\...
急急急急!怎样用
perl提取文件
里特定的内容
答:
类似下面的写法,先
提取
出来,之后直接写入
文件
my $H;open $H, "+>", "out.log";while (<DATA>) {if (/\/translation="(.*?)"/) {print $1, "\n";print $H "$1\n";}}close $H;__DATA__/aa=123/bb=456/translation="MMMDDD"/aa=123/bb=456/translation="MMMDDD"/aa=123...
求
perl
或python程序,
提取文件
中首尾相同的行到一个新的文件里
答:
import re#!/usr/bin/python# -*- coding: UTF-8 -*-
file
_object = open('/tmp/baiduzhidao/CAM_READ.txt') #指定要处理的
文件
CaseList = []for line in file_object: pro_line = line.split() CaseList.append(pro_line[0] + pro_line[-1])NewCaseList = list(set(CaseLis...
perl提取
特定文本内容
答:
lines是一个数组,里面是
文件
中的每一行的内容。对该数据的操作方法是 foreach $line (@lines) # 循环读取每一行{ ... # $line是一行的内容} 读到每一行后,对该行进行操作,使用split函数进行拆分。对于不行的文件格式,有不同的拆分方法,你应该看一行列的拆分方式,比如是用的逗号分...
用
perl
提取
根据第一列名字提取第二列的数据,求可
实现
的程序
答:
简单,用哈希就行了 open(IN,$
file
);while(<IN>){ chomp;my $name=(split /\s+/,$_)[0];hash{$name}=$_;} close IN;假如你要某一行的内容,就print $hash{$name};###$name是某一列的名字
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
perl调用shell命令
perl中调用shell脚本
perl调用其他pl中的方法
perl逐行读取文件
perl 读取文件的每一行
python调用perl
html调用perl
python调用perl脚本
perl调用函数