Open Forum > What's New
Perl Extension Module
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
Go to full version