Guide Practice of Perl

來源:互聯網
上載者:User

標籤:perl

#!/usr/bin/perluse strict;use warnings;#This is a practice of perl, as which shows with below perl code...codes.print "Hello, world!\n";my $animal = "camel\n";my $answer = 42;printf $animal;print "The animal is $animal\n";print "The square of $answer is ", $answer * $answer, "\n";print;my @test = ("t1", "t4", "t3");print $test[0], $test[1], $test[$#test], "\n";print "@test\n";my @sorted = sort @test;print "@sorted\n";my @backwards = reverse @test;print "@backwards\n";my %fcolor = (  apple => "red",  banana => "yellow",);my $apple = $fcolor{"apple"};print "apple color is $apple. \n";my @fruits = keys %fcolor;my @colors = values %fcolor;print "list fruits: @fruits. \n";print "list colors: @colors. \n";my $variables = {  scalar => {    desc => "sigle item",    sigil => '$',  },  array => {    desc => "ordered list of items",    sigil => '@',  },  hash => {    desc => "key/value pairs",    sigil => '%',  },  };print "scalar begin with a $variables->{'scalar'}->{'sigil'}. \n";print "array begin with a $variables->{'array'}->{'sigil'}. \n";print "hash begin with a $variables->{'hash'}->{'sigil'}. \n";my $x = "x";my $some_condition = 1;if ($some_condition) {  my $y = "y";  print $x;  print $y;}print $x;#print $y;print "\n";print "unless condition.\n" unless(0);until (1) {  print "while condition.\n";};foreach (@test) {  print "array element is $_\n";}print "array element is $test[$_]\n" foreach 0 .. $#test;foreach my $key (keys %fcolor) {  print "The value of $key is $fcolor{$key} \n";}my $a = 1;$a += 1;print "$a\n";$a -= 1;print "$a\n";$a .= "x";print "$a\n";open(my $in, "<", "input.txt") or die "can't open input.txt: $!\n";#my $line = <$in>;#my @lines = <$in>;#print "$line";#print "@lines";print stderr "stderr test.\n";while (<$in>) {  print "$_";}print "\n";close $in or die "$in: $!";open(my $out, ">", "output.txt") or die "can not open output.txt. \n";print $out "hello world!\nWrite this info into output.txt. \n";close $out or die "$out: $!";=podwhile(<>) {    next if /^$/;    last if (/q/);  print;}=cutmy $email = "hk.mars\@aol.com";if ($email =~ /([^@]+)@(.+)/) {  print "username is $1 \n";  print "hostname is $2 \n";}#subroutinessub loger {  my $logmessage = shift;  open my $logfile, ">>", "my.log" or die "can not open my.log.$!";  print $logfile $logmessage;}loger("hello loger! \n");sub square {  my $num = shift;  my $sq;  $sq = $num * $num;  return $sq;}my $sq = square(5);print "the square result of 5 is $sq \n";#OO Perl#Using Perl modules#The end of this practice, let's start to write project...now...
Write above perl codes into "e1.pl" file or any name as you want, and executes it on the shell, below is the result shown:

Yet, perl is so easy as C. I am so expected to start  the web project using perl. I guess only need one week to hack a website done.

Mars

Guide Practice of Perl

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.