Baugruppe: AATH328922

Name|DoNotRun|LowLimit|HighLimit

ICT|NO||
ProgramVariables|NO||
Variable_Eingabe_Programmer|NO||
Variable_Eingabe_Operator|NO||
Start|NO||
Artikel_Bezeichnung|NO||
Programm_Erstellt|NO||
Letzte_Aenderung|NO||
Adapter_Nummer|NO||
Programm_Nummer|NO||
Gueltig_Ab|NO||
Operator_Info|YES||
Vacuum_Select|NO||
Discharge|NO||
Ablauf_Output_APC|NO||
Ablauf_Output_Discharge|NO||
Delay|NO||
C903&_$|NO||50.000mV
C1302__$|NO||25.000mV
C1303__$|NO||5.000mV
C1304__$|NO||5.000mV
C1305__$|NO||5.000mV
C1310__$|NO||5.000mV
C1311__$|NO||5.000mV
C1312__$|NO||5.000mV
C1313__$|NO||5.000mV

use Tie::File;
tie my @array, 'Tie::File', 'filename' or die $!;
@array = grep { not m/^ICT/ and not m/^ProgramVariables/ } @array;
untie @array; # all finished

#!/usr/bin/perl

use strict;
use warnings;
use Tie::File;

my $file = '/path/to/file.ext';
my @unwanted = qw(ICT ProgramVariables);

tie my @lines, 'Tie::File', $file or die $!;
@lines = grep{ my $i = $_; grep{$i =~ /^\Q$_\E/;}@unwanted }@lines;
untie @lines;

#!/usr/bin/perl

use strict;
use warnings;

my $file = '/path/to/file.ext';
my $tmp = $file . '.tmp';
my @unwanted = qw(ICT ProgramVariables);

open my $in, '<', $file or die $!;
open my $out, '>', $tmp or die $!;

while( my $line = <$in> ){
    next if grep{ $line =~ /^\Q$_\E/ }@unwanted;
    print $out $line;
}

close $out;
close $in;

rename $tmp, $file;

 $ corelist Tie::File

Tie::File was first released with perl 5.007003