Thread Zeilen mit leerzeichen aus dem text löschen (8 answers)
Opened by KonstantinPetri at 2007-03-29 13:27

renee
 2007-03-30 10:54
#75515 #75515
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Zeige am besten mal ein paar Beispielzeilen und schreibe dazu was am Ende rauskommen soll (mit Begründung).

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

my $file = '/path/to/file';

tie my @lines,'Tie::File',$file or die $!;
@lines = grep{ is_wanted($_) }@lines;
untie @lines;

sub is_wanted{
my ($line) = @_;

my $return = 0;
if($bedingung_dass_Zeile_erhalten_bleiben_soll){
$return = 1;
}

return $return;
}
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/

View full thread Zeilen mit leerzeichen aus dem text löschen