Zeichen aus einer grossen Datei loeschen (Seite 2) (Allgemeines zu Perl)

[thread]8875[/thread]

Zeichen aus einer grossen Datei loeschen (Seite 2)

SimplyFred

2007-03-27 13:48

User since
2006-12-16
25 Artikel
BenutzerIn
[default_avatar]

SUPER Leute !

Es funkt !

Ich habe schonmal ein kleines Script vorbereitet, so mit Logfile schreiben etc.
aber eines ist mir noch nicht klar, wie bring ich den Befehl
"perl -ne 'print unless /\./' datei > datei2"
innerhalb eines Perlscriptes genau unter ?

renee

2007-03-27 13:57

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

open my $fh,'<',$filename or die $!;
while( my $line = <$fh> ){
    print $line unless $line =~ /\./;
}
close $fh;

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 all threads created 2007-03-26 16:43.