Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]10406[/thread]

Bestimmte Zeilen aus einer Text-Datei löschen? (Seite 2)

Leser: 3


<< |< 1 2 >| >> 14 Einträge, 2 Seiten
yasukatakaya
 2007-09-19 13:50
#99656 #99656
User since
2007-05-31
68 Artikel
BenutzerIn
[default_avatar]
Danke nochmals, ihr habt mir weitergeholfen, jetzt bin ich aber auf ein nächstes Problem gestossen, und zwar will ich die Zeilen die ein Wort nB beinhalten, löschen.
Bsp.:
Code: (dl )
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


d.h. wie ober im Bsp. würde ich die Zeile "POTENTIOMETER[S400nB$]|NO" löschen wollen, könnt ihr mir ein Tip geben, wie ich das mache?


Gruss
renee
 2007-09-19 13:54
#99659 #99659
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Code (perl): (dl )
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;
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
yasukatakaya
 2007-09-19 14:10
#99661 #99661
User since
2007-05-31
68 Artikel
BenutzerIn
[default_avatar]
Leider klappt es nicht, ich denke, weil die Zeile nicht mit nB anfängt, die Zeichen nB sind ja mitten drin!?
Gruss
renee
 2007-09-19 14:21
#99665 #99665
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Ich habe bei next if grep{ $line =~ /\Q$_\E/ }@unwanted; den ^-Anker rausgenommen...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
<< |< 1 2 >| >> 14 Einträge, 2 Seiten



View all threads created 2007-09-17 14:53.