-
慢查询 日志分析工具使用
所属栏目：[大数据] 日期：2020-12-16 热度：155
其实都挺简单的东西。。。脚本都有了就不用自己写了。这个太爽了 ? ? myprofi 纯php写的一个开源分析工具.项目在 sourceforge 上. http://myprofi.sourceforge.net/ ? ? 运行： ? ?php parser.php -slow slow.log | more ? 就可以看到分析的东西了。。。 ? ?[详细]
-
初学Perl中的几个困惑
所属栏目：[大数据] 日期：2020-12-16 热度：78
？? 双引号中有“变量替换功能”，单引号没有？ ? 变量替换：使用字符串时，将字符串内的变量名称替换成该变量当前的纸，数值也可以吧 ? ？ Perl的内置警告信息 ? ？ **的用法？ 乘幂操作符 ? ？ 试验? printf "%12f/n",6*7+2/3; ??????????? printf "%12.3f[详细]
-
好久没有来了
所属栏目：[大数据] 日期：2020-12-16 热度：58
? 夜深了，正在编译版本，有个编译错误怎么也想不清楚，和编译脚本有关系，突然想起我以前存了点关于perl的文章，这才想起要过来看看。 一看才发现原来我已经有一年多没有过来了。 ? 这一年多发生了很多事情，有忙有闲，有得有失，一语难表。 ? 再过2周左右[详细]
-
Perl模块 （转）
所属栏目：[大数据] 日期：2020-12-16 热度：136
Perl模块 夜吻芭芘色 发表于2010-05-16 17:21 浏览(73) 评论(0) 分类： Perl ?????举报 纯属个人学习助记笔记，难免有疏漏之处，建议阅读原著《PERL实例精解》 =================================================================================== [模块][详细]
-
perl Carp模块使用举例（转）
所属栏目：[大数据] 日期：2020-12-16 热度：176
perl Carp模块使用举例 perl编程 2009-08-20 19:16:42 阅读 262 评论 0 ??字号： 大 中 小 ? 订阅 近日分析extmail的源代码，看到Carp的perl模块，有些搞不懂，perldoc一把，了解了其用法，放在这里备忘！ Carp模块提供了carp(),croak(),confess(),cluck(),s[详细]
-
perl脚本练习
所属栏目：[大数据] 日期：2020-12-16 热度：79
题目：? 12?34?56?78?? 24?65?87?90?? 76?11?67?87?? 100?89?78?99? 求出文本中数字的最大、小值 ? 我看很多的朋友都用shell的awk实现了，但本人对awk不是很了解，试着用perl简单的写了一下，也能实现 code: #!/usr/bin/perl?-w? ? use?strict;? use?List::U[详细]
-
做为脚本语言来说perl和python那个更有优势?
所属栏目：[大数据] 日期：2020-12-16 热度：152
? -----------------------------------看不到我----------------------------------------------- [精彩]做为脚本语言来说perl和python那个更有优势??? -----------------------------------看不到我----------------------------------------------- -----[详细]
-
读书中的无奈
所属栏目：[大数据] 日期：2020-12-16 热度：179
在中国，最典型的事情就是为生计而忙碌，没有时间和精力为理想而奋斗，甚至被工作左右而无法向理想迈出一步。相信有很多人都有这种感受。有些自己喜欢的书，就像一个女人一样，无奈且安静的躺在书架上，等待你去阅读，然而，却无暇顾及…… ? 工作中，多少时[详细]
-
Perl如何处理字符串
所属栏目：[大数据] 日期：2020-12-16 热度：143
在Perl看来,字符串只有两种形式. 一种是octets,即8位序列,也就是我们通常说的字节数组. 另一种utf8编码的字符串,perl管它叫string. 也就是说: Perl只认识两种编码: Ascii(octets)和utf8(string) 本文内容适用于perl 5.8及其以上版本. perl internal form 在P[详细]
-
我的Perl世界
所属栏目：[大数据] 日期：2020-12-16 热度：168
?作为一名IT技术人员，我感觉到非常的失败。 在从业的两年内（很快就三年），一直做着网络管理员的工作，我不是特别的鄙视这个岗位，只是我的亲身经历让我为此而感到愧疚。从2010年的12月以来，一直没有去新的工作，整天呆在家里，也不知道在做些什么，于是[详细]
-
我的Perl的认识
所属栏目：[大数据] 日期：2020-12-16 热度：151
?我想要唠叨一下Perl的事情。 Perl作为一个脚本语言，它实在是太强大，出乎我的意料。虽然我和Perl之间相识才一个多月。 Perl的数据结构 程序的事情就是数据结构加算法，数据结构让你描述自己的数据，算法作为一个包装让这个“描述”更加的完善。于是程序就[详细]
-
[Perl]FTP自动上传文件的脚本以及配置文件
所属栏目：[大数据] 日期：2020-12-16 热度：132
本应用程序设计的几个基本理念是： 工具箱再利用： 尽可能利用已有的工具； 简化运行步骤； 不引入过多的业务逻辑，满足的需求越简单越好。 所以，我们定义了本应用程序依赖于以下几个工具的运行： ActivePerl-5.8.4.810-MSWin32-x86 Upload.pl Upload.confi[详细]
-
perl 检验ip地址是否合法
所属栏目：[大数据] 日期：2020-12-16 热度：55
根据合法ip规格，写了个检验程序： 合法ip:(1..255).(0..255).(0..255).(0..255)范畴 sub report{ ??? print $_[0]; ??? exit($_[1]); } sub check_ip{ if ($_[0] =~ /^(d{1,3}).(d{1,3})$/){ ??? if($10$1256){ ??????? if($2-1$2256){ ??????????? if($[详细]
-
perl socket初步
所属栏目：[大数据] 日期：2020-12-16 热度：121
?一直对网络编程怀着莫名的期待，从学习Perl编程之后，似乎我就是充着这个来的，以至于在一知半解之后，也想来沉淀沉淀。 网络编程涉及到很多的网络基础知识，我这个windows网管对这些自然也懂一些，但真正把它说清楚，怕是力不从心了。所以，这里就写点代码[详细]
-
Perl gethostbyname
所属栏目：[大数据] 日期：2020-12-16 热度：111
?我们如何把域名翻译成IP地址呢，这个功能可以通过Perl的 gethostbyname函数来完成，虽然我不知道是否其它的办法，因为我使用这个方法一下子就完成了我脑海中想要完成的操作。 比如，我有一个文本文件，里面保存着一些网址，如下： ? www.baidu.com www.qq.c[详细]
-
s60 5版程序在symbian 3适配，升级，编译
所属栏目：[大数据] 日期：2020-12-16 热度：184
?最近在做symbian^3的适配，因为我们的假面采用的都是系统控件，所以适配起来还是挺简单的。但是，在适配过程中也遇到了一些问题。? 1、编译失败，很多头文件找不到? 这是因为symbian^3将一些头文件放在了新的文件夹下面，只要将头文件所在的目录加到mmp中就[详细]
-
perl对字符串的处理
所属栏目：[大数据] 日期：2020-12-16 热度：130
perl对字符串的处理 当我们对字符串其中的某部分做截出，替换，删除（不包括搜索）。我们可以想到的用substr,unpack,regex这些方法来做。 如果搜索，那么让我们想到的是index,rindex. (1)截出 substr $str="I'm boy,and you?"; $sex=substr($str,4,3);#boy u[详细]
-
匹配多行文本 /m用法
所属栏目：[大数据] 日期：2020-12-16 热度：190
1 00:00:09,855 -- 00:00:14,724 Britain was an object of desire. 2 00:00:26,295 -- 00:00:31,847 Tacitus declared it worth the conquest, 3 00:00:32,015 -- 00:00:35,803 the best compliment that could occur to a Roman. 如果以句号为分割，把对应[详细]
-
vhier --- 剖析 学习 verilog-perl
所属栏目：[大数据] 日期：2020-12-16 热度：131
? #!/usr/bin/perl -w# See copyright,etc in below POD section.######################################################################require 5.005;use FindBin qw($RealBin); # $RealBin 保存了当前程序所在的绝对地址use lib "$RealBin/blib/arch";[详细]
-
vppreproc -- verilog perl study
所属栏目：[大数据] 日期：2020-12-16 热度：152
######################################################################use FindBin qw($RealBin);use lib "$RealBin/blib/arch";use lib "$RealBin/blib/lib";use lib "$RealBin";use Getopt::Long;use IO::File;use Pod::Usage;use Verilog::Preproc;us[详细]
-
关于在DESTROY方法中执行命令的问题
所属栏目：[大数据] 日期：2020-12-16 热度：76
#!/usr/bin/perl package test;sub new(){ my $ref = shift; my $class = ref($ref) || $ref; my $self = {}; bless($self,$class); return $self;} sub DESTROY(){ my $self = shift; print "this is destroy/n"; my $context = $self-fn(); print $context[详细]
-
perl 文件操作相关
所属栏目：[大数据] 日期：2020-12-16 热度：131
use File::Glob ':glob'; my $filepath=$ARGV[3]; my @fileList = bsd_glob($filepath);[详细]
-
perl 连接mysql数据库
所属栏目：[大数据] 日期：2020-12-16 热度：177
#!/usr/bin/perl -w use DBI; use strict; my $dbh=DBI-connect("DBI:mysql:database=cacti;host=localhost","root","admin",{'RaiseError'=1}); my $sql = $dbh-prepare("select * from settings"); $sql-execute(); while (my @row = $sql-fetchrow_array[详细]
-
perl常用的批量改名
所属栏目：[大数据] 日期：2020-12-16 热度：133
foreach my $file (glob "*.old"){ my $newfile = $file; $newfile =~ //.old$//.new$/; if (-e $newfile) { warn "$newfile exists/n"; } elsif (rename $file $newfile){} else { warn "rename $file to $newfile failed: $!/n"; }}[详细]
-
spoj694 Distinct Substrings
所属栏目：[大数据] 日期：2020-12-16 热度：132
SPOJ Problem Set (classical) 694. Distinct Substrings Problem code: DISUBSTR ? Given a string,we need to find the total number of its distinct substrings. Input T- number of test cases. T=20; Each test case consists of one string,whose len[详细]
