Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
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
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 wandering the Monastery: (12)
As of 2014-07-28 14:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (200 votes), past polls