Leser: 3
![]() |
|< 1 2 >| | ![]() |
14 Einträge, 2 Seiten |
1
2
3
4
5
6
7
Switches_Pots|YES
Operator Text|NO
POTENTIOMETER[S400nB$]|NO
Ablauf_Output_Switches|YES
Delay|YES
Ablauf_Output_Potentiometer|YES
Ablauf_Output_Hex-Switch|NO
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
#!/usr/bin/perl use strict; use warnings; my $file = '/path/to/file.ext'; my $tmp = $file . '.tmp'; my @unwanted = qw(ICT ProgramVariables nB); 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;
![]() |
|< 1 2 >| | ![]() |
14 Einträge, 2 Seiten |