PPT Slide
Perl -- Informix-4GL
Perl - return arguments
if (&sql_stdout) { … }
sub sql_stdout {
return $FALSE;
}
Informix-4gl
if ( sql_stdout() ) then … end if
FUNCTION sql_stdout ()
return FALSE
END FUNCTION
Note: Perl functions automatically return the last value referenced.
Previous slide
Next slide
Back to first slide
View graphic version