smallfishy的博客

#Example1 #while循环 #!/usr/bin/perl use 2.010; #声明本校本所使用的版本号 while(<>){ #接收键盘的任意输入 chomp; print join("\t",(split /:/)), "\n"; 首先用':'分隔字符串，然后用'\t'(制表符)连接 } #------------------------------...

#Example11 #哈希数列2 #!/usr/bin/perl my %hash = ("a" => 1, "b" => 2, "c" =>3); my @k = keys %hash; my @v = values %hash; print "@k\n"; print "@v\n"; while ( ($key, $value) = each %hash ) {...

#Example21 #对文件的处理 #!/usr/bin/perl -w #Usage:perl test1.pl test?.txt #用"?"不用"*"可以加快程序运行 use strict; chomp(my $date = `date`); #引用系统命令date，取当前系统日期，保存到"$date"中 $^I = ".bak"; ...