Examples of org.apache.oro.text.perl.Perl5Util

org.apache.oro.text.perl.Perl5Util
ialization of input and output omitted while((line = input.readLine()) != null) { // First find the line with the string we want to substitute because // it is cheaper than blindly substituting each line. if(util.match("/HREF=\"description1.html\"/")) { line = util.substitute("s/description1\\.html/about1.html/", line); } output.println(line); }
A couple of things to remember when using this class are that the {@link #match match()} methods have the same meaning as{@link org.apache.oro.text.regex.Perl5Matcher#contains Perl5Matcher.contains()}and =~ m/pattern/ in Perl. The methods are named match to more closely associate them with Perl and to differentiate them from {@link org.apache.oro.text.regex.Perl5Matcher#matches Perl5Matcher.matches()}. A further thing to keep in mind is that the {@link MalformedPerl5PatternException} class is derived fromRuntimeException which means you DON'T have to catch it. The reasoning behind this is that you will detect your regular expression mistakes as you write and debug your program when a MalformedPerl5PatternException is thrown during a test run. However, we STRONGLY recommend that you ALWAYS catch MalformedPerl5PatternException whenever you deal with a DYNAMICALLY created pattern. Relying on a fatal MalformedPerl5PatternException being thrown to detect errors while debugging is only useful for dealing with static patterns, that is, actual pregenerated strings present in your program. Patterns created from user input or some other dynamic method CANNOT be relied upon to be correct and MUST be handled by catching MalformedPerl5PatternException for your programs to be robust.
Finally, as a convenience Perl5Util implements the {@link org.apache.oro.text.regex.MatchResult MatchResult} interface.The methods are merely wrappers which call the corresponding method of the last {@link org.apache.oro.text.regex.MatchResult MatchResult}found (which can be accessed with {@link #getMatch()} by a match orsubstitution (or even a split, but this isn't particularly useful). @author Daniel F. Savarese @version @version@ @since 1.0 @see MalformedPerl5PatternException @see org.apache.oro.text.PatternCache @see org.apache.oro.text.PatternCacheLRU @see org.apache.oro.text.regex.MatchResult

     * @param domain being validatied.
     * @return true if the email address's domain is valid.
     */
    protected boolean isValidDomain(String domain) {
        boolean symbolic = false;
        Perl5Util ipAddressMatcher = new Perl5Util();


        if (ipAddressMatcher.match(IP_DOMAIN_PATTERN, domain)) {
            if (!isValidIpAddress(ipAddressMatcher)) {
                return false;
            } else {
                return true;
            }
        } else {
            // Domain is symbolic name
            Perl5Util domainMatcher = new Perl5Util();
            symbolic = domainMatcher.match(DOMAIN_PATTERN, domain);
        }


        if (symbolic) {
            if (!isValidSymbolicDomain(domain)) {
                return false;

View Full Code Here

     * Returns true if the user component of an email address is valid.
     * @param user being validated
     * @return true if the user name is valid.
     */
    protected boolean isValidUser(String user) {
        Perl5Util userMatcher = new Perl5Util();
        return userMatcher.match(USER_PATTERN, user);
    }

View Full Code Here

     */
    protected boolean isValidSymbolicDomain(String domain) {
        String[] domainSegment = new String[10];
        boolean match = true;
        int i = 0;
        Perl5Util atomMatcher = new Perl5Util();
        while (match) {
            match = atomMatcher.match(ATOM_PATTERN, domain);
            if (match) {
                domainSegment[i] = atomMatcher.group(1);
                int l = domainSegment[i].length() + 1;
                domain =
                        (l >= domain.length())
                        ? ""
                        : domain.substring(l);


                i++;
            } 
        }


        int len = i;
        
        // Make sure there's a host name preceding the domain.
        if (len < 2) {
            return false;
        }
        
        // TODO: the tld should be checked against some sort of configurable 
        // list
        String tld = domainSegment[len - 1];
        if (tld.length() > 1) {
            Perl5Util matchTldPat = new Perl5Util();
            if (!matchTldPat.match(TLD_PATTERN, tld)) {
                return false;
            }
        } else {
            return false;
        }

View Full Code Here

    */
    protected String stripComments(String emailStr)  {
     String input = emailStr;
     String result = emailStr;
     String commentPat = "s/^((?:[^\"\\\\]|\\\\.)*(?:\"(?:[^\"\\\\]|\\\\.)*\"(?:[^\"\\\\]|\111111\\\\.)*)*)\\((?:[^()\\\\]|\\\\.)*\\)/$1 /osx";
     Perl5Util commentMatcher = new Perl5Util();
     result = commentMatcher.substitute(commentPat,input);
     // This really needs to be =~ or Perl5Matcher comparison
     while (!result.equals(input)) {
        input = result;
        result = commentMatcher.substitute(commentPat,input);
     }
     return result;


    }

View Full Code Here

    boolean isEmail(String email) {
        if (email == null) {
            return false;
        }


        Perl5Util matchAsciiPat = new Perl5Util();
        if (!matchAsciiPat.match(LEGAL_ASCII_PATTERN, email)) {
            return false;
        }


        // Check the whole email address structure
        Perl5Util emailMatcher = new Perl5Util();
        if (!emailMatcher.match(EMAIL_PATTERN, email)) {
            return false;
        }


        if (email.endsWith(".")) {
            return false;
        }


        if (!isValidUser(emailMatcher.group(1))) {
            return false;
        }


        if (!isValidDomain(emailMatcher.group(2))) {
            return false;
        }


        return true;
    }

View Full Code Here

     * Returns true if the domain component of an email address is valid.
     * @param domain being validatied.
     */
    protected boolean isValidDomain(String domain) {
        boolean symbolic = false;
        Perl5Util ipAddressMatcher = new Perl5Util();


        if (ipAddressMatcher.match(IP_DOMAIN_PATTERN, domain)) {
            if (!isValidIpAddress(ipAddressMatcher)) {
                return false;
            }
        } else {
            // Domain is symbolic name
            Perl5Util domainMatcher = new Perl5Util();
            symbolic = domainMatcher.match(DOMAIN_PATTERN, domain);
        }


        if (symbolic) {
            if (!isValidSymbolicDomain(domain)) {
                return false;

View Full Code Here

    /**
     * Returns true if the user component of an email address is valid.
     * @param user being validated
     */
    protected boolean isValidUser(String user) {
        Perl5Util userMatcher = new Perl5Util();
        return userMatcher.match(USER_PATTERN, user);
    }

View Full Code Here

     */
    protected boolean isValidSymbolicDomain(String domain) {
        String[] domainSegment = new String[10];
        boolean match = true;
        int i = 0;
        Perl5Util atomMatcher = new Perl5Util();


        while (match) {
            match = atomMatcher.match(ATOM_PATTERN, domain);
            if (match) {
                domainSegment[i] = atomMatcher.group(1);
                int l = domainSegment[i].length() + 1;
                domain =
                        (l >= domain.length())
                        ? ""
                        : domain.substring(l);

View Full Code Here

     *  <tr><td>p4.user</td><td>User</td></tr>
     *  </table>
     */
    public void init() {


        util = new Perl5Util();


        //Get default P4 settings from environment - Mark would have done something cool with
        //introspection here.....:-)
        String tmpprop;
        if ((tmpprop = getProject().getProperty("p4.port")) != null) {

View Full Code Here

  public boolean isValid(String value) {
    if (value == null) {
            return false;
        }


        Perl5Util matchUrlPat = new Perl5Util();
        Perl5Util matchAsciiPat = new Perl5Util();


        if (!matchAsciiPat.match(LEGAL_ASCII_PATTERN, value)) {
            return false;
        }


        // Check the whole url address structure
        if (!matchUrlPat.match(URL_PATTERN, value)) {

View Full Code Here

0 1 2 3 4 5 6 7 8 9

TOP

Related Classes of org.apache.oro.text.perl.Perl5Util

com.thoughtworks.xstream.io.xml.AbstractStaxWriterTest

com.tll.model.validate.PhoneNumberValidator

com.tll.model.validate.PostalCodeValidator

com.tll.model.validate.SSNValidator

com.tll.util.ValidationUtil

com.xmultra.util.Strings

easyJ.common.validate.EmailValidator

easyJ.common.validate.GenericValidator

easyJ.common.validate.UrlValidator

it.eng.spagobi.commons.validation.SpagoURLValidator

All source code are property of their respective owners. Java is a trademark of Sun Microsystems, Inc and owned by ORACLE Inc. Contact coftware#gmail.com.