perl 多行注释
刚在一篇博客上看的如下内容：
成段注释：
1、=cut; ......; =cut;
2、=head; ......; =cut;
3、<< TXT; ......; TXT
4、# 单行注释
---------------------------------------------------------------
具体测试了一下，结果如下：
#!/usr/bin/perl -w
use strict;
my $a = 0;
=pod #ok
$a = aaa;
=cut
=head #ok
$a = bbb;
=cut
#<
by flyfeel - Perl - 2011-08-04 11:21:38 阅读（27944） 回复（18）
文件比较大，不方便直接打开处理。 任务是这样的 ABC： 1234 XXXXXXXX XXXXXXXX DEF： 34456 需要找到ABC所在的行，拿到后面的数字，然后找到与ABC这一行最近的DEF这一行，同样拿到后面的数字，组成一个hash 我是perl的新手，希望大家给个指点~~~
大家好， 我有一个字符串$a，可能是多行的，比如 Date:ａａａ Date:ｂｂｂ Date:ｃｃｃ 每行都以Date开头，请问我怎么使用ｐｅｒｌ来解读这个文本，得到行数呢，只需要得到多少行的信息。 谢谢
最近有一个好玩的例子： cat test : [quote] 1. a; 2. b; 3. c; 4. d; 5. e; 6. f; 7. g; 8. h; 9. i; 10. j; 11. k; [/quote] 数字为行号， 后面是内容。。。。 最后想要的结果是： [quote] a b c f i d g j e i k [/quote] 意思就是先把前俩行提取出来， 然后后面跟： 第3行，第6行，第9行的数据； 第4行， 第7行，第10行的数据； 第5行。第8行， 第11行的数据； 也就是3个一组...
问题如下 要处理的内容[code]style='font-family:SimHei;mso-ascii-font-family:Arial'>【汽柴油价格20日起每吨提高350元】 style=...
我有一个xml文件如下：
有个返回字符串@output=“fan 1 ok fan 2 ok fan 3 ok” 如何分别匹配到这3个OK ? $fan="@output1"; @fan=~ m/^ Fan \d (\w+)/im; 另外还有一个问题 如果不确定有几个该 怎么办？
我有个文件，共3列，其中1,2列用；分隔了多个数据。 我想把第一列的第一个数字和第二列的第一个数字输出，第三列也输出。以此类推，第列和2列的按顺序组合，并都输出第三列 如下 76718350;76719775;76720425;76721875 175;125;125;100 chromosome.9 76709850;76716250;76716700 100;100;125 chromosome.10 。。。。。。 想要的结果如下 76718350 175 chromosome.9 76719775 125 chromosome.9 767...
我完全是门外汉，最近有一个文档要处理，如何用perl来做？谢谢了 一个文本文件里有多行如下，数量不定 Lif(__amscript_cd("www.xizi.com")){__amscript_wc('#closead {display:none;}');}; Lif(__amscript_cd("www.xizi.com")){__amscript_wc('#footer_win {display:none;}');}; Lif(__amscript_cd("www.xizi.com")){__amscript_wc('.mainad {display:none;}');}; Lif(__amscript_cd("www.xizi.com")){__amscript_wc('.mt5.recomme...
