关注Perl...

摘要： 注意：localtime获取的年份是相对于1900的偏移，需要加上1900，而localtime获取的month范围是0-11,需要加1。my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime(); $year += 1900; $mon++;my $date = "$year-$mon-$day"; print $date, "\n";== 阅读全文

摘要： $也能匹配\n见Perl语言入门，page 132, 注释61 /^.*$/能匹配"\n"么？能！因为$不仅能匹配行尾，也能匹配\n2 /^.*$/能匹配"b\n"么？能！.能b匹配. \n匹配$3 /^.*$/能匹配"\nb"么？不能！为什么？因为默认情况下，.不能匹配\n,把模式改一下变成/^.*$/s就可以了，/s表示.能匹配任意字符，包括\n====多行匹配/m看一个例子，这段代码输出hellomy $text = "hello, world,\nhello zdd,\nhello autumn";whil 阅读全文

摘要： 来自CU的一道题有一组数据 ID 1 1 2 3 4 ID 2 1 2 3 4 ID 3 1 2 3 4 想变成 ID 1 1,2,3,4 ID 2 1,2,3,4 ID 3 1,2,3,4 请问该怎么写代码？谢谢了。我的代码，好复杂！use strict;use warnings;sub test { open SOURCE, '<', "d:/code/abc.txt" or die $!; open DEST, '>', "d:/code/def.txt" or die $!; my $items = q 阅读全文