letzte Spalte in jeder zeile ändern: die zahlen durch best. zahl teilen - #70939 (Allgemeines zu Perl)

renee

2006-10-19 11:49

User since
2003-08-04
14371 Artikel
ModeratorIn

Zu dem split

Wenn die Datei so aussieht:

Code: (dl )

1
2
3

dies ist ein Test 32 160
noch ein anderer Test 160
name einer anderen Datei 2 389

Dann könnte man z.B. so arbeiten:

Code: (dl )

while(my $line = <$fh>){
    my @data = split(/\s/,$line,5);
    print $data[4];
}

Dann sind die Zahlen immer beisammen, obwohl da ein Leerzeichen mit drin ist. Das funktioniert aber nur, wenn die KB-Angaben wirklich _immer_ die letzten in der Zeile sind.

Zu "auf 3 nachkomma stellen begrenzen":

Code: (dl )

1
2

my $zahl = 0.5341278954723645728364;
my $zahl_3_nachkommastellen = sprintf("%.3f",$zahl);

siehe perldoc -f sprintf

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/