Mega Code Archive

 

Categories / Perl / System Functions

 

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");  }