Thread grep inputfile geht nicht mit übergebener Variablen (3 answers)
Opened by allapow at 2008-06-01 14:06

Gast Gast
 2008-06-01 14:20
#110537 #110537
- $a und $b werden von Perl selber verwendet, (bei sort)
- Reguläre ausdrücke bearbeitet man mit "=~//"
- Der Ausdruck kann mehr als einmal vorkommen

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/perl
use strict;
use warnings;

my $file=shift(@ARGV) || die "Bitte Dateinamen angeben!\n";
my $regexp=shift(@ARGV) || 'bla';
print "Überprüfe $file mit dem Ausdruck /$regexp/ \n";

open( INPUTFILE, $file) || die "Konnte $file nicht öffnen";
while(<INPUTFILE>)
{
  my $back = grep {$_ =~/$regexp/} <INPUTFILE>;
  if ($back > 0)
  { print "Eintrag vorhanden!\n"; }
  else
  { print "Keinen Eintrag gefunden!\n"; }
}
close( INPUTFILE );

View full thread grep inputfile geht nicht mit übergebener Variablen