Adding information to c file using perl Post: 302562223

Sponsored Content

Top Forums Programming Adding information to c file using perl Post 302562223 by Skrynesaver on Thursday 6th of October 2011 10:27:42 AM

10-06-2011

Registered User

Seriously, try using code tags when you post code, it makes everyone's life easier.

Now to address your question...

Code:

if (my $string =~ /\/\*temperature value test\*\//)

Examine that line for a moment... what does the =~ operator do? and how could $string match anything at that point?

Take a look at the following

Code:

~/tmp$ cat code.c 
#include code.h

//first test
if (test_passes()){
...
//second test
if (this_test_passes()){
..
//third test
if (this_test_passes()){

~/tmp$ cat test.pl
#!/usr/bin/perl

use strict;

my %test_description = ('first test'=>": This is the first test we undertake\n",
                        'second test'=>": This is the second test we undertake\n",
                        'third test'=>": This is the third test we undertake\n",
                       );
open (my $code , "<", 'code.c');
my $test_finder="(" . join("|", keys %test_description).")" ;
while(<$code>){
    if (/$test_finder/){
        chomp;
        $_.=$test_description{$1};
    }
    print $_
}
    
~/tmp$ ./test.pl
#include code.h

//first test: This is the first test we undertake
if (test_passes()){
...
//second test: This is the second test we undertake
if (this_test_passes()){
..
//third test: This is the third test we undertake
if (this_test_passes()){

Is that close to what you wish to do?

Skrynesaver

View Public Profile for Skrynesaver

Find all posts by Skrynesaver

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl: adding columns in CSV file with information in each

Hi Wise UNIX Crew, I want to add 3 different columns to the file in which: 1. The first new column pulls in today's date and time 2. Second column one has a '0' 3. Third column has the word 'ANY' going down the column If my file content is as follows: "7","a","abc",123"...

2. Shell Programming and Scripting

cant get perl to pull information right

Hello, I cant get the perl script to pull the information from Sark DNS 4.X Options ACL Templates= and other= Can someone look at the script to see why and fix it please. FYI..Under Sark DNS 4.x ACL Templates= and other= has an indent/tab, not sure if thats the reason my the script...

3. Shell Programming and Scripting

Adding new lines to a file + adding suffix to a pattern

I need some help with adding lines to file and substitute a pattern. Ok I have a file: #cat names.txt name: John Doe stationed: 1 name: Michael Sweets stationed: 41 . . . And would like to change it to: name: John Doe employed permanently stationed: 1-office

4. Shell Programming and Scripting

Print file information using ffmpeg in perl

I am trying to print file information using ffmpeg tool in perl Here is my code use strict; use warnings; use IPC::Open3; # example my $filename = $ARGV; my %videoInfo = videoInfo($filename); print "duration: " . $videoInfo{'duration'} . "\n"; print "durationsecs: " ....

5. Shell Programming and Scripting

perl script to print file information - newbie

Hi I have a perl script that prints all the video and audio file information(playing duration). It works fine in one of my friends linux laptop. But it doesn't work in my both windows and linux. My friend told me I have to do install some module ( ppm instal ...... ) but I have no...

6. Shell Programming and Scripting

Parsing information in perl

So i'm trying to write a perl script that logins into a network switch via ssh: #sh ip traffic IP statistics: Rcvd: 1460119147 total, 563943377 local destination 0 format errors, 0 checksum errors, 48401998 bad hop count 0 unknown protocol, 8379279 not a gateway ...

7. UNIX for Dummies Questions & Answers

Perl - adding columns to file

I have a file in which I need to add more columns to based on a key in the first file: File1 key1,abc,123, key2,def,456, key3,ghi,789, File2 key2,zyx,111,qqq, key3,yuu,222,www, key1,pui,333,eee, key4,xxx,999,rrr, I would like to create the following output: Output

8. Web Development

Tapatalk Modification for vB3 - Adding User for System Information

Referring back to this thread: Tapatalk Modification for vB3 - Issue with Avatar Icons I mentioned that we had some "system bot" code: In this post, I describe that code and how easy it is to create a "system bot" user for Tapatalk (TT): Basically, its quite easy. We add a hook to...

9. Shell Programming and Scripting

Perl to extract information from a file line by line

In the below perl code I am using tags within each line to extract certain information. The tags that are used are: STB >0.8 is STRAND BIAS otherwise GOOD FDP is the second number GO towards the end of the line is read into an array and the value returned is outputed, in the first line that...

10. UNIX for Beginners Questions & Answers

Adding to an array in an external file, and adding elements to it.

I have an array in an external file, "array.txt", which contains: char *testarray={"Zero", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine"};I want to be able to add an element to this array, and have that element display, whenever I call it, without having to recompile...

LEARN ABOUT OPENSOLARIS

test-speech

test-speech(1)							   User Commands						    test-speech(1)

NAME

       test-speech - a test application provided by gnome-speech

DESCRIPTION

       test-speech  is a simple test application provided by gnome-speech. It is used to verify the driver for a speech engine, e.g., freetts-syn-
       thesis-driver, is funcioning properly, in order to make sure users can activate and interact with the gnome-speech driver successfully.

       GNOME Speech aims to be a general interface to various text-to-speech engines for the GNOME desktop. It allows the simple speaking of text,
       as well as control over various speech parameters such as speech pitch, rate, and volume.

FILES

       The following files are used by this application:

       /usr/bin/test-speech    a test application provided by gnome-speech

ATTRIBUTES

       See attributes(5) for descriptions of the following attributes:

       +-----------------------------+-----------------------------+
       |      ATTRIBUTE TYPE	     |	    ATTRIBUTE VALUE	   |
       +-----------------------------+-----------------------------+
       |Availability		     |SUNWgnome-a11y-speech	   |
       +-----------------------------+-----------------------------+
       |Interface stability	     |Volatile			   |
       +-----------------------------+-----------------------------+

SEE ALSO

       libgnomespeech(3), attributes(5)

NOTES

       gnome-speech is written by Marc Mulcahy and Michael Meeks.

SunOS 5.11							    3 Dec 2006							    test-speech(1)