Checking the include form and getting only the header name

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi I am trying to check if the #include's are of the form #include "word.h" or #include <word.h> (no spaces anywhere,should be exactly of this form) and also later I only want to get the header file name,for example in #include "string.h" or #include <string.h>,the header name is string.h.Can anyone advise how can I do that?

 if ($line =~ /\#include "\w".h | \#include <\w>.h))        #check if 
+it is of the format #include "word.h" or #include <word.h>
      {
         my $header_file = $line =~/\#include \"(\w)\".h| /#include\<\
+w>.h>        #get only the header file
}
[download]

Comment on Checking the include form and getting only the header name Download Code

Replies are listed 'Best First'.
Re: Checking the include form and getting only the header name by Eliya (Vicar) on Mar 19, 2011 at 23:11 UTC
`#!/usr/bin/perl -w use strict; while (my $line = <DATA>) { chomp $line; if ($line =~ /#include [<"](\w+\.h)[>"]/) { print "file is: $1\n"; } } __DATA__ #include "string.h" #include <string.h>` [download] Note that your usage of `\w` matches only one character — you'd need `\w+` to match more than one. Also, you have the `.h` outside of the `<...>` or `"..."`.	[reply] [d/l] [select]
Re^2: Checking the include form and getting only the header name by Anonymous Monk on Mar 20, 2011 at 01:15 UTC
I am trying to get only the #include(.).h part in a given line and using the below code which doesnt seem to be working for me.Can any one advise what is wrong? `INPUT:- ./files/src/services/usb_dcd/private/internals.h:#include "queue.h" ./files/src/services/usb_dcd/private/queue.h:#include <sys/queue.h> $line =~ /\#include(.)\.h/; # +get only the #include OUTUT:- #include "queue.h" #include <sys/queue.h>` [download]	[reply] [d/l]
Re^3: Checking the include form and getting only the header name by Eliya (Vicar) on Mar 20, 2011 at 01:22 UTC
Try `if ($line =~ /(#include.\.h[>"])$/ ) { print "$1\n"; }` [download] or `$line =~ s/.(?=#include)//; print $line;` [download]	[reply] [d/l] [select]
Re^4: Checking the include form and getting only the header name by Anonymous Monk on Mar 20, 2011 at 01:47 UTC
Re^5: Checking the include form and getting only the header name by Eliya (Vicar) on Mar 20, 2011 at 01:50 UTC
Some notes below your chosen depth have not been shown here
Re^3: Checking the include form and getting only the header name by Anonymous Monk on Mar 20, 2011 at 01:19 UTC
Can any one advise what is wrong? You're not showing a short program like Re: Checking the include form and getting only the header name	[reply]