Re^3: Sorting names using Regular Expressions and placing them in different Files.

[jZed]

Please follow marto's advice and reformat both of your postings using code tags so that they are legible.

[Kiran Kumar K V N]

Hi jZed, I am trying to reformat my both the postings. Meanwhile, I am sure, you might have seen my code in my second posting. It seems vague and there is some real problem with it. I am not able to implement Regular Expressions Logic. Other things also seem to be messed up. As such, can you please explain the Logic you mentioned in your Algo by giving your own Actual Perl Script for the Scenario. Waiting for your aggressive response. Thanks and Regards, Kiran

[ikegami]

Meanwhile, I am sure, you might have seen my code in my second posting.

No, that was unreadable too.
Please put para tags (<p>...</p>) around your paragraphs.
Please put code tags (<c>...</c>) around your code.

[Kiran Kumar K V N]

Hi jZed & Ikegami,

I am trying to reformat my both the postings. Meanwhile, I am sure, you might have seen my code in my second posting. It seems vague and there is some real problem with it. I am not able to implement Regular Expressions Logic. Other things also seem to be messed up. As such, can you please explain the Logic you mentioned in your Algo by giving your own Actual Perl Script for the Scenario.

Waiting for your aggressive response.

Thanks and Regards,

Kiran

[jZed]

Hi Kiran,

It's not too polite to expect us to read your code like that, and it sounds an awful lot like this is a homework assignment that you want us to do for you. So, no, I don't think I'll rewrite your entire script for you. However, here's the key pieces you are missing:

Open a file for reading

open(INPUT,'<',$filename) or die $!;

Open a file for writing

open(BSC,'>','BSC') or die $!;

Loop through a file looking for dates and names

for my $searchline(<INPUT>) {
    if( $searchline =~ /20041204/ ) {
        if( $searchline =~ /^BSC/) {
            print BSC $searchline;
        }
    }
}

There are some other problems with the variables in your code, putting "use strict" at the top and defining variables with "my $var = ..." would help.