$a=~tr/a-zA-Z/n-za-mN-ZA-M/#简单的加密？请问各位：这是怎么转换的呀？无法把字符和字符对应起来啊……如果$a包含A，转换为什么？？

读取一个文件：#!/usr/bin/perl-wopen(FH,"1111.txt");while($line=<FH>){    print$line;}复制代

也许这个需求不能实现，但我觉得Perl十分灵活和强大，不知道有没有办法。我需要创建如下的子例程：SubmyFunction("String")Block也既是说，这个函数包含两个参数，第一个是一个字符串，第二个是一个函数块。有点类似于if语句。我试着用函数原型的方式来定义，如：submyFuc($&)...,但不成功。是否有别的方法？望高手给予解答或提示。

RT

print"Pleaseinputyourfirstname:";my$first_name=<STDIN>;chomp($first_name);  my%last_name=(  "fred"=>"flintstone",  "barney"=>"rubble

RT

本帖最后由mcshell于2011-03-1920:39编辑有一个脚本#!/usr/bin/perlwhile(<>){chomp;@line=split(/\s+/,$_);system("sed-i  

实验室服务器用的是linux系统，我可以登录查看文件，但是今天发现我没法新建文件，每次都显示Permissiondenied。老板说他给我权限了，这是怎么回事？怎么能查看自己有哪些权限呢？

CHNRNA-dependentRNApolymerasegene,partialcds我想匹配上面格式中的RNApolymerasegene而且匹配之后它们之间还要有空格，有没有什么办法能一下子把他们全匹配出来啊？谢谢！

我想要从一个HTML文件里找出我需要的数据（一个HTML的表格）下载(3.58KB)2011-03-1910:47要抓的就是上图中【2565】那个位置上的数据~~用记事本打开,这几行就是：......<tr><tdwidth="30%"nowrap>&nbsp;1PASS</td><