perl学习笔记(三)

y23335793

#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
#say "Hello, World...\n";
for (my $i=1;$i<10 ;${i}++) {
#print "count $i!\n";
}
use File::Basename;
#use File::Basename (); #不引入函数
#use File::Basename qw / /;#不引入函数
#use File::Basename qw /basename/;#只引入basename函数
#use File::Basename;#引入所有函数
my $name = "/usr/bin/perl";
#my $basename = basename $name;
my $dir_name = File::Basename::dirname $name;
say $dir_name;
use File::Spec;
my $myoldname = "高级perl编程.pdf";
my $dirname = File::Basename::dirname $myoldname;
my $basename = File::Basename::basename $myoldname;
my $newname = File::Spec->catfile($dirname,$basename);
say $newname;
#use Path::Class;
#my $dir = dir(qw( Users fred lib ));
#say $dir;
#my $subdir = $dir -> subdir("perls");
#say $subdir;
#my $parent = $dir -> parent;
#say $parent;
#my $windir = $dir -> as_foregin("win32");
#say $windir;
my $filename = "perl_01";
my $filename2 = "perl_02";
my $filesize = (-s $filename) / 1000;
say $filesize;
warn "the file <$filename> already exist.\n"
if -e $filename;#文件是否存在
warn "the file <$filename> have 1 day not change.\n"
if -M $filename2 > 1;#最后一次被修改后至今的天数
warn "thie file <$filename2> size have > 11.\n"
if -s _ > 11; #文件大小，字节表示; -表示虚拟文件句柄，表示用上次查询过的文件来做当前测试
warn "the file <$filename> have 1 day not visit.\n"
if -A $filename > 1; #最后一次被访问后至今的天数
warn "the file <$filename>  can read can write.\n"
if -w -r $filename;
my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime) = stat($filename);
say $size;
say $atime;
my $date = localtime $atime;
say $date;
my($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime $atime;
say $year + 1900;#年
say $mon;#0-11 月份
say $wday;#0-6 星期
say $yday;#今天是今年的第几天
my $now = gmtime;
say $now;
chdir '/etc' or warn"cannot chdir to /etc:$!";#改变当前文件目录
chdir;
my @all_files = glob '*';#文件名通配
say "@all_files";
my @pl_files = glob '*.pl';
say "@pl_files";
use File::Spec::Functions;
my $dir = 'D:\\lucene\\fileDir';
opendir my $files,$dir or warn "cannot open dir $dir $!.\n";
#foreach my $f(readdir $files){
#say "this is $f.";
#}
while(my $name = readdir $files){
next if $name =~ /^\./;
say $name."*****";
$name = catfile($dir,$name);#完整路径
say $name."+++++";
say "the dir $files have file $name.";
}
#unlink glob '*.pl';#删除文件
#unlink qw(file file1 file2);
#重命名文件
rename 'D:\\test\\test\\file\\aaaa.txt' => 'D:\\test\\test\\file\\a1.txt';
my $old_file = 'D:\\test\\test\\file\\a1.new';
my $new_file = $old_file;
$new_file =~ s/\.new$/.old/;#将a1.new 重命名为a1.old
if (-e $new_file) {
say "the file $new_file have exist!";
}elsif(rename $old_file => $new_file){
say "the file $old_file name have change $new_file!";
}else{
warn "the file $old_file rename $new_file fail. $!.";
}
my $tmp_dir = "D:\\test\\test\\file\\aaa_$$";
mkdir $tmp_dir ,0755; #创建目录
my $permissions = "0755";
mkdir $tmp_dir,oct($permissions);#转换成8进制
unlink glob "$tmp_dir/* $tmp_dir/.*";#删除目录中的文件
rmdir $tmp_dir; #删除空目录

$array[0]="hello";
$array[1]="world";
$array[2]="i";
$array[3]="am";
$array[4]="is";
$array[5]="gigg";
print $array[0]."\n";
$array[0]="hello,";
print $array[0]."\n";
$array["a"]="hello_aa";  #array index of "a" will be rest 0
$array[99]="beckham";
print $array[98]."\n";

print $#array."\n"; #array last one  index
print $array[$#array]."\n"; #array end element
print $array[-1]."\n"; #array last one index
print $array[-2]."\n";#array last two index
print $array[-200]."\n"; #array overstep

print "-------list-----------------\n";
@list1 = (1..10);
@list2 = (1.2..7.9);
@list3 = (5..1);
@list4 = ($m..$n);
@list5 = (1..$#array);
@list6 = (1,2,3..10,11,12);
@list7 = ("hello",4.7);
@list8 = (1,2,3,4,@list1);
@list9 = @list2;
($list[0],$list[1],$list[2],$list[3]) = ("giggs","beckham","kean","scholes");
($list[0],$list[1],$list[2],$list[3]) = qw( giggs bekcham kean scholes);
print $list[0]."\n";
#handler array to tail
$tmp = pop(@list1);
print $tmp."\n";
push(@list1,"tail_11");
print @list1;
print "\n";
#handler array to head
@arrays = qw < one two three four five six >;
$del_ele = shift(@arrays);
print $del_ele ."\n";
unshift(@arrays,"head_11");
print "-------splice------------\n";
@arrays = qw < one two three four five six >;
#splice(@arrays,1);
$del_eles = splice(@arrays,1,2);
print $del_eles."\n";
splice(@arrays,1,0,qw("hello"));
print "\@arrays elements is : (@arrays).\n";
print "\n";
@arrays = qw (one two three four five six);
print "this \@arrays[2] is $arrays[2].\n";
$arr = "ten";
print "this is @arrays[3].\n";
print "this is ${arr}[3]\n";
print "this is $arr"."[3]\n";
print "this is $arr\[3]\n";
print "---foreach-------"."\n";
foreach $item(qw< java c++ c c# python ruby perl >){
print "this is : $item.\n";
}
@rocks = qw / c# f# php /;
foreach $item(@rocks){
#item is @rocks elements
#$item = "\t$item";
$item = "\titem";
$item .="\n";
}
print "this \@rocks element is :\n",@rocks;
$items = qw / apple sanxing xiaomi /;
$item = "songxia";
foreach $item($items){
}
print "the \$item still is $item.\n";
#default variable is "$_"
foreach(1..10){
print "this is $_ .\n";
}
@array = (1..5);
@rev = reverse(@array);
print @rev;
print "\n";
@array = qw( one two three apple);
@sort = sort(@array);
foreach (@sort){
print "sort.this is:$_ .\n";
}
print "\n";
@number = sort(97..102);
print @number;
print "\n";
#use 5.012;
#my @rocks = qw( one two three );
#while(my($index,$value)=each @rocks){
#       say "$index:$value";
#}
@rocks = qw ( one two three four five );
foreach $index(0..$#rocks){
print "$index:$rocks[$index]\n";
}
print "---------context----------------\n";
@array = undef; #error clear array
print @array."\n";
@array = (); #clear array
print @array."\n";
@array = qw( one two three four five six );
print "this is have ", @array ," elements!\n";
print "this is have ",scalar @array, " elements!\n";
@array = reverse qw( a1 b2 c3 d4 e5 );
print @array,"\n";
$array = reverse qw (a1 b2 c3 d4 e5);
print $array,"\n";
print "--------------example------------------\n";
#--first example--
#@list = <STDIN>;
#chomp(@list);
#@rev = reverse @list;
#foreach(@rev){
#print "current element is :$_.\n";
#}
#--second example----
#@list = qw(beckham giggs kean scholes);
#@recv = <STDIN>;
#chomp(@recv);
#foreach $index(@recv){
#print "the $index element is @list[$index-1]:\n";
#}
#---three example--------------
@recv = <STDIN>;
chomp(@recv);
print "the result is :\n";
foreach(sort @recv){
#print "the element is $_\n";
print "$_\t";
}
print "\n";
foreach(sort @recv){
print "$_\n";
}