Perl Help

[SANDY1722]

I have a unix file:

file contents:

foo.text:

s_map_test
$$param_name_20070919112345

I want to extract only the 2nd part of the line, and write to new file - foo.out

The New file should have:

foo.out:
20070919112345

Thanks for help

[numberwhun]

I have a unix file:

file contents:

foo.text:

s_map_test
$$param_name_20070919112345

I want to extract only the 2nd part of the line, and write to new file - foo.out

The New file should have:

foo.out:
20070919112345

Thanks for help

Will all of the data in your source file have the same format for the data? ($$param_name_20070919112345) In other words, will there be the two underscores everytime or will it vary? Can you provide a sample of several lines so we can possibly see the pattern?

Thanks!

Regards,

Jeff

[SANDY1722]

Will all of the data in your source file have the same format for the data? ($$param_name_20070919112345) In other words, will there be the two underscores everytime or will it vary? Can you provide a sample of several lines so we can possibly see the pattern?

Thanks!

Regards,

Jeff

------------------------------------------

Jeff,

the file is going to be generated on Ad-hoc basis daily.

todays file:

s_map_test
$$paramname_20070919112345

out file: 20070919112345

Tommorows file:

s_map_test
$$paramname_20070920112346

out file:

20070920112346

Note: there is only one underscore (_), instead of two.

I just need the numeric portion from 2nd line in the source file, and write it to a new file.

Thanks a lot
Sandy

[numberwhun]

------------------------------------------

Jeff,

the file is going to be generated on Ad-hoc basis daily.

todays file:

s_map_test
$$paramname_20070919112345

out file: 20070919112345

Tommorows file:

s_map_test
$$paramname_20070920112346

out file:

20070920112346

Note: there is only one underscore (_), instead of two.

I just need the numeric portion from 2nd line in the source file, and write it to a new file.

Thanks a lot
Sandy

Normally we would want to see your code before providing you any, but I am in a code generating mood at the moment. See if the following does what you want:

The data I used was:

paramname_20070920112346

I took off the $$ at the beginning, assuming that they would not be there. If they are, you can modify the regex to include them.

Here is the code I used:

use strict;
use warnings;
 
open(DATA, "<data.txt");
 
while(<DATA>)
{
    if($_ = m/\D+\_(\d+)$/)
    {
        print("The number is:  $1\n");
    }
    else
    {
        print("Regex didn't find anything!\n");
    }
}
 

Regards,

Jeff

[SANDY1722]

Normally we would want to see your code before providing you any, but I am in a code generating mood at the moment. See if the following does what you want:

The data I used was:

paramname_20070920112346

I took off the $$ at the beginning, assuming that they would not be there. If they are, you can modify the regex to include them.

Here is the code I used:

use strict;
use warnings;
 
open(DATA, "<data.txt");
 
while(<DATA>)
{
    if($_ = m/\D+\_(\d+)$/)
    {
        print("The number is:  $1\n");
    }
    else
    {
        print("Regex didn't find anything!\n");
    }
}
 

Regards,

Jeff

-----------------------------

Thanks jeff