in reply to Perl Script to extract pattern and redirect to another file

Hi Raghu1
Hi All, I am beginner in Perl Programming and I need your help to fullfill this requirement
Welcome to the Monastery, we are also very willing to help but
1. Read How do I post a question effectively?
2. You need to reformat your questions using <code></code> tags

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

Replies are listed 'Best First'.
Re^2: Perl Script to extract pattern and redirect to another file
by Raghu1 (Initiate) on Oct 17, 2013 at 19:27 UTC
    Hi All,

    The below code will extract List Name and associated Group Name(starts with X).

    <code>

    #!/usr/bin/perl

    use strict;

    use warnings;

    # open for reading

    my $CSD_file = "CSD.txt";

    open FD, "<", $CSD_file

    or die "Unable to open '$CSD_file' for reading because $!";

    # open for writing

    my $RES_file = "RES.txt";

    open NW, ">", $RES_file

    or die "Unable to open '$RES_file' for writing because $!";

    my %data;

    {

    local $/ = ''; # read in paragraph modes, in chunks

    while (<FD>) { # read a chunk

    if (/(LIST NAME:\s+(.+)LIST)/) {

    $data{$2} = $1;

    }

    elsif (/(GROUP NAME:\s+X(\w+)/) {

    print NW $data{$2}, "\n";

    print NW "$1\n";

    my $trans = <FD>; # read next 'chunk'

    print NW $trans;

    } } }

    close FD or die $!;

    close NW or die $!;

    I am trying to extract "Group Name" which has 4 to 8 charcters/digit. This Group Name is combinaion of charcters/digits.

    Ex:XCT09L1,XPCPHL2, XDX12DN1

    How can I achieve this in above code snippet

[reply]

In Section Seekers of Perl Wisdom