Hente bestemt tekst fra en txt fil!

#!/bin/perl

use FileHandle;
my $filename ="/tmp/test.txt";
my $line;
my $fh = new FileHandle("< $filename");

while (<$fh>) {
  $line = $_;
  if ($line =~ /col0901/i) {
    skriv_til_printer($line);
  }
}

exit 0;

Hej Mfalck
Tak for dit svar :)

Jeg prøvede dit script, men fik en fejl der hedder:
'd:\server\sys\readdata.pl' script produced no output

hmm.. har prøvet at ændre lidt i scriptet men uden held.

Jeg kommer også til at se at det jeg har skrevet er ikke helt det som jeg skulle bruge, og alligevel. Så jeg har lavet lidt ændringer i scriptet, men det kan jeg hellere ikke få til at virke.

Scrip/
#!/bin/perl

use FileHandle;
my $filename ="e:/data-afd/samlet.txt";
my $line;
my $fh = new FileHandle("< $filename");


#############
$find = "http://localhost*/datasheet.txt";
# Alle maskiner hedder localhost* efterfulgt af et tal
#############


while (<$fh>) {
  $line = $_;
  if ($line =~ /$find/i) {
    print ($line);
  }
}
exit 0;