19 lines
374 B
Awk
19 lines
374 B
Awk
BEGIN {
|
|
print //;
|
|
print /=/;
|
|
print /.*/;
|
|
|
|
a=5; a /= 10; print a;
|
|
|
|
for (IGNORECASE=0; IGNORECASE<=1;IGNORECASE++)
|
|
{
|
|
print "IGNORECASE=", IGNORECASE;
|
|
print "abc" ~ /^[[:upper:]]+$/;
|
|
print "abc" ~ /^[[:lower:]]+$/;
|
|
print "ABC" ~ /^[[:upper:]]+$/;
|
|
print "ABC" ~ /^[[:lower:]]+$/;
|
|
print "AbC" ~ /^[[:upper:]]+$/;
|
|
print "aBc" ~ /^[[:lower:]]+$/;
|
|
}
|
|
}
|