CODEWITHSUNDEEP
regexperl
manugupt1
manugupt1

Reputation: 2437

Why is this pattern not matching the data my program reads from STDIN?

Suppose there is a list that is input from the console using <STDIN>

@string = <STDIN>;

Now, I check for a pattern, say /manu/, in my program 

foreach (@string)
{
    if(/manu/)
    {
        print $_."\n";
    }
}

The code is unable to look for the pattern /manu/.

However when I do the following, the code works perfectly fine:

chomp(@string = <STDIN>);

Why?

Upvotes: 0

Views: 175

Answers (3)

Erik A. Brandstadmoen
Erik A. Brandstadmoen

Reputation: 10588

chomp tears off any whitespace or cr/lfs. Add a chomp, or add any whitespace to your regex match, eg:

foreach (@string)
{
    if(/manu\s*/)
    {
        print $_."\n";
    }
}

Upvotes: -1

Sinan &#220;n&#252;r
Sinan &#220;n&#252;r

Reputation: 118156

Edit: My original answer was written assuming the code posted was the code the OP had used. Updated after the correction.

Here is what I get when run:

#!/usr/bin/perl

use strict; use warnings;

my @string = <STDIN>;

for (@string) {
    if(/manu/) {
        print "'$_'";
    }
}

Output:

E:\> t
manu
nana
tada
^Z
'manu
'

Note the Control-Z which I use to signal EOF from the command line on Windows (if you are using a *nix shell, you would use Control-D).

Output only appears once your program reads all the data it can read from STDIN.

Note the newline printed after manu. That's because I did not chomp the input. That is the only difference between using this code versus using

chomp(my @string = <STDIN>)

When you first assign <STDIN> to an array and iterate over that, your program will wait until there is no more data to be read and its memory use will be proportional to the amount of data received.

On the other hand, the following program will process lines as they come:

/manu/ and print while <>;

and its memory use will be proportional to the longest line received.

The line above is equivalent to:

while ( <> ) {
    if ( /manu/ ) {
        print $_;
    }
}

Note that, you should always add use strict; and its close friend use warnings; to your scripts. See perldoc strict.

Upvotes: 9

Hans W
Hans W

Reputation: 3891

In your first example, @list is undefined. If you would have had

use strict;
use warnings;

in your script (highly recommended!), Perl would have told you about this.

Edit: Now that you've fixed this, the code you have works for me.

Upvotes: 3

Related Questions