Help for this page

Select Code to Download


  1. or download this
    use Parse::RecDescent;
use vars qw(@lines $curline %stash);
...
  last if $curline>$#lines;
  $curline++;
}
  2. or download this
    5 print "This "
10 print "is "
15 print "a "
20 print "test"
25 goto 5
  3. or download this
    5 a$ = "This is a string"
10 print a$
15 b = 35
20 print b