use Perl

• Here's how I did it (Score:1)

  by Phred (5358)

  Hopefully it wasn't my slides [redhotpenguin.com] that were way off ;-) Here's how I poked at the internals of a program, including global variables. I got the idea from another post here on use Perl, and I hacked out this working program and test.

  phred@pooky ~ $ cat program.pl
  #!perl -w
  
  use strict;
  use warnings;
  
  our $var = 0;
  
  sub addition {
      my ($one, $other_one) = @_;
      my $result = $one + $other_one+$var;
      return $result;
  }
  
  sub should_die {
      die "oops";
  }
  
  1;
  
  phred@pooky ~ $ cat
  • Re:Here's how I did it (Score:1)

    by Phred (5358) <fredNO@SPAMtaperfriendlymusic.org> on 2007.05.15 17:23 (#55075) Homepage Journal

    Oops, I forgot the output

    phred@pooky ~ $ perl foo.t
    1..3
    ok 1 - require 'program.pl';
    ok 2 - 1+1+var returns 7
    ok 3 - should_die() died

    Reply to This

    Parent