Вот это прекасно работает (если ввести в шеле):

nmblookup -A 192.168.1.24|head -2|tail -1 | /bin/awk '{ print $1 }'

а от такой перловый скрипт не работает правильно (такое впечателение, что авк вообще ничего не обрабатывает)

#! /usr/bin/perl

@b = `nmblookup -A 192.168.1.24|head -2|tail -1 | /bin/awk '{ print $1 }'`;

print "@b";

Что такое, где я не правильно что-то написал?

Заранее большое спасибо!

• Не работает в скрипте,Brainbug, 09:57 , 27-Окт-04
  • Не работает в скрипте,screepah, 10:36 , 27-Окт-04
    • Не работает в скрипте,Brainbug, 10:46 , 27-Окт-04
      • Не работает в скрипте,Brainbug, 11:13 , 27-Окт-04
    • Не работает в скрипте,Brainbug, 10:53 , 27-Окт-04
      • Не работает в скрипте,Сергей Петров, 11:04 , 27-Окт-04
    • Не работает в скрипте,Сергей Петров, 11:03 , 27-Окт-04

>Вот это прекасно работает (если ввести в шеле):
>
>nmblookup -A 192.168.1.24|head -2|tail -1 | /bin/awk '{ print $1 }'
>
>
>а от такой перловый скрипт не работает правильно (такое впечателение, что авк
>вообще ничего не обрабатывает)
>
>#! /usr/bin/perl
>
>@b = `nmblookup -A 192.168.1.24|head -2|tail -1 | /bin/awk '{ print $1
>}'`;
>
>print "@b";
>
>
>Что такое, где я не правильно что-то написал?
>
>Заранее большое спасибо!

Kak nibud tak:

#!/usr/bin/perl -w

open (FH,"nmblookup -A 192.168.1.24|head -2|tail -1 | /bin/awk '{ print \$1>}'") or die "Can't handle command output";
while (<FH>){
    $b=$_;
}
close FH or die "Can't close file handler";
print "$b\n";

>>awk '{ print \$1 }'

perl $1 обрабатывает, а должен awk

>>>awk '{ print \$1 }'
>
>perl $1 обрабатывает, а должен awk

Prostite ope4atalsa. Dolzno bit:
#!/usr/local/bin/perl -w

open (FH,"nmblookup -A 192.168.1.24|head -2|tail -1 | /bin/awk '{ print
\$1}'|");
while(<FH>){
        print;
}
close

Test:
[test@test perl]# last | head -1 | awk '{print $2}'
pts/0
[test@test perl]# cat 027.pl
#!/usr/local/bin/perl -w

open (FH,"last | head -1|awk '{print \$2}'|");
while(<FH>){
        print;
}
close
[test@test perl]# ./027.pl
pts/0
[test@test perl]#

>>>>awk '{ print \$1 }'
>>
>>perl $1 обрабатывает, а должен awk
>
>Prostite ope4atalsa. Dolzno bit:
>#!/usr/local/bin/perl -w
>
>open (FH,"nmblookup -A 192.168.1.24|head -2|tail -1 | /bin/awk '{ print
>\$1}'|");
>while(<FH>){
>        print;
>}
>close

close FH or die "Can't close file handler";

>
>Test:
>[test@test perl]# last | head -1 | awk '{print $2}'
>pts/0
>[test@test perl]# cat 027.pl
>#!/usr/local/bin/perl -w
>
>open (FH,"last | head -1|awk '{print \$2}'|");
>while(<FH>){
>        print;
>}
>close

close FH or die "Can't close file handler";

>[test@test perl]# ./027.pl
>pts/0
>[test@test perl]#

>>>awk '{ print \$1 }'
>
>perl $1 обрабатывает, а должен awk

V mojem primere imenno awk $1 i obrabativajet, t.k. napisano ne $1, a \$1.

>>>>awk '{ print \$1 }'
>>
>>perl $1 обрабатывает, а должен awk
>
>V mojem primere imenno awk $1 i obrabativajet, t.k. napisano ne $1,
>a \$1.

OK. Spasibo bol'shoe!!!

>>>awk '{ print \$1 }'
>
>perl $1 обрабатывает, а должен awk

СПАСИБО БОЛЬШОЕ! Все стало понятно. Разобрался! Еще раз спасибо!