不好意思，perl版人实在太少，借贵宝地一用 文本如下： ; ; ; ; ; 要截取的内容[rate=100][ser=1150345] ; ; 如何把“要截取的内容”从这一堆（这些每行都用回车换行的）里取出来？ 就是只要要截取的内容

不好意思，perl版人实在太少，借贵宝地一用 文本如下： ; ; ; ; ; 要截取的内容[rate=100][ser=1150345] ; ; 如何把“要截取的内容”从这一堆（这些每行都用回车换行的）里取出来？ 就是只要要截取的内容

不好意思，perl版人实在太少，借贵宝地一用 文本如下： ; ; ; ; ; 要截取的内容[rate=100][ser=1150345] ; ; 如何把“要截取的内容”从这一堆（这些每行都用回车换行的）里取出来？ 就是只要要截取的内容

:em02: 前辈们好 我最近做一个linux下自动顶帖子的工具，用wget自动登录，有时需要自动发贴。 可是post的时候中文要用url编码，不知道有没有perl写好的程序，可以直接调用的 谢谢

# ip add 1: lo: mtu 16436 qdisc noqueue state UNKNOWN link/loopback 00:00:00:00:00:00 brd 00:00:00:00:00:00 inet 127.0.0.1/8 scope host lo inet6 ::1/128 scope host valid_lft forever preferred_lft forever 2: eth0: mtu 1500 qdisc pfifo_fast state UP qlen 1000 link/ether 52:54:00:3e:b5:3e brd ff:ff:ff:ff:ff:ff inet ...

$str="D:\test\aaa.txt" 如何不使用模块得到 "aaa.txt"

本帖最后由 linuxnature 于 2013-07-03 14:37 编辑 修改一个别人写的perl脚本, 运行时想要传入参数name 进去,假设传入的内容为abc_def_123 , 然后在perl脚本中截取第一个下划线后面的内容, 即在这里截取到 def_123 请问怎么实现呢? 查到了使用substr()函数,但是第一个下划线前面的字符数量是不固定的, 所以也不适用 我是perl小白,还请大家帮忙解答. 补充: 非常感谢大家的回答,但我实在是小白的可以,看不太懂. 给大家贴个例子...

在perl脚本中生成字符串，要将字符串写入文件，有没有简单办法写入？就像shell中的echo > filename

比如我想把一个文本文件中每隔两个字符插入\\ 刚学perl，请大家指点啊:D

我google了无数帖子了，没有找到一个合理的方法， 请看这个例子， #!/usr/bin/perl %seen = (); sub foo1 { my $x = shift; my %see = %$x; $see{1} = "2"; my $num = $see{1}; print "$num haha\n"; return (\%see); } sub foo2 { my $x = shift; my %see = %$x; my $num = $see{1}; print "$num haha\n"; } $seen2 = foo1(\%seen); foo2(\%seen); printf("\n"); foo2($seen2); -------------------...