E
elliot
elliot@dan:/media/KINGSTON$ perl input1.pl
1 #include <stdio.h>
2 #include <malloc.h>
3
4 void testc(double **pa)
5 {
6 double b;
7 double *a;
8 int m;
9
10 a = (double*) malloc(sizeof(double)*5);
11 a[0]=1.23;
12 a[1]=2.46;
13 a[2]=3.69;
14 a[3]=4.11;
15 a[4]=7.21;
16 *pa=a;
17 for (m=0;m<5;m++)
18 {
19 b=a[m];
20 b=b+1.0;
21 a[m]=b;
22 }
23 }
// gcc -c -Wall -Wextra cfile.c -o testc.o
elliot@dan:/media/KINGSTON$ cat input1.pl
#!/usr/bin/perl -w
use strict;
my $filename = "cfile.c";
open FILE, $filename or die $!;
while (<FILE>) { print $_; }
elliot@dan:/media/KINGSTON$
How do I s/// so as to adios the integers?
1 #include <stdio.h>
2 #include <malloc.h>
3
4 void testc(double **pa)
5 {
6 double b;
7 double *a;
8 int m;
9
10 a = (double*) malloc(sizeof(double)*5);
11 a[0]=1.23;
12 a[1]=2.46;
13 a[2]=3.69;
14 a[3]=4.11;
15 a[4]=7.21;
16 *pa=a;
17 for (m=0;m<5;m++)
18 {
19 b=a[m];
20 b=b+1.0;
21 a[m]=b;
22 }
23 }
// gcc -c -Wall -Wextra cfile.c -o testc.o
elliot@dan:/media/KINGSTON$ cat input1.pl
#!/usr/bin/perl -w
use strict;
my $filename = "cfile.c";
open FILE, $filename or die $!;
while (<FILE>) { print $_; }
elliot@dan:/media/KINGSTON$
How do I s/// so as to adios the integers?