PERL und awk

[Bernd]

Ich hab ein Problem mit folgenden Systemaufruf:

my @array = ypcat -k passwd |awk '{print $1}' ;

In dem Array befindet sich dann der output von (ypcat -k passwd) als ob der awk Teil ueberhaupt nicht existieren wuerde.

Kann mir jemand weiterhelfen ?

[MIB]

my @array = ypcat -k passwd |awk '{print $1}' ;

In dem Array befindet sich dann der output von (ypcat -k passwd) als ob der awk Teil ueberhaupt nicht existieren wuerde.

Kann mir jemand weiterhelfen ?

my @array = ypcat -k passwd |awk '{print \$1}' ;

[Bernd]

my @array = ypcat -k passwd |awk '{print \$1}' ;

Ahhh, an das habe ich nicht gedacht, DANKE!

[Struppi]

my @array = ypcat -k passwd |awk '{print \$1}' ;

Ahhh, an das habe ich nicht gedacht, DANKE!

hätte aber mit use strict bzw. in dem Falle vermutlich eher bei use warnings eine entsprechende Meldung machen müssen, oder?

Struppi.

[Siechfred]

Hell-O!

my @array = ypcat -k passwd |awk '{print \$1}' ;
Ahhh, an das habe ich nicht gedacht, DANKE!
hätte aber mit use strict bzw. in dem Falle vermutlich eher bei use warnings eine entsprechende Meldung machen müssen, oder?

Hm, glaube ich eigentlich nicht, da es sich um einen Systemaufruf handelt, von dem Perl nur das Ergebnis zur Verfügung gestellt bekommt. Und ein Ergebnis gab es ja, nur halt nicht das erwartete.

Siechfred

[Struppi]

my @array = ypcat -k passwd |awk '{print \$1}' ;
Ahhh, an das habe ich nicht gedacht, DANKE!
hätte aber mit use strict bzw. in dem Falle vermutlich eher bei use warnings eine entsprechende Meldung machen müssen, oder?

Hm, glaube ich eigentlich nicht, da es sich um einen Systemaufruf handelt, von dem Perl nur das Ergebnis zur Verfügung gestellt bekommt. Und ein Ergebnis gab es ja, nur halt nicht das erwartete.

wird hier $1 nicht interpoliert?

Struppi.

[Siechfred]

Hell-O!

wird hier $1 nicht interpoliert?

Ja, du hast Recht, es gibt folgenden Fehler:

"Use of uninitialized value in string at ... line ..."

Natürlich nur dann, wenn $1 tatsächlich "falsch" ist.

Siechfred