ausgabe bei STDIN ?: ausgabe bei STDIN ? - #51217 (Allgemeines zu Perl)

Crian

2005-01-24 13:48

User since
2003-08-04
5873 Artikel
ModeratorIn

Herzlich willkommen!

Eigentlich müsste er was ausgeben. Das eine Klammerpaar ist allerdings überflüssig, $_ =~ kann man sich auch sparen, außerdem kann man das bei einzeiligen Blöcken auch umstellen:

Code: (dl )

#!/usr/bin/perl
while (<STDIN>) { 
    print "hello world\n" if /send/;
}

Wenn Du ein Skript aufrufen willst, kannst Du das zum Beispiel mit system('meinskript.pl') machen.

Kannst Du auch in der Kommandozeile überprüfen mit

Code: (dl )

perl -ne "print qq(Hallo Welt\n) if /send/"

Bei mir funktioniert es, wenn ich dann eine Zeile mit send eingebe.

Steht in Deiner Datei vielleicht kein kleingeschriebenes send? Perl nimmt das genau. Falls Du das nicht möchtest, kannst Du /send/i verwenden, dann matchen auch 'SeNd', 'send', 'SEND' und 'senD'.\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite