随笔分类 - Perl
摘要：直接上代码my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 ); my %count; my @uniq_times = grep { ++$count{ $_ } < 2; } @array;
阅读全文
摘要：直接看代码吧#获取文件path路径中文件名（去掉目录路径）sub get_file_basename{ my ($file_path) = @_; my @tmp_arr = split(/[\\|\/]+/,$file_path); my $len = @tmp_arr; if ($len >=2...
阅读全文
摘要：Perl数组排序数值类型数组排序使用：sort { $a $b } @array; 升序排列sort { $b $a } @array; 降序排列字符串类型数组排序使用：sort { $a cmp $b } @array; 升序排列sort { $b cmp $a } @array; 降序排列c...
阅读全文
摘要：Python版本2.7.9模拟POST请求 1 #coding:u8 2 import urllib 3 import urllib2 4 5 url = u"http://192.168.84.182:8000/Home/GetTheme" 6 params = urllib.urlencode...
阅读全文
摘要：1、while循环 while ( ) { }2、until循环 until ( ) { }3、for循环 ，如 for ($count=1; $count <= 5; $count++) { # statements inside the loop go h...
阅读全文
摘要：1 my $dir = "D:\\My_Work\\Temp"; 2 my @files = (); 3 4 #获取给定目录下文件 5 @files = get_dir_files($dir); 6 7 #获取给定目录以及子目录下文件 8 @files = get_dir_files_...
阅读全文
摘要：昨天在测试一个网页接口，页面返回GBK类型的xml数据，对其进行xml的解析，然后打印遇到了编码问题，随后查了相关资料，顺利解决，总结一下。Perl中的字符串有两种形式，一种是字节数组，另一种是utf-8编码的字符串。Perl如何确定当前字符串是属于哪一种呢？在Perl的内部，一个字符串是由两部分组...
阅读全文
