Yurttas/PL/SL/perl/F/02/05/02/01/d 00.pl

 1#
 2#  Copyright(C) 1998
 3#  All Rights Reserved. Salih Yurttas, ZCubes, BitsOfCode Software Systems, Inc..
 4#
 5#  Permission from use, copy, modify, and distribute this
 6#  software and its documentation for EDUCATIONAL purposes
 7#  and without fee is hereby granted provided that this
 8#  copyright notice appears in all copies.
 9#
10#  date   : January 1, 1998.
11#  author : Salih Yurttas.
12#
13#  d_00.pl
14#
15
16
17$a = 0;
18
19if($a != 2) {
20  print "a = ", $a;
21}
22print "\n";
23
24$a += 2;
25
26if($a == 2) {
27  print "a = ", $a;
28}
29print "\n";
30
31$a -= 1;
32
33if($a >= 2) {
34  print "a = ", $a;
35}
36print "\n";