Perl WorkNote1

=================================================================
perl中获取当前系统路径

在perl的程序当中，有时候会用到当前的系统路径。

perl中获取当前李靖有两种方法：
1、使用CWD包
     use Cwd;
     print getcwd;

2、使用环境变量
     print $ENV{'PWD'};

我更倾向于使用环境变量，这样不会引入额外的包

3.使用shell命令
      print system("pwd");

=================================================================
打开文件，并往文件里面写信息，如文件不存在，则会生成。
#!/usr/bin/perl -w
open DENO, ">/home/haiouc/dailyDeno";
print DENO ("hello, world!");
close DENO;

打开指定文件，并打印出；
my $myfile;
open(myfile,"c://label.txt")||die "Cann't open it !";
while(my @content=)
     {
    print @content;
  }

=================================================================
写入文件

open(filehandle,">pathname")
open(filehandle,">>pathname")

可以同时打开多个文件句柄，以便进行读取和写入操作
open(source,"sourcefile")||die "$!";
open(dest,"destination")||die "$!";
@contents=;
print dest @contents;
close(dest);
close(source);

上面这个代码段实现了一个简单的文件拷贝。实际上同时进行读取和写入操作可以将例程缩短一些：
print dest ;
由于print函数希望有一个列表作为其参数，因此是在列表上下文中计算的。当尖括号运算符在列表上下文中进行计算时，整个文件将被读取，然后输出到文件句柄DEST。
=================================================================
在当前目录输入名称后创建一个该名称的目录，并设置目录的权限；

#!/usr/bin/perl -w
print "Directory to create?";
my $newdir=<STDIN>;        ===>> 使用行输入操作符<STDIN>
chomp $newdir;                  ===>> chomp 去除换行符(如果字符串结尾有换行符，chomp可以去掉它,这基本上就是它能完成的所有功能)　　　　
mkdir($newdir, 0755)||die "Failed to create $newdir:$!";

=================================================================
获取当前系统时间及按照指定格式输出

#!/usr/bin/perl -w
my $date=localtime;
print "$date";　　　　   ===>>  Mon Oct  3 13:24:44 2011

============================== 

#!/usr/bin/perl -w
sub GetCurrentTime {
    my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $time) = localtime();
    return sprintf("%2.2d:%2.2d:%2.2d", $hour, $min, $sec);　===>>  12:52:56   时间格式可以根据你的需要而修改
}
$buildTime = GetCurrentTime();
print "$buildTime";　　
=================================================================