#!usr/bin/perl use utf8; #引入utf8模块 脚本内的字符串使用utf8作为编码格式 binmode(STDOUT,":encoding(gbk)"); #标准输出使用gbk作为编码格式,也可以把gbk改为gb2312 binmode(STDIN,":encoding(gbk)"); #如果涉及到输入流,例如读文件,不加这条读中文文件会出现乱码 binmode(STDERR,":encoding(gbk)"); #如果异常…

reference: https://unix.stackexchange.com/questions/182537/write-python-stdout-to-file-immediately   立即输出print内容到文件 $ export PYTHONUNBUFFERED=1 $ ./myscript.py      …

随机读写 如果一个文件句柄是指向一个实体文件的,那么就可以对它进行随机数据的访问(包括随机读.写),随机访问表示可以读取文件中的任何一部分数据或者向文件中的任何一个位置处写入数据.实现这种随机读写的功能依赖于一个文件读写位置指针(file pointer). 当一个文件句柄关联到了一个实体文件后,就可以操作这个文件句柄,比如通过这个文件句柄去移动文件的读写指针,当这个指针指向第100个字节位置处时,就表示从100个字节处开始读数据,或者从100个字节处开始写数据. 可以通过seek()函数来设置…

在shell中使用*来对文件名进行通配扩展,在Perl中也同样支持文件名通配.而且perl中的glob通配方式和shell的通配方式完全一致,实际上perl的glob函数就是直接调用csh来通配的(如果不存在csh,则使用其它shell),也因此通配是一个效率较低的操作. glob通配函数 元字符 意义 -------------------------------- [] 字符类,匹配中括号中的任一字符.注: * 匹配任意个字符 ? 匹配任意单个字符,注意,不匹配0个 ~ 匹配家目录 注意:…

perl的文件句柄不仅支持普通文件, 还支持管道,今天需要统计一个fastq文件中的序列数和碱基数,而NGS的fastq文件一般都是gzip压缩的,所以 需要读取压缩文件中的内容,代码如下: my ($fastq) = @ARGV: my ($reads, $bases) = cal_sequence_info($fastq); print qq{$reads\t$bases\n}; sub cal_sequence_info { my $fastq = shift; my $file_hand…

目的是将print的结果输出到一个文件中,比如这个文件在D:\lianxi\out.txt下,我用的windows: s = '1234' f = open (r'D:\lianxi\out.txt','w') print (s,file = f) 然后f.close() 网上也有说直接print(s,f),也就是不用file = f, 但是我试了一下好像不行啊…

Perl的优势:比C好写,比Shell高效,Linux普遍支持. #!/usr/bin/perl -w # auth: lichmama@cnblogs.com # what: split data_file by date. ; my $script_name = sprintf "%s", $fullpath =~ /[^\/]*\.pl/g; my $datafile; my $destpath; my $filename; my $ARGC = scalar @ARGV; ||…

perl...呵呵呵 按照惯例,.pm 应该保存 Perl Module,也就是 Perl 模块.例如 Socket.pm.pl 应该保存 Perl Library,也就是 Perl 库文件.例如 perldb.pl.plx 应该保存 Perl 脚本. 可是实际上大家都习惯用 .pl 来保存 Perl 脚本. 另外,use 语句会自动搜索后缀为 .pm 的文件,因此如果你想要写一个模块,那么最好还是以 .pm 做后缀好了. .pm文件通常用use module;来加载.pl文件通常用requir…

content = """We have seen thee, queen of cheese, Lying quietly at your ease, Gently fanned by evening breeze, Thy fair form no flies dare seize. All gaily dressed soon you'll go To the great Provincial show, To be admired by many a beau In…

使用JSON 模块中的 decode_json 函数,将json文件中的数据解码为perl 中的对象,然后进行处理 代码如下: #!/usr/bin/env perl use JSON; use Encode; my ($json) = @ARGV; my $context; open TXT, $json or die "Can't open $json!\n"; while (<TXT>) { $context .= $_; } close TXT; my $obj =…