tc-Shell -- Problem mit Abfrage (sonstige Sprachen, auch PHP)

ptk

2004-02-02 14:11

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Es ist schon lange her, dass ich was mit awk gemacht habe. Der awk-Teil laesst sich ungefaehr (nicht getestet) so nach Perl uebersetzen:

Code: (dl )

while (<>) {
    /^>/ && next;
    /[Nn]/ && do {print "1";exit;}'
}

Mit dem tcsh-Konstrukt if (!....) wird ueberprueft, ob der vom Skript ausgegebene Wert false (0 oder nichts) oder true (1) ist.

renee

2004-02-02 13:41

User since
2003-08-04
14371 Artikel
ModeratorIn

Hi!

Ich habe ein bestehendes Shell-Skript vor mir liegen. Leider komme ich mit einer Abfrage nicht so ganz klar. Vielleicht kann mir einer von Euch folgendes Erklären bzw. Erläutern:

Code: (dl )

1
2
3

if (! `/usr/bin/nawk '/^>/{next;}/[Nn]/{print "1";exit;}' $file`) then
  # mach was
endif

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

renee

2004-02-02 14:17

User since
2003-08-04
14371 Artikel
ModeratorIn

ok, danke!

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/