Perl
文章平均质量分 57
thmono
这个作者很懒,什么都没留下…
展开
-
note of Perl (一)
#-------------------------------#name:array_assign.pl#assign a array and print the elements in it#!/usr/bin/perl @fruit=(banana,orange,apple,pear);($a[1],$a[3],$a[5],$a[7])=@fruit ;原创 2010-01-20 16:08:00 · 573 阅读 · 0 评论 -
chomp()
#!/usr/bin/perl #chomp.cluse strict;use warnings;while(my $a=){#delete /n in every linechomp $a;print "your input is $a/n";#exit this loop when your input is NULLlast if ($a eq原创 2009-12-24 22:44:00 · 467 阅读 · 0 评论 -
note of Perl (三)
#---------------------------------------------###!/usr/bin/perl #use HOME ;require "home.pm" ;tie %house,"home","red",6,20000;print "the houses colour is %house->{color}/n";%hou原创 2010-03-04 16:57:00 · 586 阅读 · 0 评论 -
note of Perl (二)
###########################################################script:alarm.pl#purpose:using alarm function wake up a timer#!/usr/bin/perl print "alarm 5 seconds/n";alarm 5;print "sleep 100 se原创 2010-03-04 16:51:00 · 631 阅读 · 0 评论 -
note of Perl (四)
#------------------------------------------------#name:pipe.pl#note:usage of pipe in perl#!/usr/bin/perl open(handle,"|tr [a-z] [A-Z]");print "input a string/n";$string=;print "the upper原创 2010-03-04 17:01:00 · 475 阅读 · 0 评论