Programming

%hsah_1 = reverse %hash_1;
$_.=$hash_2{$hsah_1{1}};

#!/usr/bin/perl
use warnings;
use strict;
 
open (my $code , "<", 'ccode.c');
 
my %data = ('24'=>":&temperature \n",
'25'=>": &pressure \n",
'26'=>": &humidity\n",
);
 
my %nums = ( '24'=>": information1\n",
'25'=>": information2 \n", 
'26'=>": information3 \n",
); 
 
 
my $test_string="(" .join("|", keys %data).")" ;
 
while(<$code>){
 
if (/$test_string/){
 
chomp;
 
%data= reverse %data;
 
$_.=$nums{$data{1}}; 
}
print $_
}

#!/usr/bin/perl
use warnings;
use strict;

open (my $code , "<", 'ccode.c')||die "Could not open ccode.c\n\t$!";

my %data = ('24'=>"temperature",
            '25'=>"pressure",
            '26'=>"humidity",
);

my %nums = ('24'=>"information1: ",
            '25'=>"information2: ",
            '26'=>"information3: ",
);

%data = reverse %data;

my $test_string="(" .join("|", keys %data).")" ;

while(<$code>){
    if (/$test_string/){
        $_=$nums{$data{$1}}.$_;
    }
    print $_
}

while(<$code>){
     if (/$test_string/o){
         $_=$nums{$data{$1}}.$_;
         $nums($data{$1}=""; 
 }

#include<stdio.h>
void main()
{
 /*test name*/  ( add information here)
if {
    ........
    .........
     (string found here)
.........
}...............