Examples/perl5/variables/runme.pl

   1 # file: runme.pl
   2
   3 use example;
   4
   5 # Try to set the values of some global variables
   6
   7 $example::ivar   =  42;
   8 $example::svar   = -31000;
   9 $example::lvar   =  65537;
  10 $example::uivar  =  123456;
  11 $example::usvar  =  61000;
  12 $example::ulvar  =  654321;
  13 $example::scvar  =  -13;
  14 $example::ucvar  =  251;
  15 $example::cvar   =  "S";
  16 $example::fvar   =  3.14159;
  17 $example::dvar   =  2.1828;
  18 $example::strvar =  "Hello World";
  19 $example::iptrvar= example::new_int(37);
  20 $example::ptptr  = example::new_Point(37,42);
  21 $example::name   = "Bill";
  22
  23 # Now print out the values of the variables
  24
  25 print "Variables (values printed from Perl)\n";
  26
  27 print "ivar      = $example::ivar\n";
  28 print "svar      = $example::svar\n";
  29 print "lvar      = $example::lvar\n";
  30 print "uivar     = $example::uivar\n";
  31 print "usvar     = $example::usvar\n";
  32 print "ulvar     = $example::ulvar\n";
  33 print "scvar     = $example::scvar\n";
  34 print "ucvar     = $example::ucvar\n";
  35 print "fvar      = $example::fvar\n";
  36 print "dvar      = $example::dvar\n";
  37 print "cvar      = $example::cvar\n";
  38 print "strvar    = $example::strvar\n";
  39 print "cstrvar   = $example::cstrvar\n";
  40 print "iptrvar   = $example::iptrvar\n";
  41 print "name      = $example::name\n";
  42 print "ptptr     = $example::ptptr", example::Point_print($example::ptptr), "\n";
  43 print "pt        = $example::pt", example::Point_print($example::pt), "\n";
  44
  45 print "\nVariables (values printed from C)\n";
  46
  47 example::print_vars();
  48
  49 print "\nI'm going to try and update a structure variable.\n";
  50
  51 $example::pt = $example::ptptr;
  52
  53 print "The new value is ";
  54 example::pt_print();
  55 print "You should see the value", example::Point_print($example::ptptr), "\n";
  56
  57
  58 print "\nNow I'm going to try and modify some read only variables\n";
  59
  60
  61 print "     Trying to set 'status'\n";
  62 eval { $example::status = 0; };
  63 if (!$@) {
  64     die("status");
  65 }
  66 print "     get error for 'status'\n";
  67
  68 print "     Tring to set 'path'\n";
  69 eval { $example::path = "Whoa!";};
  70 if (!$@) {
  71     die("path");
  72 }
  73 print "     get error for 'path'\n";