Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

Lisp > Perl

Name: 2012-01-06 20:42

Name: Anonymous 2012-01-06 22:34

>>4



$var =~ /^#include\s*<([^>]+)>/;

$file_name = $1;



(match var (regex (concat beginning-of-line

                          "#include"

                          (zero-or-more-of white-space)

                          "<"

                          (save-contents-as file-name (one-or-more-of (any-char-but #\>)))

                          ">")))

Name: Anonymous 2012-01-06 23:01

or alternatively,



(match var (^ #include (* \s) < (save file-name (+ ([^ >))) >)

Newer Posts