Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

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


Comment on Re: Perl Script to extract pattern and redirect to another file
Download Code
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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1057619]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (15)
As of 2015-07-07 20:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (93 votes), past polls