perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 25
Click for quality!




04.02.2012 / 14:39

Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home


PERLscripts


PHPscripts


JAVAscripts


Hilfreiches


Links2www


Newscenter


Community


Interna




Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragElemente in einer Zeile mit gleichmäßigem Abstand
Seitenanfang
Ich habe das folgende Problem und ist dass ich eine Text Datei eingelesen habe,
die Datei habe ich jetzt schon in einem Array gespeichert z.B. @datei und die
Sache ist, die Zeile sehen sehr Scheisse aus. Es gibt nicht einem gleichmäßigen
Absatnd zwischen jedem Element.Hier habe ich ein Teil eingefügt

200718XP 2007_08_03 11:42:00 9min7sek 36671 Dateien
200718XP 2007_08_03 15:10:29 8min33sek 36674 Dateien
200718XP 2007_08_03 15:59:36 7min50sek 36676 Dateien
200718XP 2007_08_04 04:30:08 7min40sek 36679 Dateien
200718XP 2007_08_04 07:54:25 8min23sek 36680 Dateien
200718XP 2007_08_05 04:31:06 8min59sek 36716 Dateien
200718XP 2007_08_06 04:31:16 9min14sek 36727 Dateien 0 neue Dateien
200718XP 2007_08_07 04:31:22 8min36sek 36737 Dateien 0 neue Dateien

Und nun will ich meine Liste eigentlich so sehen:

200718XP 2007_09_17 10:56:29 8min17sek 36770 Dateien
200718XP 2007_09_22 11:11:33 7min59sek 36771 Dateien
200718XP 2007_09_23 11:21:34 8min6sek 36772 Dateien
200718XP 2007_09_23 11:31:02 7min33sek 36772 Dateien
200718XP 2007_09_17 11:40:03 7min27sek 36772 Dateien

Ich habe ein Programm dafür geschrieben aber es ist zu groß und undeutlich.
Hier mein hässliches Programm

for (@neue_ganze_datei)
{
@neue_zeile=();
@split_zeile = split (//, $_);
for ($j=0;$j<=$#split_zeile;$j++)
{
unless ( (@split_zeile[$j] =~ m/ /) and (@split_zeile[($j+1)] =~ m/ /) )
{
push (@neue_zeile, @split_zeile[$j]);
}
}
$neue_zeile='';
for (@neue_zeile)
{
$neue_zeile=$neue_zeile.$_;
}
push(@neue_zeilen,$neue_zeile);
}

Die Sache ist, dass ich oft dieses Problem habe.
Hat jemand vielleicht eine schöne Lösung
Vielen Dank

Datum: 05.10.2007-15:40

-






-
-