[SOLVED] simple regex problem

doughyi8u · 01-08-2012, 04:02 AM

I'm trying to write a Perl script that compiles any code in a directory. The thing is, I need to name these files (I'm using the name taken from the source code but w/o the trailing ".c".

Code:

foreach (@srccode) {
    $file =~  # this is where I'm at a loss
    system("gcc -o $file $_");
}

How do I get the name of the file minus the ".c" in the $file variable?
Thanks advance.

grail · 01-08-2012, 06:27 AM

Well I think you want something like:

Code:

/(.*).c/;
$file = $1;

Probably a better way but I am a bit of a noob in Perl

makyo · 01-08-2012, 09:02 AM

( I misread the question ... cheers, makyo )

Cedrik · 01-08-2012, 01:05 PM

There is more than one way...

Code:

map { system "gcc -o ". /(.*)\.c/ ." ". $_ } @srccode;

makyo · 01-08-2012, 07:55 PM

Hi.

In case you wanted to make (pun intended) it more like make:

Code:

#!/usr/bin/env bash

# @(#) s1	Demonstrate compile for missing executable or out-dated.

pe() { for _i;do printf "%s" "$_i";done; printf "\n"; }
pl() { pe;pe "-----" ;pe "$*"; }
db() { ( printf " db, ";for _i;do printf "%s" "$_i";done;printf "\n" ) >&2 ; }
db() { : ; }
C=$HOME/bin/context && [ -f $C ] && $C perl

pl " All files:"
ls

pl " perl code:"
cat p2

rm -f hi
pl " Results, no executable:"
./p2

pl " Results, executable exists:"
./p2

sleep 1
pl " Results, source is newer than executable:"
touch hi.c
./p2

exit 0

producing:

Code:

% ./s1

Environment: LC_ALL = C, LANG = C
(Versions displayed with local utility "version")
OS, ker|rel, machine: Linux, 2.6.26-2-amd64, x86_64
Distribution        : Debian GNU/Linux 5.0.8 (lenny) 
GNU bash 3.2.39
perl 5.10.0

-----
 All files:
a.c.x  hi  hi.c  p1  p2  readme.txt  s1  xxc

-----
 perl code:
#!/usr/bin/env perl

# @(#) p1	Demonstrate testing for existence, out-of-date.

@src = glob("*.c");
for $s (@src) {
  $s =~ /(.*)\.c$/;
  $file = $1;
  if ( !-f $file || ( ( stat($file) )[9] < ( stat($s) )[9] ) ) {
    print " File $file does not exist or out of date, compiling.\n";
    print " gcc -o $file $s\n";
    system("gcc -o $file $s");
  }
  else {
    print " File $file exists and is newer than source $s\n";
  }
}

-----
 Results, no executable:
 File hi does not exist or out of date, compiling.
 gcc -o hi hi.c

-----
 Results, executable exists:
 File hi exists and is newer than source hi.c

-----
 Results, source is newer than executable:
 File hi does not exist or out of date, compiling.
 gcc -o hi hi.c

Best wishes ... cheers, makyo