Open Forum > What's New

Perl Extension Module

<< < (2/2)

Support:
Here is the above Perl example using the Script BASIC re (regx) extension module. This example is in 32 Windows XP as re seq faults under 64 bit.  :-\


--- Code: Script BASIC ---IMPORT re.bas SUB test(regx, target)  IF re::match(target,regx) THEN    PRINT regx," is in ",target,"      <",re::dollar(0),">\n"  ELSE    PRINT regx," is NOT in ",target,"\n"  END IFEND SUB test("st.v.", "steve was here")test("st.v.", "kitchen stove")test("st.v.", "kitchen store") PRINTNL   
Output


C:\sb22\test>scriba testregx.sb
st.v. is in steve was here      <steve>
st.v. is in kitchen stove      <stove>
st.v. is NOT in kitchen store


C:\sb22\test>

Navigation

[0] Message Index

[*] Previous page