-
每日一读 TidBITS.Take.Control.of.Your.Paperless.Office
所属栏目：[大数据] 日期：2020-12-16 热度：54
最近公司在推行无纸化办公，大概是响应低碳吧。倒真是收到了立竿见影的效果，每次打印完后，大家都不看正面了，先翻过来瞅瞅背面是啥玩意。结果还真是五花八门，什么淘宝上的小饰品啊，Google地图啦等等。公司还大力表彰了废纸利用，(⊙o⊙)，是不是该查查谁[详细]
-
Perl教程
所属栏目：[大数据] 日期：2020-12-16 热度：152
?http://www.cbi.pku.edu.cn/chinese/documents/perl/index.htm[详细]
-
perl 字符加减
所属栏目：[大数据] 日期：2020-12-16 热度：188
my $f = chr( ord('A') + 5); print $f,"/n"; ? 打印结果是 F[详细]
-
Perl2exe issues
所属栏目：[大数据] 日期：2020-12-16 热度：133
就像在食堂吃虾糊一样，如果我是厨师的话，做好这道菜之后，会不会想起来把虾须处理一下再给顾客呢？ 1.perl2exe 隐藏下源码。写好之后要自己先体验一下吧，觉得合适再release出去。这个老师叮嘱过的。 2.perl GUI实现下交互。这样用户可以体验到程序的执行[详细]
-
perl批量建站脚本
所属栏目：[大数据] 日期：2020-12-16 热度：136
本脚本适用于apache的配置文件，进行批量建站。 #!/usr/bin/perl while(){ ????????????????chomp; ????????????????my @p=split (/ /,$_); ????????????????print SITE; VirtualHost $p[2]:80 ????????????????VirtualDocumentRoot /home/web/$p[0] ???????[详细]
-
perl常用函数
所属栏目：[大数据] 日期：2020-12-16 热度：74
1. chmop ?功能: 去除字符串行尾的换行符 ?只能用在一个变量上,且该变量内容为字符串. ?ps: 莫名其妙的功能. 2. shift unshift ?shift:截掉数组中第一个元素,unshift:向数组中从前端(左端)添加一个元素,使之成为数组的第一个元素. 3. reverse ?功能:字符串反[详细]
-
Perl/tk之font
所属栏目：[大数据] 日期：2020-12-16 热度：157
1.pack is the most commonly used 2.The grid geometry manager has been improved greatly with the release of Tk 8.0 and subsequent porting to Perl. 3.The place geometry manager is the most tedious to use,because you have to determine exact c[详细]
-
perl中替换文本一例
所属栏目：[大数据] 日期：2020-12-16 热度：175
由于工作需要，需要批量建立网站，修改配置文件。开始时用sed去批量修改的，最后改装成perl了。 #!/usr/bin/perl while(){ chomp; @line=split(/s+/,$_); open FH," /home/test/$line[0]/wp-config.php"; my @webfile; while(FH){ ????????s/(ME|ER)','root[详细]
-
perl读书笔记
所属栏目：[大数据] 日期：2020-12-16 热度：75
1、变量，数组 类型???? 字符?? 例子??????? 用途 标量???? $???? $cents????? 一个独立的数值（数字或字串） 数组???? @???? @large????? 一列数值，用编号做键值 散列???? %???? %interest?? 一组数值，用字串做键值 子过程?? ???? show?????? 一段可以调[详细]
-
Perl的File::Temp模块简约说明
所属栏目：[大数据] 日期：2020-12-16 热度：115
?? ? ?require File::Temp; ?? ? ?use File::Temp (); ?? ? ?use File::Temp qw/ :seekable /; ?? ? ?$fh = File::Temp-new(); ?? ? ?$fname = $fh-filename; ?? ? ?$fh = File::Temp-new(TEMPLATE = $template); ?? ? ?$fname = $fh-filename; ?? ? ?$tmp =[详细]
-
question
所属栏目：[大数据] 日期：2020-12-16 热度：101
1). What arguments do you frequently use for the Perl interpreter and what do they mean? 2). What does the command ‘use strict’ do and why should you use it? 3). What do the symbols $ @ and % mean when prefixing a variable? 4). What elem[详细]
-
"Can't locate Net/SNMP.pm in @INC.....&#
所属栏目：[大数据] 日期：2020-12-16 热度：167
How do I install Net::SNMP? ?? ?? ?? ?? ?perl module ?? ?? ?? ?? ?There are 2 ways of doing this ? ?? ?? ?? ? 1) By CPAN (best) ? ?? ?? ?? ?on command line,as root : ? ?? ?? ?? ??? ? ?? ?? ?? ???[your_host]# perl -MCPAN -e shell ? ?? ?? ??[详细]
-
上下文
所属栏目：[大数据] 日期：2020-12-16 热度：69
?? ? ?大家都知道在子程序中可以通过my ($a,$b) = @_;来获取参数， ?? ? ?但是当参数为一个的时候，经常有人会写成 my $a = @_; ?? ? ?这时候是标量上下文，$a的值始终为@_的个数，因此在你搞错的时候，perl无法提出警告。 ?? ? ?想要获取入参时，要改为my ([详细]
-
模拟电路设计的九个级别（转载）
所属栏目：[大数据] 日期：2020-12-16 热度：64
从网上看到的，感觉有点意思，有没有科学性先不谈，作为激励自己提高的动力，转载一下吧 一段 你刚开始进入这行，对PMOS/NMOS/BJT什么的只不过有个大概的了解，各种器件的特性你也不太清楚，具体设计成什么样的电路你也没什么主意，你的电路图主要看国内杂志[详细]
-
Perl中state（）和localtime（）函数
所属栏目：[大数据] 日期：2020-12-16 热度：165
stat函数 perl下的stat函数和shell下的stat命令的功能基本一致，也是取得文件的各类具体信息： stat()函数返回一个数组，下面是数组各个元素的含义： 0???? dev????? 设备号 驱动器号（C：通常是2，D：通常是3，等等） 1???? ino????? 索引节号 总是0 2????[详细]
-
perl实现设置环境变量并运行程序
所属栏目：[大数据] 日期：2020-12-16 热度：78
? 需求：perl脚本控制实验过程，由于不同的应用程序需要设置不同的实验环境，因此需要根据输入重置环境变量。环境变量的初始化方法为：source env.sh与source henv.sh，编译命令为$compile，执行命令为$run，要求必须在重置的环境变量里编译执行程序。 ? ??[详细]
-
数模将要结束
所属栏目：[大数据] 日期：2020-12-16 热度：190
?? 经过这次建模，发现自己跟白痴一样 ?? C++大部分都已经忘记了，其它语言一窍不通 ?? 我曾经想过，要是我会perl多好，虽然我很看不起Java，但此时我也不禁要想，我要是懂一些Java多好[详细]
-
perl笔记之ping批量检查IP是否连通
所属栏目：[大数据] 日期：2020-12-16 热度：66
perl笔记之ping批量检查IP是否连通 2011-03-04 15:00:44 标签： perl ping net::ping 批量ping 原创作品，允许转载，转载时请务必以超链接形式标明文章 原始出处 、作者信息和本声明。否则将追究法律责任。 http://www.voidcn.com/article/p-anusolws-ca.htm[详细]
-
perl 模块使用范例
所属栏目：[大数据] 日期：2020-12-16 热度：109
已有模块： 说明： 以下例子代码的测试是在FreeBSD Solaris下进行的，Perl版本为5.005_03。????? (1) LWP::Simple,get()? (2) Time::HiRes,gettimeofday(),usleep()? (3) Net::FTP? (4) Expect? (5) XML::Simple,XMLin()? (6) Data::Dumper,Dumper()? (7) IO[详细]
-
perl 时间
所属栏目：[大数据] 日期：2020-12-16 热度：166
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time()-3600*17); $year += 1900; $mon++; if($mon 10){ $mon='0'.$mon; } if($mday 10){ $mday='0'.$mday; } ? if($hour 10){ $hour='0'.$hour; } my $today=$year.$mon.$mday; 1天之[详细]
-
mvc在perl中的应用
所属栏目：[大数据] 日期：2020-12-16 热度：173
? 1.介绍 首先说需求，要做一个基于CGI的VPN管理程序。由于之前从来没有用过perl，在初期也遇到了很多困难。这个项目进行了4个月，只有我和一位同事来实现，我负责界面，她负责数据处理。其实里面的东西很多，如果要写的话可能不只是几页纸能写完的。这里仅[详细]
-
perl 正则内插变量
所属栏目：[大数据] 日期：2020-12-16 热度：196
1. my $sql="insert“; #不能匹配 if($sql=~m{/Q$re/E}){ print "succ1n"; } #可以匹配 if($sql=~m{$re}){ print "succ1n"; } 2.，如果标量为： $scalar = " ({"; 那么输入如下代码： $variabie =~ m" $scalar" ; 就等价于是说：$variable =~ m"({"，而这[详细]
-
【Perl】 Require 和 USE的区别
所属栏目：[大数据] 日期：2020-12-16 热度：55
1 都是引入模块，语法： ?????? use ModuleName; ?????? require ModuleName; ???ModuleName 不必加pm扩展名 ? 2 区别之一，use语句是编译时引入的，require是运行时引入的。 ? ? 3 区别之二，use语句所做的事情比require要多一点点,一条 ???????? use Modul[详细]
-
perl词典分词
所属栏目：[大数据] 日期：2020-12-16 热度：189
从网上看了一篇perl分词的程序，运行程序后发现，数字全部给分开了，例如，“2010年国家GDP是...”，运行程序后结果为“2 0 1 0 年 国家 G D P 是 ....”，文中“2010”是不应该分开的，我改进了这个程序，可以实现数字不分开，如下： #!/usr/bin/perl print[详细]
-
KDJ计算_Perl代码
所属栏目：[大数据] 日期：2020-12-16 热度：184
# Calculate the KDJ value of an array of numbers.# @(K,D,J) = calcKDJ(# /@closepAry,/@lowpAry,/@highpAry,# $rsv_days,$Kdays,$Jdays,$preDaysCnt) # @closepAry -- Close Price Array sorted in descendent date order # $preDaysCnt -- start calcul[详细]
