17站长网

17站长网 首页 脚本perl
  • Perl从文件中读取字符串的两种方法
  • 1. 一次性将文件中的所有内容读入一个数组中(该方法适合小文件): open(FILE,"filename")||die"can not open the file: $!";@filelist=; foreach $eachline (@filelist) {      &nb
  • 时间: 2022-12-8 15:38
  • 让apache2以cgi方式运行perl cgi程序的方法
  • 1、linux系统一般自带perl可运行程序在:/usr/bin/perl 2、perl测试程序#!/usr/bin/perl -wuse warnings;print "Hello, Perl works!  "; 命名为test.pl 在终端下,定位到该目录,输入perl test.pl,perl正常
  • 时间: 2022-12-8 15:37
  • perl哈希hash的常见用法
  • 基本用法 #初始化%h为空数组 %h={};#用数组初始化%h为a=>1,b=>2  %h=('a',1,'b',2);#意义同上,只是另一种更形象化的写法。%h=('a'=>1,'b'=>2);#如果key是字符串,可以省略引号。下面这行和上面那行是
  • 时间: 2022-12-8 15:36
  • perl文件读取的几种处理方式
  • 1、单行(大文件处理):my $oneline = <$FL> 或while($line=){ } 2、读取全部(小文件处理):open (my $in, "path ") or die "open error: $! "; my @lines = <$in> ; 3、读3行(大文件及特殊处理需要):op
  • 时间: 2022-12-8 15:36
  • 使用Perl创建指定编码格式(如utf-8)文件的代码
  • 从而使得有些字符(尤其是宽字符)无法正确地显示,即不再是utf-8格式了。 解决办法:打开输出文件时即指定编码格式,就不会出现输出文件打开以后乱码的情况了。 普通的默认open输出文件:open(OUTPUT,'>>output
  • 时间: 2022-12-8 15:35
  • Perl合并文本的一段实例代码
  • 有这样一个文本文件,内容有多行如下,数量不定。Lif(__amscript_cd("www.jb51.net")){__amscript_wc('#closead {display:none;}');};Lif(__amscript_cd("www.jb51.net")){__amscript_wc('#footer_win {display:none
  • 时间: 2022-12-8 15:34
  • Perl中use和require用法对比
  • Perl use和require用法对比 对比(一)说明:这两个函数都是一个意思,加载和引用Perl的模块,或者是子程序, 区别在于Perl use是在当前默认的里面去寻找,一旦模块不在指定的区域内的化,用Perl use是不可以引入的 第
  • 时间: 2022-12-8 15:34
  • perl中的or与||的区别
  • 来看看下面的代码会输出什么?my $a = 0;$a = $a or 1;print $a, "\n";$a = $a || 1;print $a, "\n"; 输出:01为什么呢?因为||, =, or 这三者优先级从左至右逐渐降低。所以,这样写可以:chomp(my $filename = shi
  • 时间: 2022-12-8 15:33
  • perl文件操作的一些例子
  • 删除文件 使用unlinke函数,比如unlink $file, unlink $file1, $file2, $file3 打开文件 使用三参数的形式打开文件,这样非常便于区分模式和文件名,perl 5.6之后的版本都支持这种方式。#Open the 'txt' file fo
  • 时间: 2022-12-8 15:33
  • perl文件操作
  • 一、打开、关闭文件     open的返回值用来确定打开文件的操作是否成功,当其成功时返回非零值,失败时返回零,因此可以如下判断:    if (open(MYFILE, "myfile"))   &nb
  • 时间: 2022-12-8 15:33
  • perl中my与our的区别
  • 先来看下our的用法。 require 5.006当版本号小于 5.006 的时候,会返回失败,从而导致模块加载失败。所以它的作用就是保证模块调用环境的 Perl 版本。 our 和 my 一样,都是对变量的声明,不过 our 声明的是包全局
  • 时间: 2022-12-8 15:32
  • perl正则表达式
  • $也能匹配\n 见Perl语言入门,page 132, 注释6 1 /^.*$/能匹配"\n"么?能!因为$不仅能匹配行尾,也能匹配\n2 /^.*$/能匹配"b\n"么?能!.能b匹配. \n匹配$3 /^.*$/能匹配"\nb"么?不能!为什么?因为默认情况下,
  • 时间: 2022-12-8 15:31
  • Perl使用chdir的代码
  • use strict;use warnings; # Print all files in a directorysub print_files {&#160;&#160;&#160; my $dir = 'd:/code';&#160;&#160;&#160; opend ...
  • 时间: 2022-12-8 15:31
  • perl的unless控制结构
  • 例如:unless ($fred =~ /^([A-Z_]\w*$/i) {  print "The value of \$fred doesn't look like a Perl identifier name. \n";}使用unless意味着,要么条件为真,要么执行某块代码。这就好像使用if控制结构来判断
  • 时间: 2022-12-8 15:30
  • 实现perl产生随机数的代码
  • Perl利用函数rand()和srand()为随机数(更确切的说是"伪随机数")字符串的生成提供了基本的工具。这些函数不是利用加密来提供安 全性的,所以不要利用它们为你金融信息的加密。但是,如果你需要为你的下一个游戏或者
  • 时间: 2022-12-8 15:30
  • perl内置特殊变量
  • 一、正则表达式特殊变量 1、$n   :包含上次模式匹配的第n个子串2、$&   :前一次成功模式匹配的字符串3、$`   :前次匹配成功的子串之前的内容4、$'   :前次匹配成功的子串之后的内容5、$+  :前一次使用
  • 时间: 2022-12-8 15:29
  • perl用grep map求交集、并集、补集的实例代码
  • #!/usr/bin/perl## 用grep map 获取两个列表的交集并集、补集#use strict;my @a=("a","b","c","d","e");my @b=("b","g","f","e");print "列表a数据: @a \n";print "列表b数据: @b \n";my %a = map{$_ => 1} @a;my
  • 时间: 2022-12-8 15:29
  • 有关perl对中文处理的技巧详细解析
  • 下面给大家介绍的有关perl对中文处理的技巧详细解析,你可能还不知道,下面我门一起来看看,希望对需要的朋友有所帮助!Perl从5.6开始已经开始在内部使用utf8编码来表示字符,也就是说对中文以及其他语言字符的处理
  • 时间: 2022-12-5 09:19
12下一页

热门排行

    最近更新

      返回顶部