codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
#!/usr/bin/perl print "Hello World!\n"; $str = " #define vamsi varanasi 1"; $define_string = qr/^\s*#define\s+(\w+)\s*$/; $define_value_string = qr/^\s*#define\s+(\w+)\s+(\w+)\s*$/; if($str =~ m/$define_string/){ print "YO YO \n"; } if($str =~ m/$define_value_string/){ print "YES \n"; }
Private
[
?
]
Run code
Submit