extracting a string

[jahanaz]

i have a input file of the format

0000GH000
0000GH000
0000NM000

How would i extract GHGHNM from this input file using perl scripts

[nithinpes]

What have you tried? You can do it using regular expressions.

[jahanaz]

i am new to perl
hardly a weeks experience

i have tried this way

if ($string =~ /^CPDS/)
{
if ((substr($string, 38, 2) ne " "))
{
@chk = $string;
foreach $rec1 (@chk)
{
$chk1 = substr($rec1, 38, 2);
}
print "$chk1";
}

}
this code prints my desired result on console
but when it's printed on the file , i can see only the last 2 characters

[nithinpes]

The script you have posted has no relevance to the data that you posted initially. According to your initial posting, you were trying to extract two non-digits(alphabets) from each line and appending them. the following code will do that:

use strict;
open(DATA,"inputfile") or die "failed:$!";
my $str="";
while(<DATA>) {
chomp;
my $ch=$1 if(/(\D\D)/) ;  # extract consecutive non-digits
print "$ch\n";
$str.=$ch;   # append 
}
print "$str";
 

If this does not solve your problem, please be more clear on what exactly you need.

[jahanaz]

i tried this but this does not give my desired result .
this is how it is supposed to work

first it looks for records starting with CPDS
then with in those CPDS records it checks whether position 38,2 is not null
if it's true
it has to get this 38,2 substring from all the choosen records
so that each substring would be concatenated to become a single string.

when i tried with ur code part it worked this way
LK
LKWN
WNPR
PR

[nithinpes]

i tried this but this does not give my desired result .
this is how it is supposed to work

first it looks for records starting with CPDS
then with in those CPDS records it checks whether position 38,2 is not null
if it's true
it has to get this 38,2 substring from all the choosen records
so that each substring would be concatenated to become a single string.

when i tried with ur code part it worked this way
LK
LKWN
WNPR
PR

Could you provide sample data from your file?

[jahanaz]

am sorry my friend

it worked
I was using ur code a different way initially . This is just a small part of the whole code . i really had to integrate ur logic with my program's logic.

anyway thanks a lot