Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

Re: Perl Script to extract pattern and redirect to another file

by 2teez (Priest)
on Oct 09, 2013 at 19:56 UTC ( #1057619=note: print w/replies, xml ) Need Help??

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).



    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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1057619]
[marto]: yay, Depeche Mode at the Barrowlands on Sunday. The best venue in Glasgow for music, despite it's looks :) Also the smallest gig DM will have played in a long time

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (13)
As of 2017-03-24 11:30 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (301 votes). Check out past polls.