之前一直以为chomp函数只是去掉字符串末尾的\n, 但是今天写程序遇到一个bug,最后的原因就处在chomp上: 读取fasta文件,内容如下: >1 ATGCTAGCTACGTACGTACGTTTTTTTTT >2 ACGATCGACGATCGTACGTACGTACGATT >3 ATGCATGCTATACATCAGCTAATATCGCT perl中$/代表默认的输入记录的分隔符:这里将$/设置为">": #!/usr/bin/perl use warnin…

在寻找k_word时,为了去打末尾的换行符,使用chomp;但 在windows下创建的的文件,读取一行,如一行为  weather  把它赋值为$str,然后print length($str),得到8:chomp $str; print length($str) 得到7 同样在linux创建同样的文件,一样操作,结果也一样: 但问题,在linux下创建的文件,上传到linux下,一样操作,得到的是9,8: 可能是windows下的换行符是\r\n :linux下是\n; 但window下的c…

这些主要是从 "小骆驼" 书上粘贴或者摘抄出来的, 个人认为需要记的语法知识 "在某些情况下, 你可能需要在一台机器上写程序, 再传送到另一台机器上运行.这时候, 请使用"文本模式(text mode)" 或者"ASCII模式(ASCIImode)". 记住, 千万不能是"二进制模式(binary mode)"即便是文本文件, 不同的系统对待换行符的方式也有所不同, 所以碰到无法理解的换行符,某些老旧的Perl还可能…

#-1-变量使用,打印#!/usr/local/bin/perl$value=100+30+3+8;print("Value=",$value,"\n"); #-2-变量使用,打印#!/usr/local/bin/perl$value=1024;$sentence="The value of \$value is $value.\n";print($sentence); #-3-多次打印#!/usr/local/bin/perl$name=&qu…

互动出版网计算机频道.为您推荐关于perl语言的书籍教程.包括perl push.perl chomp以及perl python等perl语言内容. perl语言书籍一.<Perl语言编程 第四版(上下册)(影印版)> <perl语言编程>在1991年第一次出版时就无可争议地成为了perl的圣经,它现在依然是这门高实用性语言的入门指南. perl语言书籍二.<Perl语言入门(第六版.中文版)(Perl程序员必读之作)(china-pub首发)> 最具权威性的o'rei…

发布:thebaby 来源:net [大 中 小] perl 文件操作,包括打开.关闭文件,读取.定入文件等.原文链接:http://www.jbxue.com/article/3153.html 打开.关闭文件 open (filevar, filename) filevar为文件句柄,或者说是程序中用来代表某文件的代号 filename为文件名,其路径可为相对路径,亦可为绝对路径 open(FILE1,"file1"); open(FILE1, "/u/jqpublic/…

perl的包(package)和模块(PM) ==================================包package===========================     package mypack;  包文件的其始语句此语句定义一个名为mypack的包,从此以后定义的所有变量和sub的名字都存贮在该包关联的符号表中,直到遇到另一个package语句为止. 包文件——包是面向对象的概念 #!/usr/bin/perlpackage xxx;            pack…

用来除去最后的换行等空白字符. 例程: #!/usr/bin/perl #chomp.pl use warnings; use strict; print "Input a string & a number by order!\n"; my$the_str = <>; my$the_numb=<>; print "Input a string & a number by order!\n"; chomp(my$str_=&l…

/* * Licensed to the Apache Software Foundation (ASF) under one or more * contributor license agreements. See the NOTICE file distributed with * this work for additional information regarding copyright ownership. * The ASF licenses this file to You u…

chop是去掉字符串的最后一个字符 chomp是去掉"$/"指定的结尾符号 测试程序一: [perl] #!/bin/perl $tmp = "sincere"; chop($tmp); print "$tmp"; $tmp = "sincere"; chomp($tmp); print "$tmp"; [/perl] 输出: [code] [sincerefly@localhost perl]$ perl…