The Sinclair QL Forum

Code: Select all

#!/usr/bin/perl
# namecheck_pl

# PART 1 - get list of variables from SuperBASIC program

open(OUT,">var_txt") || die "failed to open var_txt";

while (<STDIN>) {
   $str = " ".$_;
   $a = index($str,"=");
   if ($a != 0) {
      $str = substr($str,0,$a);
      if (substr($str,length($str)-1,1) eq " ") {
          chop $str;
      }
      $str = reverse($str);
      $a = index($str," ");
      $str = substr($str,0,$a);
      $str = reverse($str);
      print OUT $str,"\n";
   }
}

close(OUT);

Code: Select all

@words = "";

open(FILE,"keywords_txt") || die "Failed to open keywords_txt";
while (<FILE>) {
   chop ($_);
   push (@words,$_);
}
close(FILE);

open(IN,"var_txt") || die "failed to open var_txt";

while (<IN>) {
   chop($_);
   $_ =~ tr/a-z/A-Z/;
   
   foreach $word (@words) {
      if ($_ eq $word) {
         print $_,"\n";
      }
   }
}

close(IN);

Code: Select all

[code]
    Your code here.
    With indentation preserved!

Code: Select all

1000 Version$ = "Toolkit version = 1.16"

Code: Select all

DEFine FuNction whatEver(X, ...)
...