Help for this page

Select Code to Download


  1. or download this
    /\d[\w.]*|[\w\$]+|'(?:\\?.)*'|"(?:\\?.)*"|\/\*(?s:.*?)\*\/|\/\/.*|\/(?
+:\\?.)*\/[a-z]*|\+\+|\-\-|[\n\S]/g
  2. or download this
    while(/(\d[\w.]*|[\w\$]+|'(?:\\?.)*'|"(?:\\?.)*"|\/\*(?s:.*?)\*\/|\/\/
+.*|\/(?:\\?.)*\/[a-z]*|\+\+|\-\-|[\n\S])/g) {
    unless($1 eq "\n") {
...
        print "Newline\n";
    }
}
  3. or download this
    my $level = 0;
while(/(\d[\w.]*|[\w\$]+|'(?:\\?.)*'|"(?:\\?.)*"|\/\*(?s:.*?)\*\/|\/\/
+.*|\/(?:\\?.)*\/[a-z]*|\+\+|\-\-|[\n\S])/g) {
...
        print "Token: $1\n";
    }
}