Data extraction in Perl

[v2ksweet]

I have a below line in file '/data/control.dat'..

migration.MW051 52013/nm16,CDW

I want to fetch only migration.MW051 52013/nm16

Below is the code, But it is fetching full line. Can you help on this.

$CONTROL_FILE=/data/control.dat
        open (CONTROL_FILE, "<$CONTROL_FILE") or handle_error(open_control_file);

        while ( $ENTRY = <CONTROL_FILE> )
        {
                if ( $ENTRY =~ /^(.*?)\s/ )
                {

[RonB]

Try changing your regex to this:

/^([^/]+)/

[Oralloy]

v2k,

Are you trying to read a partial line, or extract the desired information at line 6 of your code sample?

[RonB] I think he wants to break at the comma, not a stroke.

This might do what you need, if you insert it above line 6:

($ENTRY,$rest) = ($ENTRY =~ m/([^,]*),(.*)/);

Cheers,
Oralloy

[RonB]

Oralloy, you're right. I need to start wearing my glasses. ;o)

I'd probably end up using split.

my $CONTROL_FILE = '/data/control.dat';

open my $ctrl_fh, '<', $CONTROL_FILE or handle_error("open_control_file <$!>");

while ( my $line = <$ctrl_fh> ) {

    my $entry = (split(/,/, $line))[0];    
    # do whatever is needed with $entry 

}