topic Re: search pattern issue in Operating System - HP-UX

search pattern issue

Hakki Aydin Ucar — Fri, 24 Sep 2010 05:01:30 GMT

The following code clause does not find what it was supposed to be; pattern returns everything in file /tmp/UserLogin. What am I missing , any advice ?

@users=`cat /etc/passwd|awk -F: '{print \$1}'`;
my $K;
for ( $K = 1; $K <= @users; $K++ )
{
open(IN,"/tmp/UserLogin");
open(OUT,">>/tmp/LogonOutput");
while ($line=) {
$pattern = "$users[$K-1]" ;
if ( $line =~ m{$pattern} ) {
print "$pattern equal to $line\n";
print OUT "$line\n";
}
}
}

Besides,
I tried m/\b$pattern/ also ,but it did not work at all.

Re: search pattern issue

Horia Chirculescu — Fri, 24 Sep 2010 05:27:01 GMT

Hello,

Why m/ ? (Multiple lines?) you only read one line at at a time, so should use s/

Best regards
Horia.

Re: search pattern issue

Horia Chirculescu — Fri, 24 Sep 2010 05:30:28 GMT

Seems that default is single line... Sorry.

Re: search pattern issue

Hakki Aydin Ucar — Fri, 24 Sep 2010 05:40:52 GMT

Horia,

m/ stand for match , but seems useless somehow here, I tried without m like this:
if ( $line =~ /\b$line/ )

it worked now.

thanks

Re: search pattern issue

Horia Chirculescu — Fri, 24 Sep 2010 05:41:47 GMT

Ohhh.. One mistake:

Move

open(IN,"/tmp/UserLogin");
open(OUT,">>/tmp/LogonOutput");

outside for ! You actually read the same data a lot of times...

Horai

Re: search pattern issue

Horia Chirculescu — Fri, 24 Sep 2010 05:42:59 GMT

And... When done, you should close the files

close(IN)
close(OUT)

Best regards,
Horia.

Re: search pattern issue

Horia Chirculescu — Fri, 24 Sep 2010 05:50:14 GMT

$line =~ /\b$line/ and it worked?!

Meaning $line was searched for $line?

Re: search pattern issue

Hakki Aydin Ucar — Fri, 24 Sep 2010 06:01:52 GMT

>Horia:$line =~ /\b$line/ and it worked?!

Meaning $line was searched for $line?

Right, it is mistake, I just noticed that put OPEN File handler out of for loop, but I am still unable to pick from file what I wanted.

Re: search pattern issue

Horia Chirculescu — Fri, 24 Sep 2010 07:08:26 GMT

Try

($line =~ m/$pattern{0}/ )

Horia.

Re: search pattern issue

Horia Chirculescu — Fri, 24 Sep 2010 07:10:35 GMT

@users=`cat /etc/passwd|awk -F: '{print \$1}'`;
my $K;
#open(IN,"/tmp/UserLogin");
open(OUT,">>/tmp/LogonOutput");

for ( $K = 1; $K <= @users; $K++ )
{
open(IN,"/tmp/UserLogin");

while ($line=)
{
$pattern = "$users[$K-1]" ;

if ( $line =~ m/$pattern{0}/ ) {
print "$pattern equal to $line\n";
print OUT "$line\n";
}
}

close(IN);

}

Re: search pattern issue

Hakki Aydin Ucar — Fri, 24 Sep 2010 07:26:46 GMT

>Horia: ($line =~ m/$pattern{0}/ )

only the first pattern working, others not working, problem is why perl picks up all pattern they are not even on the $pattern values ?

Regards,

Re: search pattern issue

Hakki Aydin Ucar — Fri, 24 Sep 2010 07:35:16 GMT

Sorry for points assigned in reverse posts but all belongs to you eventually.
Thanks, the problem solved apparently now, but another problem ,if patterns don t match , still written into OUTPUT file ??

is it weird ? something is missing in the loop ?

Re: search pattern issue

Horia Chirculescu — Fri, 24 Sep 2010 07:42:14 GMT

There should be nothing in the output file if nothing to match...

What exactly do you get in the output file in this case?

Horia.

Re: search pattern issue

Horia Chirculescu — Fri, 24 Sep 2010 07:45:33 GMT

.. and do not forget to close (OUT) when exit for (not pasted in my example code)

Re: search pattern issue

Horia Chirculescu — Fri, 24 Sep 2010 07:48:04 GMT

#!/usr/bin/perl
@users=`cat /etc/passwd|awk -F: '{print \$1}'`;
my $K;
open(OUT,">>/tmp/LogonOutput");

for ( $K = 1; $K <= @users; $K++ )
{
open(IN,"/tmp/UserLogin");
while ($line=)
{
$pattern = "$users[$K-1]" ;

if ( $line =~ m/$pattern{0}/ ) {
print "$pattern equal to $line\n";
print OUT "$line\n";
}
}
close(IN);

}

close(OUT);

Re: search pattern issue

Hakki Aydin Ucar — Fri, 24 Sep 2010 08:08:27 GMT

>Horia:There should be nothing in the output file if nothing to match...
What exactly do you get in the output file in this case?

this is from output file:
LOGIN Sep 17 2010 18:03:09
root Sep 17 2010 18:03:24
student Sep 20 2010 13:55:45

LOGIN and root are not in the @users list but goes to output file ??

Re: search pattern issue

Hakki Aydin Ucar — Fri, 24 Sep 2010 08:14:08 GMT

Horia,

I tried to change environment and seems its working now , so my test server has some problems by Perl sources ??
I will notify the solution after completed tests.
Thanks
Hakki

Re: search pattern issue

Horia Chirculescu — Fri, 24 Sep 2010 08:17:53 GMT

I believe user "root" should be in /etc/passwd so will be present also in @users list.

This could be true also for the "student" user.

Looks strange the presence of LOGIN.

grep LOGIN /etc/passwd?

Can you attach the file /tmp/UserLogin ?

Horia.

Re: search pattern issue

Horia Chirculescu — Fri, 24 Sep 2010 08:19:05 GMT

>I tried to change environment

What exactly did you changed in the env. ?

Horia.

Re: search pattern issue

Hakki Aydin Ucar — Fri, 24 Sep 2010 09:34:08 GMT

>Horia:I believe user "root" should be in /etc/passwd so will be present also in @users list.

No, I took it out from passwd file with "grep -v"

I meant another server with environment change.

Last script is here (working great now!)
@users=`cat /etc/passwd|awk -F: '{print \$1}'|grep -vE 'root|nwauto|daemon|bin|sys|adm|uucp|lp|www|webadmi
n|hpdb|informix|nuucp|smbnull|mysql|nwcron|goglobal|alop|trop|dbadmin|c7op|sysadmin`;
my $K;
open(OUT,">>/tmp/LogonOutput");
for ( $K = 1; $K <= @users; $K++ )
{
open(IN,"/tmp/UserLogin");
while ($line=)
{
$pattern = "$users[$K-1]" ;
if ( $line =~ m/\b$pattern{0}/ ) {
print "$pattern equal to $line\n";
print OUT "$line";
}
}
close(IN);
}
close(OUT);