System Functions Perl

  1. Home
  2. Perl
  3. System Functions
  4. Using eval to test whether a function is implemented
#!/usr/local/bin/perl 
open (MYFILE, "file1") || die ("Can't open file1"); 
eval ("\$start = tell(MYFILE);"); 
if ($@ eq "") { 
    print ("The tell function is defined.\n"); 
} else { 
    print ("The tell function is not defined!\n"); 
}