perl: leerzeilen entfernen - #68651 (Allgemeines zu Perl)

renee

2006-08-10 17:11

User since
2003-08-04
14371 Artikel
ModeratorIn

@sabrina: ja, das meinte ich mit generieren. Das Schlüsselproblem ist der Feldtrenner. Denn wenn Du den kennst, läuft mein Programm.

@Ronnie: ne, geht nicht. Wenn Du überlange Zeilen hast, verschwindet ein Teil:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

my ($name, $logon, $size);

format STDOUT =
@<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<
$name, $logon, $size
.

while(<DATA>) {
   next if $. == 1;
   chomp;
   ($name, $logon, $size) = split /\s{2,}/;
   write;
}

__DATA__
Mailbox    Last Logged on By    Size (KB)    Total Items    Last Logon Time    Last Logoff Time    
Gehring Sabrina    Domainname\sa8bw    32 016    85    5.7.2006  16:36    5.7.2006  16:36    
Gehring Sabrina die erste von sechsen    Domainname\sa8bw    32 016    85    5.7.2006  16:36    5.7.2006  16:36

Ausgabe:

Code: (dl )

1
2
3

C:\>format.pl
Gehring Sabrina       Domainname\sa8bw      32 016
Gehring Sabrina die e Domainname\sa8bw      32 016

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/