Perl II

ArticleCategory:

Software Development

AuthorImage:

TranslationInfo:

AboutTheAuthor:

Abstract:

ArticleIllustration:

ArticleBody:[The article body]

Ò»ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½

!/usr/bin/perl -w
# vim: set sw=8 ts=8 si et:
#
# uncomment strict to make the perl compiler very
# strict about declarations:
#use strict;
# global variables:
use vars qw($opt_h);
use Getopt::Std;
#
&getopts("h")||die "ERROR: No such option. -h for help\n";
&help if ($opt_h);
#
#>>your code<<
#
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
sub help{
print "help message\n";
exit;
}
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
__END__

Ê¹ï¿½ï¿½ï¿½ï¿½ï¿½Ä£ï¿½ï¿½

#!/usr/bin/perl -w
# vim: set sw=8 ts=8 si et:
#
# uncomment strict to make the perl compiler very
# strict about declarations:
#use strict;
# global variables:
use vars qw($opt_d $opt_x $opt_h);
use Getopt::Std;
#
&getopts("d:x:h")||die "ERROR: No such option. -h for help\n";
&help if ($opt_h);
if ($opt_d && $opt_x){
    die "ERROR: options -x and -d are mutual exclusive.\n";
}
if ($opt_d){
    printf("decimal: %d\n",hex($opt_d));
}elsif ($opt_x){
    printf("hex: %X\n",$opt_x);
}else{
    # wrong usage -d or -x must be given:
    &help;
}
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
sub help{
    print "convert a number to hex or dec.
USAGE: numconv [-h] -d hexnum
    umconv [-h] -x decnum

OPTIONS: -h this help
EXAMPLE: numconv -d 1af
\n";
    exit;
}
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
__END__

If-ï¿½ï¿½ï¿½

printf("hello\n") if ($i);

if ($i == 2){
   printf("i is 2\n");
}elsif ($i == 4){
   printf("i is 4\n");
}else{
   printf("i is neither 2 nor 4\n");
}

ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½Cï¿½ï¿½Ò»ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½"&&"ï¿½ï¿½"||"ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½"ï¿½ï¿½Â·"ï¿½ï¿½ï¿½Ô£ï¿½
printf("hello\n") if ($i);
ï¿½ï¿½ï¿½ï¿½Ð´ï¿½É£ï¿½
($i) && printf("hello\n");
ï¿½ï¿½ï¿½Çµï¿½Ä£ï¿½ï¿½ï¿½Ð¶ï¿½"||"ï¿½ï¿½Ê¹ï¿½Ã¿ï¿½ï¿½Ô±ï¿½ï¿½ÜºÃµÄ·ï¿½ï¿½ï¿½É·ï¿½ï¿½Ï¿ï¿½ï¿½ï¿½Ï°ï¿½ßµÄ¾ï¿½ï¿½Ó£ï¿½
&getopts("d:x:h")||die "ERROR\n";
"ï¿½ï¿½ï¿½ï¿½ï¿½ß³É¹ï¿½ï¿½Ä£ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½Ñ¡ï¿½î£¬ï¿½ï¿½ï¿½ï¿½ï¿½Ë³ï¿½"ï¿½ï¿½
ï¿½ï¿½ï¿½ï¿½"die"ï¿½àµ±ï¿½ï¿½"printf"ï¿½ï¿½"exit"ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½Ò»ï¿½ï¿½ï¿½ï¿½Ï¢ï¿½ï¿½ï¿½ï¿½Ö¹ï¿½ï¿½ï¿½ï¿½
&getopts("d:x:h")||die "ERROR\n";
ï¿½àµ±ï¿½Ú£ï¿½
die "ERROR\n"; if (! &getopts("d:x:h"));
ï¿½ï¿½ï¿½ï¿½"!"ï¿½ï¿½ï¿½ß¼ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½Ò²ï¿½É±ï¿½ï¿½ï¿½Ð´Îªï¿½ï¿½
die "ERROR\n"; unless (&getopts("d:x:h"));
"unless"ï¿½àµ±ï¿½ï¿½"if(!..)".

ï¿½ï¿½ï¿½ï¿½

#!/usr/bin/perl
use strict;
my $i=1;
print "i is $i\n";

#!/usr/bin/perl
#
$i=1;
print "i is $j\n";

#!/usr/bin/perl
use strict;
my $i=1;
print "i is $j\n";

Global symbol "$j" requires explicit package name at ./vardec line 4.
Execution of ./vardec aborted due to compilation errors.
Exit 255

ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½

#!/usr/bin/perl
use strict;
my $result;
my $b;
my $a;
$result=&add_and_duplicate(2,3);
print "2*(2+3) is $result\n";

$b=5;$a=10;
$result=&add_and_duplicate($a,$b);
print "2*($a+$b) is $result\n";

# add two numbers and multiply with 2:
sub add_and_duplicate(){
    my $locala=shift;
    my $localb=shift;
    ($localb+$locala)*2;
}

Ò»ï¿½ï¿½Êµï¿½ÃµÄ³ï¿½ï¿½ï¿½

AC Access Class
AC Air Conditioning
AFC Automatic Frequency Control
AFS Andrew File System
...

Ã¿ï¿½ï¿½Ò»ï¿½ï¿½ï¿½ï¿½Ð´
ï¿½ï¿½Ð´ï¿½ï¿½ï¿½ï¿½ï¿½Äºï¿½ï¿½ï¿½ï¿½ï¿½Í¬Ò»ï¿½Ð£ï¿½ï¿½Ã¿Õ¸ï¿½ï¿½ï¿½ï¿½
Ã¿ï¿½ÐµÄµï¿½Ò»ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½Ð´
ï¿½ï¿½Ò»ï¿½ï¿½ï¿½ï¿½ï¿½Ê´ï¿½ï¿½ï¿½ï¿½×¿ï¿½Ê¼

....
open(FD,"abb.txt")||die "ERROR: can not read file abb.txt\n";
while(){
#do something
}
close FD;
....

#!/usr/bin/perl
use strict;
my $i=0;
open(FD,"abb.txt")||die "ERROR: can not read file abb.txt\n";
while(<FD>){
   # increment the line counter. You probably
   # know the ++ from C:
   $i++;
   print "Line $i is $_";
}
close FD;

ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½×¶ï¿½ï¿½ëµ¥ï¿½ï¿½ï¿½ï¿½Ð´ï¿½ï¿½
ï¿½ï¿½ï¿½ï¿½Ê¹ï¿½ï¿½Perlï¿½ÐµÄ¹ï¿½Ï£ï¿½ï¿½ï¿½ï¿½

#!/usr/bin/perl -w
# vim: set sw=8 ts=8 si et:
#
use strict;
# global variables:
use vars qw($opt_h);
my $i=0;
use Getopt::Std;
#
&getopts("h")||die "ERROR: No such option. -h for help.n";
&help if ($opt_h);
#
open(FD,"abb.txt")||die "ERROR: can not read file abb.txt\n";
while(<FD>){
    $i++;
    if (m/^(\S+)\s/){
        # $1 holds now the first word (\S+)
        print "$1 is the abbreviation on line $i\n";
    }else{
        print "Line $i does not start with an abbreviation\n";
    }
}
close FD;
#
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
sub help{
     print "help text\n";
     exit;
}
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
__END__

ï¿½ï¿½Ï£ï¿½ï¿½

#!/usr/bin/perl -w
my %htab;
my $index;
# load the hash with data:
$htab{"something"}="value of something";
$htab{"somethingelse"}=42;
# get the data back:
$index="something";
print "%htab at index \"$index\" is $htab{$index}\n";
$index="somethingelse";
print "%htab at index \"$index\" is $htab{$index}\n";

%htab at index "something" is value of something
%htab at index "somethingelse" is 42

1  #!/usr/bin/perl -w
2  # vim: set sw=4 ts=4 si et:
3  #
4  use strict;
5  # global variables:
6  use vars qw($opt_h);
7  my %htab;
8  use Getopt::Std;
9  #
10  &getopts("h")||die "ERROR: No such option. -h for help.n";
11  &help if ($opt_h);
12  #
13  open(FD,"abb.txt")||die "ERROR: can not read file abb.txt\n";
14  print "Abbreviations with several meanings in file abb.txt:\n";
15  while(<FD>){
16      if (m/^(\S+)\s/){
17          # we use the first word as index to the hash:
18          if ($htab{$1}){
19              # again this abbrev:
20              if ($htab{$1} eq "_repeated_"){
21                  print; # same as print "$_";
22              }else{
23                  # this is the first duplicate we print first
24                  # occurance of this abbreviation:
25                  print $htab{$1};
26                  # print the abbreviation line that we are currently reading:
27                  print;
28                  # mark as repeated (= appears at least twice)
29                  $htab{$1}="_repeated_";
30              }
31          }else{
32              # the first time we load the whole line:
33              $htab{$1}=$_;
34          }
35      }
36  }
37  close FD;
38  #
39  #-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
40  sub help{
41          print "finddup -- Find abbreviations with several meanins in the
42  file abb.txt. The lines in this file must have the format:
43  abrev meaning
44  \n";
45          exit;
46  }
47  #-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
48  __END__

ï¿½Ç¸ï¿½ï¿½ï¿½Ð´ï¿½Äµï¿½Ò»ï¿½ï¿½ï¿½Ø¸ï¿½
ï¿½Ñ¾ï¿½ï¿½ï¿½ï¿½Çµï¿½Ò»ï¿½ï¿½ï¿½Ø¸ï¿½ï¿½ï¿½

Ð¡ï¿½ï¿½