webHauser Blog

Icon

Welcome to webHauser weblog

May 17, 2007 0

Regexp example 1


while ($x =~ /(\w+)/g) {
print "Word is $1, ends at position ", pos $x, "\n";
}

Archives

Advertising