Dateien nach String durchsuchen - #110775 (Allgemeines zu Perl)

Strat

2008-06-05 15:54

User since
2003-08-04
5246 Artikel
ModeratorIn

Gast+2008-06-05 05:48:02--
Code (perl): (dl )
  open(READ,'<',$file) || die "Fehler beim oeffnen ($!)";

x) 'or' anstelle von '||' ist in meinen Augen besser lesbar.
x) Bei Fehlermeldungen hilft es manchmal, wenn man gesagt bekommt, bei welcher Datei das Lesen fehlschlägt:
x) lokale Filehandles sind meist sicherer, weil man sich nicht darum kümmern braucht, ob es außerhalb irgendwelche handles mit demselben Namen gibt:

Code (perl): (dl )

1
2
3

  open( my $READ, '<', $file ) or die "Fehler beim oeffnen von Datei '$file' ($!), died at";
 push( @lines, <$READ> );
 close( $READ );

Gast+2008-06-05 05:48:02--
Code (perl): (dl )
  if ($movie =~/$suche/i)

Sowas kann ziemlich fehlschlagen (und zwar zur Laufzeit), z.B. wenn $suche eine öffnende Klammer enthält, oder sonstige Zeichen, die in einer RE Sonderbedeutungen haben. Deshalb den String entweder escapen:

Code (perl): (dl )

  if ($movie =~/\Q$suche\E/i)

oder $suche gleich als RE speichern:

Code (perl): (dl )

my $suche = qr(irgendwas);

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/