PPT Slide
Perl -- Informix-4GL
Perl - string comparison
if ($SQL_ROW =~ /Error/i) { . . . # Error found ? - not case sensitive!!
if ( $COL_NAME =~ /TYPE_CODE|TITLE|COMMENT/i) { . . .
Informix-4gl
if (SQL_ROW matches “*Error*”) then . . . # Error found ?
case COL_NAME
when “TYPE_CODE” . . .
when “TITLE” . . .
when “COMMENT” . . .
end case
Previous slide
Next slide
Back to first slide
View graphic version