Select Code to Download

Select or download this

# Find LOGIN tag.
        if ((($ln =~ ?<[     ]*LOGIN[     ]?) || 
...
             ($pword) && ($uname)) {
...
}

Select or download this

C:\>perl -e "/?/"
Quantifier follows nothing in regex; marked by <-- HERE in m/? <-- HER
+E / at -e line 1.

Select or download this

# perl -MO=Deparse -e '$ln=" < LOGIN > "; $ln =~ ?<[ ]*LOGIN[ ]?'
$ln = ' < LOGIN > ';
$ln =~ ?<[ ]*LOGIN[ ]?;
-e syntax OK

Select or download this

C:\>perl -e "use YAPE::Regex::Explain; $REx = '?<[ ]*LOGIN[ ]?'; print
+ $exp = YAPE::Regex::Explain->new($REx)->explain"
The regular expression:
...

C:\>perl -e "use YAPE::Regex::Explain; $REx = qr/?<[ ]*LOGIN[ ]?/; pri
+nt $exp = YAPE::Regex::Explain->new($REx)->explain"
Quantifier follows nothing in regex; marked by <-- HERE in m/? <-- HER
+E <[ ]*LOGIN[ ]?/ at -e line 1.