Question

麻烦帮忙解释一下 perl语言写的/^!Series_description = (.*)$/ 是什么意思，谢谢

上面这句话放在if语句中，即if( /^!Series_description = (.*)$/ )

Answer 1

这个是正则表达式匹配。如果检测的那一行有Series_description = ，并且该字符串前面的字符不是!，后面有一个()，里面可以有字符串也可以没有，)就是该行的最后一个字符，则表达式为真。

追问

好的，谢谢你啦，解释得很清楚~我需要看懂一个perl程序，因为只需要看懂一个，所以不太想系统学语法，感觉perl语言的符号会比C，C++难懂些，有什么好的方法建议吗？谢谢

追答

这种编程入门稍微难一点，因为可读性不好。感觉应该没办法速成。要是方便的话你还是在百度知道公布程序吧，一般来说这种程序都不长，高手们抽时间看看说不定能解释出来。

追问

程序太长了，字数有限制…大致的我能看懂了~麻烦你再解释一下if(/^\^sample = GSM(.*)/) 好吗？不好意思啊，我的问题有点多，嘻嘻~谢谢你啦~（程序源码http://genotext.stanford.edu/geo_to_mysql.pl）

追答

实在是不好意思，今天下午太忙了，一直没空看这个代码。其实我也是个半调子，而且有段时间没学习了，忘了太多。刚才赶紧把书打开来看了一下，发现自己回答错了。你的第一个问题的答案应该是检测的那一行如果开头就是!Series_description = ，判断即为真，后面的括号里的字符串赋给下面一行的$1。第二个问题我没太大把握，先回答一下，有机会我找我朋友来看看，如果错了我再说一次，这里检测的那一行如果开头就是^sample = GSM即为真，同样，GSM后面的括号里面应该有个字符串，会赋给下一行的$1里面。不晓得这样回答你明白了没有？没有的话私信给我。