一些 Perl 的笔记
0001 0002 0003 0004 0005 0006 0007 0008 0009 |
use File::Path; #开启设定档 my $file="./CONFIG"; #开启设定档 open(FHD, "$file") || die "$!n"; #传入到 all 这个 array my @all=<FHD>; #关闭档案 close(FHD); |
0001 0002 0003 0004 0005 0006 0007 0008 |
#@content 为一阵列
foreach (@content) {
#删除空白行
$_ =~ s/^$//;
#把 \n 取代为 <br>
$_ =~ s/\n/<br>/;
print "$_";
} |
0001 0002 0003 0004 0005 0006 0007 0008 0009 0010 0011 0012 |
use File::Path;
# 宣告 $cnf_file 是一个新的 Zip 物件
my $cnf_file = Archive::Zip->new();
# 把 /backup/project 存为 project 压缩目录
$cnf_file->addTree("/backup/projects", "projects");
# 把 /backup/documentss 存为 documents 压缩目录
$cnf_file->addTree("/backup/documents", "documents");
# 写入 backup.zip 压缩档
$cnf_file->writeToFileNamed("backup.zip"); |
0001 0002 0003 0004 0005 0006 0007 0008 |
# 开启 sys.cnf 并以附加方式开启 (代号为 newGLOBAL), 若失败则传出错误并结束
open (newGLOBAL, ">> system.cnf") || die "$!n";
my $newStr = "Hellon";
print newGLOBAL "$newStr";
#关闭档案
close(newGLOBAL); |
0001 0002 0003 0004 0005 0006 0007 0008 0009 0010 0011 0012 0013 0014 |
# 设定档案名称
$file = "CONFIG";
# 开启档案 (代号为 GLOBAL)
open (GLOBAL, "$file") || die "$!n";
# 设定 @content 阵列来源为 GLOBAL
my @content = <GLOBAL>;
# 关闭档案
close (GLOBAL);
# 用 foreach 读取 @contenet 的每一个列
foreach (@content)
{
# 列印内容
print $_;
} |
0001 0002 0003 |
#! /usr/bin/perl # 使用 use strict 可以让 perl 强制检查宣告, 较严紧的做法 use strict; |
02/14/2007