heatblazer has asked for the wisdom of the Perl Monks concerning the following question:
Hello. Recently a friend of mine, who is learning programming in university for a master degree asked me to help writing a script for unix that matches a C file and opens it for reading or writing. Here is my suggested script:
#!/usr/bin/perl use warnings; use utf8; use strict; my $arguments = shift; if ( system("gcc $arguments") == 0) { #can we complie the file? print "C file.. opening... \n"; open (FH, '<', $arguments) or die("No file: $!\n"); while ( <FH> ) { print $_; #read it, edit it or whatever needed } } else { print "Not a C file\n"; }
I know that you`d suggest doing a search in file such as regex search or .c match, it`s true but actually you can`t be that verbose if it`s C file by just matching #include<stdio.h> or int main(void)... So I suggested to try compling it -- if it succeeds it`s a C file if it fails it`s other one. Opinions?
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: S simple C checking script
by GrandFather (Saint) on Mar 28, 2012 at 09:16 UTC | |
by heatblazer (Scribe) on Mar 28, 2012 at 09:37 UTC | |
|
Re: simple C checking script
by Ratazong (Monsignor) on Mar 28, 2012 at 09:22 UTC | |
by heatblazer (Scribe) on Mar 28, 2012 at 09:30 UTC | |
by Ratazong (Monsignor) on Mar 28, 2012 at 10:54 UTC |